我就只有这么一个:计算器CASIO-4500PA坐标计算程序7 ØØ
L1 D“JD-ZH”:A“LX-ZJ”:S=AbsA/A: C“LS”:P=C2/24R-C4/2688R3:Q=C/2-C3/24ØR2:
L2 T=(R+P)tgAbs.5A+Q◢W“E”=(R+P)/cos.5A-R◢
L3 L= AbsAπR/18Ø+C◢G“ZH”=D-T◢H“HY”=G+C◢I“QZ” =G+L/2◢K“YH”=G+L-C◢ M“HZ”=G+L◢
L4 N“JD-X”:E“JD-Y”:F“FWJ”: U=F+A/2+9ØS:V=W+R:B=N+VcosU:O=E+VsinU:
L5 LbI 1: {ZW}: Z“JS-ZH”:W“JZ-JULI”:
L6 Z≤G=>L=Z-D:V=F:U=F:Goto 2⊿
L7 Z≤H=>L=Z-G:V=L-L5/9ØR2C2:L=30SL2/πRC:P=F+18Ø:Q=F+L:U=F+3L:Goto 3⊿
L8 Z≤K=>L=F+A/2+18Ø+9ØS+(Z-I)×18ØS/Rπ:U=L+9ØS:Goto 4⊿
L9 Z≤M=>L=M-Z:V=L-L5/9ØR2C2:L=3ØSL2/πRC :P=F+A:Q=P+18Ø-L:U=P-3L:Goto 3⊿
L10 Z > M=>L=Z-M+T:U=F+A:V=U:Goto 2⊿
L11 LbI 2:X=N+LcosV◢Y=E+LsinV◢Goto5⊿
L12 LbI 3:X=N+TcosP+VcosQ◢Y=E+TsinP+VsinQ◢ Goto5⊿
L13 LbI 4:X=B+RcosL◢Y=O+RsinL◢Goto5⊿
L14 LbI 5:W=0 => Goto1⊿≠> Goto6⊿
L15 LbI 6:P“XL”=X+Wcos(U-9Ø)◢Q“YL”=Y+Wsin(U-9Ø)◢
P“XR”=X+Wcos(U+9Ø)◢Q“YR”=Y+Wsin(U+9Ø)◢ Goto1⊿
备注 A:转角值 JD(D):交点桩号 R:半径 LS(C):缓长 T:切线长
L:曲线长度 E(W):外距 ZH(G): HY(H): QZ(I): YH(K): HZ(M):
S:判断偏角系数 N、E:交点X、Y坐标 F:方位角 Z:计算点桩号 W:边桩距离中桩距离,如计算中桩则为0 X、Y:计算点X、Y坐标 W:计算点距中桩距离 XL、YL:计算点左边桩的坐标 XR、YR:计算点右边桩的坐标 P:内移值 Q:切线增值
4500没有,4800.5800倒是有不少