请高手帮忙把它改成卡西欧5800P计算器程序

2024-12-16 16:06:40
推荐回答(1个)
回答1:

CAOGAO (超高加宽) (610步其中注释文317步)
Q“1SURU 2JISUAN”=2 => Goto 1⊿ X“JIAKUAN 1BILI-2GAOCI” Y“CAOGAO
1BIANXIAN 2ZHONGXIAN”B“LU KUAN” A“LUJIAN KUAN” C“LUGONG HENPO”
D“LUJIAN HENPO”E“CAOGAO HENPO” G“JIA KUAN” H“QIANDIAN ZUANHAO”
T“ZONGDIAN ZUANHAO”L“HUANHE LC”:C=0.01C: D=0.01D: E=0.01E:Fixm:
LbI 1 : { F }: F“ZHUAN HAO”≤0.5( H+T) => K=Abs ( F-H):
≠> K=Abs( F-T)⊿ K> L => K=L ⊿ M=A( D-C): N=A+0.5B:V=K÷L: U=AN-1 : X=1 =>
Z=VG:≠> Z=G( 4V∧3-3 V∧4)⊿ W=A( N+Z)-1 :Y=2 =>Goto 2: ≠> I=CL÷E⊿
O=V( AC+E( A+B)): K≤I => S=0.5BC: J=C( A+Z):≠>S=0.5BVE:J=VE( A+Z)⊿ Goto 3:
LbI 2 : I=2CL÷( C+E): O=NV( C+E): S=BC÷2: K≤I => J=C( A+Z): ≠>J=VE( N+Z)-S⊿
LbI 3 :“JIA KUAN=”: Z ◢ “ZHONGXIN CAOGAO=”: P=AD+S ◢
“LUJIWAI CAOGAO=”: Q=M+O◢ “LUJINEI CAOGAO=”: R=AD-J◢
“CEDAOWAI CAOGAO=”:O=Q-U( Q-P)◢“CEDAONEI CAOGAO=”: J=R+W( P-R) ◢ Goto 1

说明:
1.本程序启动后按键⑴进入输入数据,按键⑵进入输入待求点桩号.
2.询问加宽方式. 按键⑴进入直线比例; 按键⑵进入高次抛物线方式.
3.询问超高方式. 按键⑴进入按道路内边轴旋转; 按键⑵进入按道路中线旋转方式.
4.输入道路宽、路肩宽、路拱横坡度、路肩横坡度、园曲线超高横坡度、园曲线加宽值、
起点桩号、终点桩号、超高缓和段长度。
5.输入待求点桩号。
6.依次显示待求桩号的加宽值、道路中心超高、路基外边缘超高、路基内边缘超高、
行车道外边缘超高、行车道内边缘超高。
7.本程序能循环计算。数值输入时横坡度2.5%输入2.5数值。其他皆以米为单位