TI单曲线编程.pdf
《TI单曲线编程.pdf》由会员分享,可在线阅读,更多相关《TI单曲线编程.pdf(5页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、1 TI 单曲线编程案例讲解 NO 代码 说明 1 Define a.qx()=设置 a.qx 用 a 和点号启动程序 2 Prgm 自动生成的程序开始部分 3 RequestStr 重输起点 0 否 1,zq,0 字符串设置是否重输起点数据 4 z:=expr(zq)转换字符串为数值函数 5 If z=0 Then 条件语句开始部分 6 RequestStr 起点方位角,h,0?小数点输入方位角 7 expr(h)转换字符串为数值函数 8 0:=iPart()+(fPart()/(0.6)+(fPart(100*)/(90)把小数输入的角度转换为度 9 Request 起点 X,x0,0 提
2、示输入起点坐标 X 10 Request 起点 Y,y0,0 提示输入起点坐标 Y 11 Request 起点桩号,k0,0 起始输入起点桩号 12 Request 终点桩号,kz,0 终点桩号 13 Request 起点半径,r1,0 起点半径 14 Request 终点半径,r2,0 终点半径 15 Request 左偏-1 右 1,0?曲线走向,左负右正 16 EndIf 结束条件语句 17 setMode(2,2)?设置角度为度数 18 ls:=kz-k0 计算全线曲线长 19 If r1=0 Then 计算起点曲率 20 1:=0 防止 R=0 时的数学错误 21 Else 22 1
3、:=(1)/(r1)23 EndIf 结束条件语句 24 If r2=0 Then 计算终点曲率 25 2:=0 防止 R=0 时的数学错误 26 Else 27 2:=(1)/(r2)?28 EndIf 结束条件语句 29 RequestStr 正算 0 反算 字符串设置正算输 0 反算 1 30 字符串转换为数值 31 If z=0 Then 正算 32 Request 桩号&string(k0),ki,0 输入桩号,提示起点桩号 33 If kikz+0.005 Then 设置桩号超出范围的条件语句 34 Text 桩号超出范围,0?显示超出范围 35 Stop 终止程序 36 EndI
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- TI 曲线 编程
限制150内