单圆曲线切线支距法中桩放样要素计算程序PM4-2.pdfVIP

下载本文档

39
0
约8.14千字
约 3页
2017-08-11 发布于浙江
举报
版权申诉

单圆曲线切线支距法中桩放样要素计算程序PM4-2.pdf

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

单圆曲线切线支距法中桩放样要素计算程序PM4-2

覃辉编著图书光盘附单交点单圆曲线切线支距法中桩放样要素计算程序(PM4-2) SINGLE CIRCLE CURVE 显示程序标题1 TANGENT OFF-SET METHOD PM4-2 显示切线支距法标题2 Deg:ClrStat:FreqOn:Fix 3 基本设置 4 DimZ 定义额外变量 JD MILEAGE PEG(m)=?Z 输入以m 为单位的交点桩号 TURNING ANGLE -L,+R(Deg)=?Q 输入交点路线转角,左偏为负,右偏为正 Q Z[4]:Abs(Q) D 保存转角及符号 R(m)=?R 输入圆曲线半径 Rtan(0.5D) T 计算切线长 RD π÷180 L 计算曲线长 R(cos(0.5D)-1-1) E 计算外距 2T-L J 计算切曲差 T(m)=:T 显示切线长 L(m)=:L 显示曲线长 E(m)=:E 显示外距 J(m)=:J 显示切曲差 Z-T Z[1] 计算ZY 点桩号 Z[1]+0.5L Z[2] 计算QZ 点桩号 Z[2]+0.5L Z[3] 计算YZ 点桩号 ZY PEG(m)=:Z[1] 显示ZY 点桩号 Z[1] List X[1]:0 List Freq[1] 存储ZY 点桩号 Z[2] List X[2] 存储QZ 点桩号 2 K 为计数变量赋初值 Prog SUB4-21 调子程序计算并显示QZ 点的切线支距 Z[3] List X[3]:0 List Freq[3] 存储YZ 点桩号 YZ PEG(m)=:Z[3] 显示YZ 点桩号 3 K 为计数变量赋初值 If R30:Then 5 I:Else If R60:Then 10 I:Else 20 I:IfEnd:IfEnd 确定整桩间距 INT DIST(m)=?O 输入整桩间距 If O0:Then O I:IfEnd 输入的整桩间距大于零时，使用输入值 ONLY CALC +PEG(1)? G 输入 1 为只计算加桩点的切线支距 If G=1:Then Goto 1:IfEnd K+1 K 计数变量计数 Int(Z[1] ÷I)I+I List X[K] 计算并存储从ZY 点开始的第一个整桩号 Prog SUB4-21 调子程序计算并显示切线支距 Do 计算ZY 点至YZ 点 K+1 K