缓和曲线计算机编程,关于卡西欧fx-4850计算器--“缓和曲线计算”程序中的一些问题,请...
該樓層疑似違規(guī)已被系統(tǒng)折疊?隱藏此樓查看此樓
程序名:ZOU?BIAO
M"JD":G"J(X)":D"J(Y)":F:R:A"J(<)":I"LS":E"E(1,-1)"
T=(R+I2÷24÷R)tan(A÷2)+(I÷2-I3÷240÷R2):L=R(A-I÷R×180÷∏)×∏÷180
Z"ZH"=M-T:Z[3]"ZH(X)"=G-TcosF:Z[4]"ZH(Y)"=D-TsinF:Q"HY"=Z+I:S"YH"=Q+L:O"HZ"=S+I:H=F+AE:Z[5]"HZ(X)"=G+TcosH:Z[6]"HZ(Y)"=D+TsinH:
LbI?O
{K}
K≤Z?L=Z-K:U=F:X"X"=Z[3]-LcosF⊿?Y"Y"=Z[4]-LsinF⊿?Goto?6
K≤Q?Goto?2
K≤S?Goto?3
K≤O?Goto?5
K>O?L=K-O:N=H:U=N:Goto?1
LbI?1
X"X"=Z[5]+LcosN⊿?Y"Y"=Z[6]+LsinN⊿?Goto?6
LbI?2
L=K-Z:B=L-L5÷(40R2I2):C=L3÷(6RI):U=F+L2÷(2RI)×180÷∏×E:?Goto?4
LbI?3
L=K-Q:V=(L÷R+I÷2÷R)×180÷∏:B=RsinV+I÷2-I3÷(240R2):C=R(1-cosV)+I2÷(24R):U=F+(I÷(2R)+L÷R)×180÷∏×E:?Goto?4
LbI?4
X"X"=Z[3]+BcosF-ECsinF⊿?Y"Y"=Z[4]+BsinF+ECcosF⊿?Goto?6
LbI?5
L=O-K:?B=L-L5÷(40R2I2):C=L3÷(6RI):U=H-L2÷(2RI)×180÷∏×E:?X"X"=Z[5]-BcosH-ECsinH⊿?Y"Y"=Z[6]-BsinH+ECcosH⊿?Goto?6
LbI?6
{J}:J"J(0,1)"
J=0?Goto?0:≠?J=1?Goto?7:
LbI?7
{W,V}
Z[7]"Xz"=X+Wcos(U+V-180)⊿?Z[8]"Yz"=Y+Wsin(U+V-180)⊿
Z[9]"Xy"=X+Wcos(U+V)⊿?Z[10]"Yy"=Y+Wsin(U+V)⊿
Goto?0
計算帶有緩和曲線的路線的中、邊樁坐標(biāo)
M…轉(zhuǎn)點(diǎn)樁號?G、D…轉(zhuǎn)點(diǎn)坐標(biāo)
F…方位角?R…半徑
A…轉(zhuǎn)角?I…緩和曲線長
E…計算條件,左轉(zhuǎn)為-1右轉(zhuǎn)為1
T…切線長
K…計算樁號
前直線段
第一緩和曲線段
圓曲線段
第二緩和曲線段
后直線段
J…計算條件0轉(zhuǎn)入中樁1轉(zhuǎn)入邊樁
W…邊樁與中樁之間的距離
V…邊樁與中樁之間的任意夾角
在程序中“Z[3]、Z[4]、Z[5]、Z[6]?”等在卡西歐fx-4800里是好用的,但在卡西歐fx-4850中不能用了,請問這是什么回事?有什么好辦法處理啊,謝謝了!問題解決了我一定送上高分!各位朋友請進(jìn)吧,,
如有好的計算方法請多多指教哦!謝謝。
問題補(bǔ)充:上面的程序是在卡西歐fx4800計算器中為完整的計算程序,完全能完成任務(wù)的!
總結(jié)
以上是生活随笔為你收集整理的缓和曲线计算机编程,关于卡西欧fx-4850计算器--“缓和曲线计算”程序中的一些问题,请...的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 硬件电路之电源设计MP2359
- 下一篇: 最新开运网源码,运势测算网站源码