|
T101;
3 Y& [; u- a+ t9 [ G0 X85. Z16.;
0 K, P: z( f N6 t M3 S200;
# g( ]1 @+ e! f' f #1=0;
: H. i g& ^$ M5 FN1 #26=29;
7 W- z7 k: O# p. r1 ]9 { l/ X #2=SQRT[[100-#1]*[100-#1]-29*29]-59.50 J- ]! c) r! K. l; v
G0 X[2*[#2]]
" }+ c. J H: g# i7 l. A6 `$ fN2 #3=[100-#1]*[100-#1]-[#26]*[#26];
$ D1 z8 Y# O4 K q- i1 ?+ F #24=2*[SQRT[#3]-59.5];
5 y& k: r4 k1 c5 O. c G32 X[#24] Z[#26-13] F8.;
3 z# m- Y) v v6 d3 G3 n4 n" e( w #26=#26-0.01;
8 c" \: E1 u* o S5 ] IF[#26 GE [-34]] GOTO2- `( i8 g, C* l, I
G0 X85.;1 Z7 A9 i, `; k$ y U; _
Z16.;+ l, D! A5 @+ T! y! j) I1 s! o
#1=#1+0.03;
; O0 ]7 v/ Z9 D2 u$ c. k \' l IF[#1 LE 3] GOTO1;
" e9 Y4 l7 w f! {- F G0 X85.;
4 s: @; ^, Y6 m# t# W3 |, r, A Z100.;
1 c6 V8 r9 \3 {' g& I M5;
; D- M, r3 Q' u M30; |
|