卡西欧CASIO fx-5800道路坐标放样程序

卡西欧
C
CCCCA
AAAAS
SSSSI
IIIIO
OOOOfx
fxfxfxfx-5
-5-5-5-58
88880
00000
0000道路坐标放样程序

源程序包括：一个主程序和两个子程序
主程序：PRO-ROAD

行号程序说明
1
Deg：Fix3：26→DimZ
2
“X（JD1）”?X：
“Y(JD1)”?Y：
“X（JD0）”?M：
“Y(JD0)”?N
3
Prog”SUB-QXYS1”
4
Pol(X-M,Y-N)：J→Z[20]：J+O→Z[19]
5
X-Scos(Z[20])
→Z[21]：Y-Ssin(Z[20])
→Z[22]
6
X+Tcos(Z[19])
→Z[23]：Y+Tsin(Z[19])
→Z[24]
7
“X0”?U：”Y0”?V
8
Lbl
0
9
“KP”?P：IFP>Z[1]：ThenGoto
1：
IfEnd
10
Z[1]-P→L
11
“XP=“：X-(S+L)cos(Z[20])
→F
12
“YP=“：Y-(S+L)sin(Z[20])
→G
13
Z[20]
→Z：
Goto
5
14
Lbl
1
15
If
P>Z[2]：
ThenGoto
2：
IfEnd
16
P-Z[1]
→L：
L→Z[14]：B→Z[15]：Prog”SUB-HXY”
17
“XP=“：Z[21]+Z[16]cos(Z[20]-WZ[17]sin(Z[20])
→F
18
“YP=“：Z[22]+Z[16]cos(Z[20]-WZ[17]sin(Z[20])
→G
19
Z[20]+90WLL÷(BRπ)
→Z
20
Goto
5
21
Lbl
2
22
If
P>Z[4]：
ThenGoto
3：
IfEnd
23
P-Z[1]
→L：
90(2L-B)÷R÷π→Z[13]
24
Rsin(Z[13])+Z[8]
→Z[16]：R(1-cos(Z[13]))+Z[6]
→Z[17]
25
“XP=“：Z[21]+Z[16]cos(Z[20])-WZ[17]sin(Z[20])
→F
26
“YP=“：Z[22]+Z[16]sin(Z[20])-WZ[17]cos(Z[20])
→G
27
Z[20]+WZ[13]
→Z
28
Goto
5
29
Lbl
3
30
If
P>Z[5]：ThenGoto
4：IfEnd
Z[14]：C→Z[15]：Prog”SUB-HXY”31
Z[5]-P→L：L→
32
“XP=“：Z[23]Z[
16]cos(Z[19])－WZ[17]sin(Z[19])
→F
33
“YP=“：Z[24]Z[
16]sin(Z[19])＋WZ[17]cos(Z[19])
→G
34
Z[19]－90WLL÷(CRπ)
→Z
35
Goto
5
36
Lbl
4
37P－Z[5]
→L
38
“XP=“：X＋(T+L)cos(Z[19])
→F
39
“YP=“：Y＋(T+L)sin(Z[19])
→G




40
Z[19]
→Z
41
Lbl
5
42
If
Z<0：
ThenZ+360→Z：IfEnd
43
“BP=“：Z
DMS
44
If
U=0：ThenGoto
7：Else
Pol(F-U,G-V)：IfEnd
45
Lbl
6
46
If
J<0：ThenJ+360→J：IfEnd
47
“A1=“：J
DMS
48
“D1=“：I
49
Lbl
7
50
“DANGLE”?H：IfH=0：ThenGoto
0：IfEnd：?D
51
“XB=“：F+Dco
s(Z+H)
→Z[11]
52
“YB=“：G+Dsin(Z+H)
→Z[12]
53
If
U=0：ThenGoto
7：Else
Pol(Z[11]-U,Z[12]-V)：IfEnd
54
Goto
6

子程序
1：SUBQXYS1

行号程序说明
1
“ANGLE”?O：?R：”LS1”?B：”LS2”?C：”K(JD1)”?K
2
If
O<0：Then-1→W：Else
1→W：IfEnd：WO→A
3
B2÷24÷R－B^(4)÷2688÷R^(3)＋
B^(6)÷506880÷R^(5)
→
Z[6]
4
C2÷24÷R－C^(4)÷2688÷R^(3)＋
B^(6)÷506880÷R^(5)
→
Z[7]
5B÷2－B^(3)÷240÷R
2＋
B^(5)÷34560÷R^(4)
→
Z[8]
6C÷2－C^(3)÷240÷R
2＋
C^(5)÷34560÷R^(4)
→
Z[9]
7
“T1=“：Z[8]＋
(R＋
Z[7]－(R＋
Z[6])cos(A))÷sin(A)
→
S
8
“T2=“：Z[9]＋
(R＋
Z[6]－(R＋
Z[7])cos(A))÷sin(A)

→
T
9
“L=“：RAπ÷180＋
(B＋
C)÷2→
L
10
“LY=“：
L－B－C→
Q
11
“E=“：
(R＋
(Z[6]＋
Z[7])÷2)÷cos(A÷2)－R→
E
12
“K(ZH)=“：
KS→
Z[1]
13
“K(HY)=“：Z[1]＋
B→
Z[2]
14
“K(QZ)=“：Z[1]＋
L÷2＋
(B－C)÷4→
Z[3]
15
“K(YH)=“：Z[1]＋
L－C→
Z[4]
16
“K(HZ)=“：Z[4]＋
C→
Z[5]


子程序
2：SUB-HXY


行号程序说明
1IfZ[14]=0：Then0→Z[16]：0→Z[17]：Else2Z[14]－Z[14]^(5)÷40÷(RZ[15])2＋Z[14]^(9)÷3456÷(RZ[15])^(4)
→Z[16]
3Z[14]^(3)÷6÷(RZ[15])－Z[14]^(7)÷336÷(RZ[15])^(3)＋Z[14]^(11)
÷42240÷(RZ[15])^(5)→Z[17]
4IfEnd