(1906B)适用于Casio Fx-5800P计算器的道路中线放样程序(单交点)

【程序说明】

程序名称：CENTER-LINE（随意改动）

本程序为Casio Fx-5800P计算器的非对称型单交点中边桩放样程序（有斜交功能）

以下代码中的“▲”代表计算器的“显示”符号

符号“△DMS”是“将十进制度转换成六十进制度”的符号

大家输入计算器时同时要注意数字“0”和字母“o”的肉眼区别

另外：黑粗体为关键字(计算器内部已有)

________________________代码开始________________________

Deg:6→DimZ:90→Z[3]

"JDX"?E:Cls:"JDY"?F:Cls:"ST(JD)"?G:Cls:"TA(L-R+)"?B

Cls:"R"?R:Cls:"LS1"?M:Cls:"LS2"?N

Cls:Locate 1,3,"   WAIT......"

If B<0:Then -1→Z[1]:Else 1→Z[1]:IfEnd

Asb(B)πR÷180-(M+N)÷2→L

L+M+N→I

N→S:1→Z

Lbl T

S^2÷(24R)-S^4÷(2688R^3)+S^6÷(506880R^5)→Z[4]

S÷2-S^3÷(240R^2)+S^5÷(34560R^4)→o

If Z=1:Then 0→Z:M→S:Z[4]→U:o→V:Goto T:IfEnd

(R+U-(R+Z[4])cos(Abs(B)))÷sin(Abs(B))+o→Z[2]

Cls:"C-L  =":Locate 7,1,L

"ALL-L=":Locate 7,2,I

If M=N:Then "T1=T2=":Locate 7,3,Z[2]▲

Else (R+Z[4]-(R+U)cos(Abs(B)))÷sin(Abs(B))+V→S

"T1   =":Locate 7,3,Z[2]

"T2   =":Locate 7,4,S▲

IfEnd

Cls

"ST(ZH)=":G-Z[2]→D:Locate 8,1,D

"ST(HY)=":D+M→Z:Locate 8,2,Z

"ST(QZ)=":Z+L÷2→Z:Locate 8,3,Z

"ST(YH)=":Z+L÷2→Z:Locate 8,4,Z▲

Cls

"ST(HZ)=":Z+N→Z:Locate 8,1,Z▲

D-0.1^8→Q:0→W

Lbl A:Cls

"X(J)"?K:Cls:"Y(J)"?T:Cls:"X(H)"?C:Cls:"Y(H)"?P

................(待续).................

请到本页最下面直接下载完整版本使用

【斜交功能演示图片如下】

【计算器显示流程如下】