| 首页 » 测量源码 » casio 4800 |
万能程序 -jlt11 |
| 时间:2017-04-06 16:55:27,点击:0 |
由本站论坛 jlt11 提供,谢谢!! (T的取值范围2〈=T〈=12 且必须为偶数) Lbi 0:{EG}:A“XA”:B“YA”:C“JA”:D“1/RA”:E“1/RB”:F“KA”:G“KB” Lbi 1:{HORM}:H“K”:O“DL”:R“DR”:M“jj”:H﹥G=﹥Goto3⊿ P=(E-D)/ABS(G-F) Q=ABS(H-F) I=P×Q J=C+(I+2D)Q×90/π J:J﹤0=﹥J=J+360⊿ U=0:V=0:W=0:Z=0 S=T LbI 4: U=U+cos(C+(I*(2*S-1)/(2*T)+2*D)*(Q/2)*(2*S-1)/(2*T)*180/π) V=V+sin(C+(I*(2*S-1)/(2*T)+2*D)*(Q/2)*(2*S-1)/(2*T)*180/π) DSZ S Goto 4 S=T-1 Lbi 5 W=W+ cos(C+(I*S/T+2*D)*(Q/2)*(S/T)*180/π) Z = Z+ sin(C+(I*S/T+2*D)*(Q/2)*(S/T)*180/π) DSZ S Goto 5 J=J▲ X=A+Q/(6T)*(cosC+4U+2W+cosJ)▲ Y=B+ Q/(6T)*(sinC+4V+2Z+sinJ)▲ U“XL”=X+Ocos(J-M)▲V“YL”=Y+Osin(J-M)▲ W“XR”=X+Rcos(J+180-M)▲Z“YR”=Y+Rsin(J+180-M)▲ Goto 1 Lbi 3:A=X:B=Y:D=E:F=G:C=J:Goto 0 参数的意义:XA---起始点X坐标 YA---起始点Y坐标 JA---起始点方位角 1/RA---起始点曲率(半径倒数,曲线左偏用“—”:曲线右偏用“+”) 1/RB---终点曲率(半径倒数,曲线左偏用“—”:曲线右偏用“+”) KA---起点里程 KB---终点里程 K---待求点里程 DL---左边桩至中桩距离 DR---右边桩至中桩距离 J---待求点方位角 X---待求点X坐标 Y---待求点Y坐标 XL---左边桩X坐标 YL---左边桩Y坐标 XR---右边桩X坐标 YR---右边桩Y坐标 JJ---与路线交角(左角) |
| 【打印】【关闭】 |
本站的部分源程序是由站长由网络收集整理的,如有侵权,请告之,我会第一时间删除相关内容。 因时间原因,源码不可能每一个都进行了测试,所以不能保证源码全是正确的,提供源码只是提供一份思路,一个参考,方便写出专属于您自己的程序 |
|
Copyright 2003-2026 测量天地
(SurveySky.Com)
All Rights Reserved.
备案许可证:新ICP备12001392号-1 | 关于我们 | 联系我们 |网站留言| |