fx-5800_线路放样(RCOOR)[交点法].docx

RCOOR

“X(JD1)=”?→X:”Y(JD1)=”?→Y:”X(JD0)=”?→M:”Y(JD0)=”?→N:”PJ”?→A:”R”? →R:”LS1”?→B:”LS2” ?→C:”JD”?→K:26→DimZ
Pol(X—M,Y—N)
J→Z[20]:J+A→Z[19]:Abs(A) →Z[10]
IfA＞0:Then1→W:Else-1→W:IfEnd
B²÷（24R）—B^(4)÷（2688R^(3)）＋B^(6)÷（506880R^(5)）—B^(8) ÷（1548228800R^(7)）→Z[6]
C²÷（24R）—C^(4)÷（2688R^(3)）＋C^(6)÷（506880R^(5)）—C^(8) ÷（1548228800R^(7)）→Z[7]
B÷2—B^(3)÷（240R²）＋B^(5)÷（34560R^(4)）→Z[8]
C÷2—C^(3)÷（240R²）＋C^(5)÷（34560R^(4)）→Z[9]
“T1=”:Z[8]＋（R＋Z[7]—（R＋Z[6]）cos（Z[10]））÷sin（Z[10]）→S◢
“T2=”:Z[9]＋（R＋Z[6]—（R＋Z[7]）cos（Z[10]））÷sin（Z[10]）→T◢
“L=”:RZ[10]π÷180＋（B＋C）÷2→L◢
“LY=”:L—B—C→Q◢

“E=”:（R＋Z[6]＋Z[7]÷2）cos（Z[10]））÷sin（Z[10]÷2）—R→E◢ 【原问题语句】
“E=”:（R＋（Z[6]＋Z[7]）÷2）÷cos（Z[10]÷2）—R→E◢【更正语句】
“ZH=”:K—S→Z[1]◢
“HY=”:Z[1]＋B→Z[2]◢
“QZ”:Z[1]＋L÷2＋（B—C）÷4→Z[3]◢
“YH=”:Z[1]＋L—C→Z[4]◢
“HZ=”:Z[4]＋C→Z[5]◢
X—Scos（Z[20]）→Z[21]:Y—Ssin（Z[20]）→Z[22]
X＋Tcos（Z[19]）→Z[25]:Y＋Tsin（Z[19]）→Z[26]
B→Z[8]:B→Z[9]:Prog“HXY”
Z[21]＋Z[6]cos（Z[20]）＋Z[7]cos（Z[20]＋90W）→Z[23]
Z[22]＋Z[6]sin（Z[20]）＋Z[7]sin（Z[20]＋90W）→Z[24]
Lbl 0
“P”?P
IfP＞Z[1]:ThenGoto1:IfEnd
Z[1]—P→L
“XP=”:X—（S＋L）cos（Z[20]）→F◢
“YP=”:Y—（S＋L）sin（Z[20]）→G◢
Z[20]→Z
Goto5
Lbl 1
IfP＞Z[2]:ThenGoto2:IfEnd
P—Z[1]→L:L→Z[8]:B→Z[9]:Prog“HXY”
“XP=Z[21]＋Z[6]cos（Z[20]）＋Z[7]cos（Z[20]＋90W）→F◢
“YP=”:Z[22]＋Z[6]sin（Z[20]）＋Z[7]sin（Z[20]＋90W）→G◢
Z[20]＋90WL²÷（BRπ）→Z
Goto5
Lbl 2
IfP＞Z[4]:ThenGoto3:IfEnd
P—Z[2]→L:90B÷（Rπ）→Z[8]:180L÷（Rπ）→Z[17]:Rtan（Z[17]÷2）→Z[16] 【原问题语句】
P—Z[2]→L:90B÷（Rπ）→Z[18]:180L÷（Rπ）→Z[17]:Rtan（Z[17]÷2）→Z[16] 【更正语句】

“XP=Z[23]＋Z[16]（cos（Z[20]）＋WZ[18]＋cos（Z[20]＋WZ[18]＋WZ[17]））→F◢
“YP=”:Z[24]＋Z[16]（sin（Z[20]）＋WZ[18]＋sin（Z[20]＋WZ[18]＋WZ[17]））→G◢
Z[20]＋WZ[18]＋WZ[17]→Z
Goto5
Lbl 3
IfP＞Z[5]:ThenGoto4:IfEnd
Z[5]—P→L:L→Z[8]:C→Z[9]:Prog“HXY”
“XP=”:Z[25]—Z[6]cos（Z[19]）＋Z[7]cos（Z[19]＋90W）→F◢
“YP=”:Z[26]—Z[6]sin（Z[19]）＋Z[7]sin（Z[19]＋90W）→G◢
Z[19]—90WL²÷（CRπ）→Z
Goto5
Lbl 4
P—Z[5]→L
“XP=”:X＋（T＋L）cos（Z[19]）→F◢
“YP=”:Y＋（T＋L）sin（Z[19]）→G◢
Z[19]→Z
Lbl 5
IfZ＜0:ThenZ360→Z:ElseZ→Z:IfEnd【原问题语句】
IfZ＜0:ThenZ+360→Z:ElseZ→Z:IfEnd【更正语句】
“BP=”:ZDMS◢
Lbl 6
“H”?H
IfH＝0:ThenGoto0:IfEnd
“D”?D
“XP=”:F＋Dcos（Z＋H）→U◢
“YP=”:G＋Dsin（Z＋H）→V◢
Goto6
注：该道路放样程序由本人根据卡西欧fx-4850道路放样程序RCOOR改编。在改编过程中对原基础语句加以变动、添加，其程序内常用数值有所调整，意在增加计算后精度。
望诸位在使用过程中发现问题并反馈，谢谢。
QQ：1964229814

HXY (RCOOR子程序)
IfZ[9]＝0:Then0→Z[6]:0→Z[7]Goto0:IfEnd 【原问题语句】
IfZ[9]＝0:Then0→Z[6]:0→Z[7] :Goto0:IfEnd 【更正语句】
Z[8]—Z[8]^(5)÷（40R²Z[9]²）＋Z[8]^(9)÷（3456R^(4)Z[9]^(4)）—Z[8]^(13)÷（599040R^(6)Z[9]^(6)）→Z[6]
Z[8]^(3)÷（6RZ[9]）—Z[8]^(7)÷（336R^(3)Z[9]^(3)）＋Z[8]^(11)÷（42240R^(5)Z[9]^(5)）—Z[8]^(15)÷（9676800R^(7)Z[9]^(7)）→Z[7]
Lbl 0

程序名称RCOOR
显示 说明
X(JD1)=? Y(JD1)=? 交点（JD1）坐标
X(DJ0)=? Y(JD0)=? 交点（JD0）坐标
PJ? 路线转角。左偏为负（即JD1所对应转角值）
R? 半径
LS1 缓和曲线1长度
LS2 缓和曲线2长度
JD? 交点（JD1）桩号
验证部分
T1 切线1长度
T2 切线2长度
LY 圆曲线长度
L 平曲线长度
E 外距
ZH 直缓点里程
HY 缓圆点里程
QZ 曲中点里程
YH 圆缓点里程
HZ 缓直点里程

P 所求点里程桩号
XP YP 所求点坐标显示
BP 所求点切线方位角
H 路线外一点转角（H=0时计算下一点）
D 路线外一点距点P距离（左侧为负值）