353f6e69-4b2b-4f6b-af88-83bc4ec91f78 5 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

r 0.4 :

ρ 0.6 atan :

ρ ° 31

n.max 100 :

α ρ tan 1 ρ tan 2^+ sqrt + atan :

x f x tan 1 x tan 2^+ sqrt + atan :

N α tan 2^:

x f 1.57079634 2 1.57079634 1 - 2 2 mat 0 0.7655 + 20 red 1 5 mat 3 1 sys

K.p 2 N N 1 + / * e π 2 / ρ + (ρ tan *^* :

π/4 0 f 0.785398163397448

1.57079634 f 0.000000000000000

1.57079632 f 1.57079632339745

L H N xd U 0 : dx H L - N / : 12 mat i 1 N range U i el L dx - (dx i * + eval : for U 31 line :

L 1 - : H 2 : N 1000 : 13 mat U L H N xd : data U U f vectorize augment : 31 sys

X.0 21 r - (* ρ tan * :

j 1 n.max range X j el X.0 : ψ X.0 ρ tan - atan : c 1 ψ tan ρ tan * + (K.p * e 2 ψ * ρ tan * (^* 1 - : X.c 1 r - 1 r - (2^1 r - c / + sqrt + (ρ tan * : X.0 X.c - abs 0.0001 < break X.0 X.c : if 51 line for

data 1.57079634 2 1.57079634 1 - 2 2 mat 2 1 sys

X.0 X.c - abs 3.2619 105 -^*

X.0 0.7656

X.c 0.7655

X 0.720000 0.769669 0.765194 0.765575 41 mat