#0 - . .
#1 - #33 . .
#100 - #199 . .
#500 - #999 . .
:
-1047 -10-29
+10-29 +1047
:
#1=123
X#1
Z[#1/2]
:
(O#10),
(N#20) (/#30).
:
4 + - * /
SIN[](), COS[],TAN[], ASIN[](), ACOS[], ATAN[]
SQRT[]( ), ABS[]( ), ROUND[](),
FIX[]( ), FUP[]( ),
LN[], EXP[],
OR( ), XOR( ), AND( ).
:
GT
LT
EQ
NE
GE
LE
:
GOTO100 N100,
IF [#1GT10] GOTO100 N100, #1>10
IF [#1GT10] THEN #2=20 #2=20, #1>10
WHILE [#1GT10] DO1
#1=#1+1
G0 X#1
END1
:
, :
| D1 | L | R1 | R2 | |
| 000.00.00 | ||||
| 000.00.00-01 | ||||
| 000.00.00-02 | ||||
 000.00.00-03
|
:
O0001(PRIMER 1)
N10 #501=12(D1)
N40 #504=65(L)
N50 #505=5(R1)
N60 #506=10(R2)
, . .
1 (#1;#2) (#1 1 X, #2 - Z)
2 (#3;#4)
3 (#5;#6)
4 (#7;#8)
5 (#9;#10)
A (#11;#12)
B (#13;#14)
:
1 , X D1 1*45, .. D1-2. D1 #501,
N70 #1=#501-2
1 Z ,
N80 #2=0
, 2:
N90 #3=#501
N100 #4=-1
3 X:
N110 #5=#501
4 , , :
N120 #9=0
N130 #10=-#504-#506
N140 #11=#501+#505*2
, , (#505*2),
N150 #13=0
N160 #14=-#504
:
|
|
|
1 ( #1;#2)
2 (#3;#4)
3 (#5;#6)
4 (#7;#8)
5 (#9;#10)
A (#11;#12)
B (#13;#14)
4 :
3 Z, BC.
, AB 4.
ABC:
, , AB2=BC2+AC2
, BC2= AB2-AC2
BC=_(AB2-AC2)
AB=R1+R2
AC=D1/2+R1
, :
N170 #15=#505+#506 (AB)
N180 #16=#15*#15 (AB2)
N190 #17=#501/2+#505 (AC)
N200 #18=#17*#17 (AC2)
N210 #19=SQRT[#16-#18] (BC)
3 B BC:
N220 #6=#14+#19
A Z 3 Z.
N230 #12=#6
4.
ABC DBE ,
BE/BC = BD/BA
,
BE = BD/BA*BC
, BD=R2, BA=R1+R2, BC #19
,
N240 #20=#506/[#505+#506]*#19 (BE)
4 B BE:
N250 #8=#14+#20
, :
N260 #21=#506/[#505+#506]*#17 (DE)
N270 #7=#21*2
, .
.
N280 G1 X#1 Z#2
N290 X#3 Z#4
N300 Z#6
N310 G2 X#7 Z#8 R#505
N320 G3 X#9 Z#10 R#506
, , , .
