5800全线中边桩坐标程序支持匝道）.docxVIP

5800全线中边桩坐标程序支持匝道（25 句编程实现）（带数据库实践验证）你厌烦了 ?大堆文件名，程序名？厌烦了原始数据要在程序输入？厌烦了为了 ? 个新程序，光文件输入及调试就要2天，出错了也不清楚在哪里？ 文件名：SXY21 32-DimZ:Deg: 193-Z[32] :Lbl 0:?L (输入所求的桩号) 2 For 1-M To 188 Step ll:If (List Y[M+X],X, 0, 5):Then Break:I fEnd:Next: 3 If M=Z[32]:Then Goto l:Else M-Z[32]:IfEnd: 40-Z[l]:For 2-B To 7 :Z[B-1]+List Y[M+B-2]-Z[B]:Next5 For 8-N To 19:If N=19 Or N^10:Then 0-Z[N] 6 Else If 14:Then List Y[M+6]-Z[N]7 Else List Y[M+7]-Z[N]:IfEnd:IfEnd:Next 8 For 3-B To 6 :Z[B]-Z[B-1]-S : Prog QQ”: 0 哦-Z[3B+11]:P-Z[3B+12]:V-Z[3B+13]:Next9 Lbl 1 10 For 2-B To 7:If L^Z[B]:Then Break:IfEnd:Next11 If B=2:then L-Z[B]-S:Goto 2:IfEnd 12 If LWZ[B]:then L-Z[B-l]-S:Lbl 2:Prog QQ〃：IfEnd13?D:〃AR〃?T(询问离中桩的距离D,左侧输入负值。右偏角AR (输入度 分秒)，以计算边桩坐标)。 14 If V0:Then V+360-V: IfEnd:A:V -〉DVS/15If D0:Then XL:Else 〃XR〃： IfEnd:0 哦+Dcos(V+T) / 16If D0:Then YL〃:Else 〃YR”:IfEnd:P+Dsin(V+T) /17 Goto 0 文件名：QQ1 If BW3:then List Y[M+8]-A:List Y[M+9]-G:List Y[M+10]-E:Else 2Z[3(B-1)+11]-G:Z[3(B-1)+12]-E:Z[3(B-1)+13]-A:IfEnd3 Rad:Z[B]-Z[B-l]-Q:If Z[2B+4]=0:then 0-R:Else l/Z[2B+4]-R:IfEnd 4 If Z[2B+5]=0:then 0-H:Else l/Z[2B+5]-II:IfEnd5 G+/ (cos(An/180+RX+(H-R)X2/(2Q)),0,S)-〉。哦 6 E+Z (sin(An/180+RX+(H-R)X*2/(2Q)), 0, S)-P( ’2 就是平方)7 (An/180+RS+ (H-R)S^2/(2Q))*180/n-V 8 Deg使用说明： 1\输入程序2\本程序所用的想法是把（宜线+缓和曲线+圆曲线+不完整缓和曲线 +圆曲线+缓和曲线，其中各个局部均支持长度为零）作为一个整体来考虑（你可以 想成一个大线元）.（综合曲线支持复曲线,S曲线）。这个程序即是放大版的线元 法，理论上支持任意曲线。 3\输入图纸原始数据.进入能进行普通4那么运算状态.在计算器正常状态下,按M0 DE键+4键，进行数据输入。 其中，丫串列第一缓和曲线起点桩号（ZH点或ZY点） 第一缓和曲线长度（可以为零）当为零时，输入0一圆曲线长度（一定存在，或虚拟存 在。）不完整缓和曲线长度（可以为零）当为零时，输入0.00000 001） 第二圆曲线长度（可以为零））当为零时，输入0.第二缓和曲线长度（可以为零））当为零时，输入0. 00000 001第一圆曲线半径（曲线左偏取负值）（一定存在） 第二圆曲线半径（曲线左偏取负值）当没有时，输入0第一缓和曲线起点方位角 第一缓和曲线起点X坐标第一缓和曲线起点Y坐标 好了,你已经完成了一个综合曲线原始数据的输入。当为普通带缓和曲线单圆曲 线时，第4、5项为零。当为普通不带缓和曲线单圆曲线时，第2、4、5、6项为 零。 如果你还有第2个，3个综合曲线，依次往下输入。 （关于数据输入，如果用普通线元法，你需要输入32-48个原始数据来替代这1 1个数据，至少在数据管理方面，你简单了 3-5倍） 4、退出数据输入，按按MODE键+1键. 5、按FILE键，运行SXY2程序。 6、输入你想要计算的桩号。按EXE键。 7、0K,已经得出你想要的结果了。结束。 上传附件中有例子。 这个程序修改后，其实对CASI09860更适合。还有作为第3步的数据输入，可以 编一个数据输入程序，更加0K