不等长缓和曲线程序.doc

不等长缓和曲线程序.doc 建筑上用到的一些资料
CASIO-48X0程序 本程序适用于CASIO- 48X0,可计算一个交点的五个部分的中边桩（直－缓－圆－缓－直），缓和曲线可以是 不等长的． P=C2/(24R)-C^4/(2384R^3):Q=C/2-C^3/(240R2):M=I2/(24R)-I^4/(2384R^3): N=I/2-I^3/(240R2):T=(R+M-(P+R)cosA)/sinA+Q:E=(R+P-(P+M)cosA)/sinA+N: L=∏RA/180-(C+I)/2 LBL0 [J,S,F]:J:S:F Z=J-G+T:Z≤0=>Goto1:≠>Z≤C=>Goto2:≠>Z=J-G+T-C:Z≤L=>Goto3: ≠>Z=J-(G-T+L+I+C):Z≤C=>Goto4:≠>Goto5 LBL1 W=Z:V=B:o=B Goto8 LBL2 D=Z-Z^5/(40R2C2):V=Z3/(6RC):o=90Z2/(∏RC) Goto6 LBL3 D=Rsin((180Z+90C)/(∏R))+Q:V=R(1-cos((180Z+90C)/(∏R)))+P:o=(180Z+90C)/(∏R) Goto6 LBL4 D=Z-Z^5/(40R2I2):V=Z3/(6RI):W=√(D2+V2):V=tan-1(V/D):A≤0=>V=B+A+V+180: o=B+A+90Z2/(∏RI):≠>V=B+A-V+180:o=B+A-90Z2/(∏RI) Goto7 LBL5 W=Z:V=B+A:o=V Goto7 LBL6 W=√(D2+V2):V=tan-1(V/D):A≤0=>V=B-V:o=B-o:≠>V=B+V:o=B+o Goto8 LBL7 H=X+Ecos(B+A)+WcosV K=Y+Esin(B+A)+WsinV Goto9 LBL8 H=X-TcosB+WcosV K=Y-TsinB+WsinVGoto9 LBL9 "X=":H=H+Fcos(o+S) "Y=":K=K+Fsin(o+S) Goto0 A─偏角（左负右正，国际惯例） B─方位角（该交点与前一交点之间的） C－
第一缓和曲线长 I－
第二缓和曲线长 R－半径 G－交点桩号 X－交点X坐标 Y－交点Y坐标 J－所求点桩号 S－所求边桩与路线夹角（左负右正） F－所求边桩与路线间距离 本程序本着最简最实用的目的，并参照了网上的一些程序，有什么问题或更简的方法可 与我联系QQ365054213