平面曲线计算程序

《平面曲线计算程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、CASI04800通用组合型平曲线坐标计算程序程序代码:“JAKE”V=Z[3]」{V}:V,,CELECT,」Z[3]=V^1Z[4]=14-JZ[1J=Z[V+3JA=O--J{A}:A”BL：0,XG：HO”』A^^Goto0tSUVV=Z[Z[11+H^{W}』Z[Z[1]+1]=W^JZ[2]=Z[l]+W+3--JG=Z[2]」K=Z[Z[1]]」{K}:K“KO”:Z[Z[1]]=K-JQ=0」Lbl1:C=Z[1]+2:Q=Q+1-^O=Z[C+Q]:L=Z[G+3]:R=Z[G+4]:F=Z[G+5]:E=Z[G+4]:B=Z[G+6]」{O}:O”Z:1,Y:

2、2,H:3,N：4"」Z[C+Q]=()-dA=Z[G]:M=Z[G+l]:N=Z[G+2]』{A,M,N}」Z[G]=A:Z[G+1]=M:Z[G+21=N-JO=1=^{L):Z[G+3]=L:G=G+4:輕*O=2=^{R,F,L}:Z[G+3]=L:Z[G+4]=R:Z[G+5]=F:G=G+6:奘7O=3^{E}:E,,1/R1,,:Z[G+4]=E:{B}:B,,1/R2,,:Z[G+6]=B:{F,L}:Z[G+3]=L:Z[G+5]=F:G=G+7：^^J=Z[G+8)：P=Z[G+7]：{E)：E“1/R1”：Z[G+4]=E：{B}：B“l/R2”：Z[G+6

3、]=B：{F,L)：Z[G+5]=F：Z[G+3]=L：{J}：J“L2”：Z[G+8]=J：{P}：P“NY”：Z[G+7]=P：G二G+9WkJDszV亠1GotoV^10^Z[V+4]=GN-JLbl0:{S}:S,,K,,:K=S：Z=l-JK=K-Z[Z[1]]丄Q=0:C=Z[l]+2：W=Z[Z[11+1]：G二Z[l]+W+3』Lbl2:Q=Q+l:L=Z[G+3]」K

4、G二G+9tSNKLJGoto2」Lbl4:A=Z[G]:M=ZlG+l]:N=Z[G+2]:Z[C+Q]=1芋Prog“ZX”：导歹ZIC+QJP^Prog“YQX":矢#Z[C+Q]=3芋Prog“HIT:笑歹Prog“N”MSJlkLJP=Z[Z[ll+2]」{P}」Z[Z[1]+2]=P^JX二X+Pcos(A+90)亠Y=Y+Psin(A+90)亠A<0^A二A+364UJp二吕A'FWj'MiKUGoto0」“zx，，L=Z[G+3]」X=M+KcosA:Y二N+KsinA』“YQX”L=Z[G+3]:R=Z[G+4]:F=Z[G+5]」U=90K/ji/R:H=2R

5、sinU:U=A+FU:X=M+HcosU:Y=N+HsmU:U=U+F(90K/Ji/R)：A=U^J“HH”L=Z[G+3]」Z=0^L=Z[G+8]MJF=Z[G+5]:C=F*Z[G+4]:I=F*Z[G+6]』P=(I-C)/L^JI二PK』J二A+(I+2C)K*90/Ji』B=A+(I/4+2C)K*45/(2ji)丄D=A+(3I/4+2C)K«135/(2Ji)」U=A+(I/2+2C)K*45/Ji」X=M+K/12*(cosA+4(cosB+cosD)+2cosU+cosJ)」Y=N+K/12*(sinA+4(sinB+sinD)+2sinU+sinJ)」A

6、=j-J“N”L=Z[G+8]：C=Z[G+4J：I=Z[G+6]：W=Z[G+7]」P=L/Abs(I-C)』B=C-JI

7、立）PASS:0,RESET:H0采用上一次的设置输入0（默认为0）,重新设置请输入非0的数A线型段起点切线方位角M线型段起点X坐标N线型段起点Y坐标K0线路起点里程L线路中对应某曲线段的长度L2选择第4种线型时出现，表示与内移曲线相对应的外围缓和曲线的对应弧长NY缓和曲线内移量（外移输入负值）R线路中圆曲线段的半径1/R1线路中缓和曲线起点曲率半径的倒数1/R2线路中缓和曲线终点曲率半径的倒数F线路中对应曲线段前进方向的转向（往左为-1,往右为+1）K测点里程W线路中曲线段的数