casio完整曲线程序.docVIP

实习生 个人空间 发短消息 加为好友 当前离线 1# 发表于 2006-6-3 12:00? 只看该作者 casio4800完整曲线程序 casio4800完整曲线程序 文件名:WZQXDefm5 LBI 1：C“L1”：D“L2”：R：F“A1”：F“A2”：H“XB”：V“YB”：Z“XE”：P“YE”：G“ZH”：U“HZ”：E：N“L（1），R（－1）”：｛K，W，Q｝K≥（G+C）＝＞ GOTO 3△ X＝C：Y=F：Z［5］=V：T=H：S=N：Z［4］=1：L=（K－G）LBI 2：B=L2÷（2×R×X）×180÷πZ［3］=L－L5÷（40×R2×X2）+L9÷（3456×R4×X4）－L13÷（599040×R6×X6）：M=L3÷（6×R×X）－L7÷（336×R3×X3）+L11÷（42240×R5×X5）：GOTO 4△LBI 3：K≤（U - D）＝＞ X＝C：Y=F：Z［5］=V：T=H：S=N：Z［4］=1：M=X÷2－X3÷（240×R2）+X5÷（34560×R4）：B=180÷（π×R）（K－G－X÷2）Z［3］=R×SIN B+MM=R（1－COS B）+X2÷（24×R）－X4÷（2688×R3）+X6÷（506880×R5）：GOTO 4△ L=（U－K）：X=D：Y=A：S=－N：Z［5］=P：T=Z：Z［4］=－1：GOTO 2△LBI 4：L（Y－S×TAN-1（M÷Z［3］）：I=POL（M，Z［3］）：Z［1］=COS L×I+T：Z［1］“XM”▲Z［2］=SIN L×I+ Z［5］：Z［2］“YM”▲O“JJ”：Q“R，JU，LI”：W= Z［1］+COS（Y－S×B+O×Z［4］）×（Q+E）：W“XR=” ▲W= Z［2］+SIN（Y－S×B+O×Z［4］）×（Q+E）：W“YR=”▲GOTO 1带缓和曲线的圆曲线计算完整程序L1：第一缓和曲线长度? ?L2：第二缓和曲线长度? ?A1：曲线第一方位角? ?A2：曲线第二方位角? ? R：曲线半径? ???XB：曲线起点X轴坐标? ?? ?YB：曲线起点Y轴坐标? ?? ?XE：曲线终点X轴坐标? ?? ?YE：曲线终点Y轴坐标? ???HZ：曲线起点里程? ?ZH：曲线终点里程? ?E：线路中心偏移值(一般用于结构物中心方向与线路中心不重合)? ?? ?? ?? ?? ?L（1），R（-1）：线路方向左右偏? ?? ???K：计算点里程? ?? ?? ?XM，YM：计算点坐标? ?? ?? ?JJ：与线路交角R，JU，LI：边桩距离输入? ?? ?? ?? ?XR，YR：边桩坐标注：??F“A2”改为AA2L（Y－S×TAN-1（M÷Z［3］）改为:L=（Y－S×TAN-1（M÷Z［3］））R，JU，LI：边桩距离输入左为－，右为+相对来说还是要简单一些，比较适合大长线路，虽然进每个曲线或直线要输入曲线要素，相对来说还是比较方便的。需要另外加入一个曲线要素的数据库，麻烦各位前辈多多指导！！ 搜索更多相关主题的帖子: 曲线 程序 UID 9267? 帖子 7? 精华 0? 积分 0? 注册 2006-6-3? 阅读权限 10? 来自 ? 威望 0 工程币? 金钱 0 ? 查看详细资料 TOP hjbbs 实习生 个人空间 发短消息 加为好友 当前离线 2# 发表于 2006-6-3 12:02? 只看该作者 有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序 有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序 四、QXZB(曲线坐标)A〝ZH(ZH)=〞:B〝X(ZH)=〞:C〝Y(ZH)=〞〝X(HZ)=〞:E〝Y(HZ)=〞:F〝FWJ-1=〞:G〝FWJ-2=〞:H〝R=〞:I〝L1=〞:J〝L=〞:K〝L2=〞:L〝ZJ(Z=1,Y=-1)=〞O=180/pi (pi为圆周率，电脑中找不到此符号以此代替)LbI A{MN}M〝ZHUANG HAO=〞P=M-AMM(A+I+J+K)?GOTO A⊿N〝ZHUANG JU(Z+,Y-)=〞M(A+I+J)?GOTO D⊿M(A+I)?GOTO C⊿LbI B(第一缓和曲线)X=B+(P-(P5÷40÷H2÷I2))COSF+(P3÷6÷H÷I-P7÷336÷H3÷I3)LSINFY=C+(P-(P5÷40÷H2÷I2))SINF-(P3÷6÷H÷I-P7÷336÷H3÷I3)LCOSFX=X+NCOS(F-(P2÷2÷H÷I)OL-90)◢ Y=Y+NSIN(F-(P2÷2÷H÷I)OL-90)◢ GOTO AL