卡西歐,程序,使用

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]：Then Goto 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] ： Then Goto 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] ： Then Goto 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]：Then Goto 4：IfEnd
31 Z[5]-P→L：L→Z[14]：C→Z[15]：Prog”SUB-HXY”
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
37 P－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 ： Then Z+360→Z：IfEnd
43 “BP=“：Z DMS
44 If U=0：Then Goto 7：Else Pol(F-U,G-V)：IfEnd
45 Lbl 6
46 If J<0：Then J+360→J：IfEnd
47 “A1=“：J DMS
48 “D1=“：I
49 Lbl 7
50 “D ANGLE”?H：IfH=0：Then Goto 0 ：IfEnd ：?D
51 “XB=“：F+Dcos(Z+H) →Z[11]
52 “YB=“：G+Dsin(Z+H) →Z[12]
53 If U=0：Then Goto 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]
5 B÷2－B^(3)÷240÷R2＋B^(5)÷34560÷R^(4) →Z[8]
6 C÷2－C^(3)÷240÷R2＋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)=“：K－S→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