4800计算器放样程序.doc

4800计算器放样程序-1 L“L1”：E“L2”：B=180/π/R：Z［1］=L2/24/R：Z［2］=L/2 –L3/240/ R2：Z［3］=E2/24/R：Z［2］=E/2 –E3/240/ R2：O=tg—（（（R+ Z［3］）/（R+ Z［1］）-cosZ）/sin Z）：T=（R+ Z［1］）tgO+ Z［2］◢Z［6］“T2”=（R+ Z［3］）tg（Z-O）+ Z［4］◢A“ZH”=C“JD”-T◢Z［5］=A+Z/B+L/2-E/2：Lb1 0：W“1，-1”：｛K｝：｛H｝：K≤A=＞goto1⊿K≤A+L=＞goto2⊿K≤Z［5］=＞goto3⊿K≤Z［5］+E=＞goto4⊿goto5：Lb1 1：“ZH”：G=A-K：J［1］=F+180：U=F： goto6：Lb1 2：S=K-A : G=√（（S-S5/40/R2/L2）2+（S3/6/R/L-S7/336/R3/L3）2）：J［1］=F+WBS2/6/L：U= F+WBS2/2/L：goto6：Lb1 3：S=K-A-L：X=R sin（BL/2+BS）+ Z［2］：Y=R-Rcos（BL/2+BS）+ Z［1］：G=√（X2+Y2）：J［1］=F+W tg—（Y/X）：U=F+W（BL/2+BS）：goto6：Lb1 4：S= Z［5］+E-K：Y= Z［6］sinZ-（S-S5/40/R2/E2）sinZ+（S3/6/R/E-S7/336/R3/E3）cosZ：X= T+Z［6］cosZ-（S-S5/40/R2/E2）cosZ-（S3/6/R/E-S7/336/R3/E3）sinZ：G=√（X2+Y2）：J［1］= F+W tg—（Y/X）：U=F+W（Z- BS /2/E）：goto6：Lb1 5：“HZ”：G=K- Z［5］-E ：J［1］= F+W Z：U= J［1］：｛V｝：X=M+（Z［6］+G）cos J［1］+H cos（U+90V）◢Y=N+（Z［6］+G）sinJ［1］+Hsin（U+90V）◢goto7：Lb1 6：｛V｝：X=M+Tcos （F-180）+G sinJ［1］+Hcos（U+90V）◢Y=N+Tsin（F-180）+GsinJ［1］+Hsin（U+90V）◢Lb1 7：prog“ZBFY”：goto0 ZBFY I=0：J=0：X“XA”： Y“YA” P“XB”： Q“YB”：pol（X-P，Y-Q）：J＜0=＞J+360⊿I“SS”=I ◢J“AA”=J◢ L1，L2—缓和曲线 R—半径 Z—偏角 JD—交点桩号 W—左-1，右1 K—所计算中桩桩号 F—直缓点与交点方向的方位角 M—交点X坐标 N—交点Y坐标 H—中桩至边桩的距离 V—左边桩-1，右边桩1 X，Y—所计算中桩（或边桩）的坐标 XB，YB—置仪点坐标 SS—距离 AA—方位角 √—根号 注：直线段上的坐标、方位角、距离，要用下一个曲线的交点坐标、交点桩号和曲线要素来计算。 4800计算器放样程序-1 F1—ZB 1、 {O}：O″Z/Y[-1/1]″ 2、 P ″PJ″：R″R″：L″LS″：D″ZH″ ：C″FWJ″：A″ZHX″：B″ZHY″： U″Z.X″：M″Z.Y″：I″F.X″：Z″F.Y″ 3、 T=（R+L2/24/R）tan(P/2)+L/2- L3/240/ R2 4、 LbI X： {N}：N″K″ 5、 N=0＝＞Goto Z：≠＞Goto E⊿ 6、 LbI E: K=PRπ/180-L 7、 {G}：G″LK″：S=N-D 8、 S0＝＞Goto G：≠＞Goto H⊿ 9、 LbI G：X=S：Y= -G 10、Goto Y 11、LbI H：S2L+K＝＞Goto A：≠＞Goto B⊿ 12、LbI A：S= S-2L-K 13、X=T +(T+S）COS P+ O G Sin P：Y= O Sin P（T+S）-G COS P 14、Goto Y 15、LbI B：S≤L＝＞Goto 3：≠＞Goto 2⊿ 16、LbI 3：Q=90 S2/R/L/π： X=S- S5/40/ R2/ L2+OG Sin Q：Y=O（S3/6/R/L- S7/336/R3/L3）- G COS Q：Goto Y 17、LbI 2：S≤L+K＝＞Goto 5：≠＞Goto 6⊿ 18、LbI 5：Q=180 ( L/2/R+(S-L)/R)/π： X=R Sin Q +L/2-L3/240/ R2+OG Sin Q：Y=O（R(1- COS Q)+L2/24/R）- G COS Q：Goto Y 19、LbI 6：S=2L+K+D-N 20、E=