fx-5800P (PM5-3)
(1) 5-1
)( yx )( yx
JDJD ZDZD
ZD HZJDJD
0
180 (5-24)
0I
ZH
cosTxx
01JDZH
(5-25)
sinTyy
01JDZH )90cos(wxx
0LZHZHL
(5-26) )90sin(wyy
0LZHZHL wxx )90cos(
0RZHZHR
(5-27) wyy )90sin(
0RZHZHR
HZ
cosTxx
I2JDHZ
(5-28)
sinTyy
I2JDHZ wxx )90cos(
IRHZHZL
(5-29) wyy )90sin(
IRHZHZL wxx )90cos(
IRZHZHR
(5-30) wyy )90sin(
IRZHZHR
ww
L R
ZH HY
~
1) ZH jc(5-22) jZH
j j
(5-31)
jjZH 0
j
cxxcos
jZHjZHj
(5-32)
cyysinjZHjZHj
j
2
90
l
j (5-33)
j
0
RLhfx-5800P j )90cos(
wxx
jLjjL
(5-34) )90sin(
wyy
jLjjL
j )90cos(wxx
jRjjR
(5-35) )90sin(wyy
jRjjR
2)
YH ~HZ HZ jc(5-23) jHZ
j j (5-36)
jjHZ I
cxxcos
jHZjHZj
(5-37)
cyysin jHZjHZj
j
2
90
l
j (5-38)
j
I
RL
2h j(5-34)(5-35)
3)
HY ~YH
HY jHY j(5-15)
j (5-39)
jHYjHYHY j
HY
dxxcosjHYjHYj
(5-40)
dyysinjHYjHYj
j 2 (5-41)
jHYj
j(5-34)(5-35)
(2) PM5-3 1520
"SINGLE BASIC TYPE CURVE"
1
"METHOD OF COORDINATE PM5-3"
2
Deg:ClrStat:FreqOn:Fix 3
22
DimZ
"JD MILEAGE PEG(m)="?Z
m
"JD X(m)="?A
x
"JD Y(m)="?B
y
"ZD X(m)="?U
x
"ZD Y(m)="?V
y
"TURNING ANGLE -L,+R(Deg)="?Q
,,
If Q<0:Then -1
Z[20]:Else 1 Z[20]:IfEnd fx-5800P
Abs(Q) D
"Lh1(m)="?S
"R(m)="?R
"Lh2(m)="?T
Pol(A-U,B-V):Cls
Z[11]:Else J Z[11]:IfEnd ZDJD Z[11]
If J<0:Then J+360
Z[11]+Q+180
Z[16] HZJD Z[12]
Z[12]:Else Z[16] Z[12]:IfEnd
If Z[16]>360:Then Z[16]-360
2(24R)-S^(4)(2688R^(3)) Z[1] Z[1]
S
2
0.5S-S^(3)(240R
)+S^(5)(34560R^(4)) Z[2] Z[2]
2
T(24R)-T^(4)(2688R^(3)) Z[3] Z[3]
2
0.5T-T^(3)(240R
)+T^(5)(34560R^(4)) Z[4] Z[4]
(R+Z[3])sin(D)-(R+Z[1])tan(D)+Z[2]
Z[5] Z[5]
(R+Z[1])sin(D)-(R+Z[3])tan(D)+Z[4]
Z[6] Z[6]
90S(R)
Z[7] Z[7]
90T(R)
Z[8] Z[8] R(D-Z[7]-Z[8])180
Z[9] Z[9]
S+T+Z[9]
Z[10] Z[10]
Z[5]+Z[6]-Z[10]
J
"T1(m)=":Z[5]
"T2(m)=":Z[6]
"LY(m)=":Z[9]
"L(m)=":Z[10]
"J(m)=":J
Z-Z[5]
List X[1] ZH
List X[1]+S
List X[2] HY
List X[1]+0.5Z[10]
List X[3] QZ
List X[2]+Z[9]
List X[4] YH
List X[1]+Z[10]
List X[5] HZ
A-Z[5]cos(Z[11])
List Y[1] ZH
List Freq[1]
B-Z[5]sin(Z[11])
ZH
"ZH PEG(m)=":List X[1]
"ZH X(m)=":List Y[1]
"ZH Y(m)=":List Freq[1]
1
K:Z[11] Z[13]
ZH
Prog "SUB5-33"
2
K:Prog "SUB5-31" HY
3
K:Prog "SUB5-32" QZ
4
K:Prog "SUB5-32" YH
A-Z[6]cos(Z[12])
List Y[5] HZ
List Freq[5]
B-Z[6]sin(Z[12])
HZ
"HZ PEG(m)=":List X[5]
"HZ X(m)=":List Y[5]
"HZ Y(m)=":List Freq[5]
5
K:Z[12] Z[13]
HZ
Prog "SUB5-33"
If R<30:Then 5
I:Else If R<60:Then 10 I:Else 20 I:IfEnd:IfEnd
"INT DIST(m)="?O
fx-5800P
If O>0:Then O I:IfEnd
"ONLY CALC +PEG(1)?"
G 1
If G=1:Then Goto 1:IfEnd
K
K+1
Int(List X[1]I)I+I
List X[K] ZH
Prog "SUB5-31
Do
ZH~HY
K+1
K: List X[K-1]+I List X[K]
If List X[K]
List X[2]:Then Prog "SUB5-31"
Else If List X[K]
List X[4]:Then Prog "SUB5-32"
Else Prog "SUB5-31":IfEnd:IfEnd
LpWhile List X[K]+I HZ
Lbl 1
Do
F
"+PEG(m)="?
If F
List X[1]:Then Break:IfEnd ZH
If F
List X[5]:Then Break:IfEnd HZ
K+1
K
F
List X[K]
If List X[K]
List X[2]:Then Prog "SUB5-31"
Else If List X[K]
List X[4]:Then Prog "SUB5-32"
Else Prog "SUB5-31":IfEnd:IfEnd
LpWhile F>0
YZ
END"
"PM5-3
(3)
1) SUB5-31 584 List X[K]
If List X[K]
List X[2]:Then S H:List X[K]-List X[1] L
H:List X[5]-List X[K] L:IfEnd
Else T
2 2
L-L^(5)(40R
H )+L^(9)(3456R^(4)H^(4))-L^(13)(599040R^(6)H^(6)) X
L^(3)(6RH)-L^(7)(336R^(3)H^(3))+L^(11)(42240R^(5)H^(5))-L^(15)
(9676800R^(7)H^(7))
Y
2 2
(X +Y ) Z[14] Z[14]
-1
tan
(YX) Z[15] Z[15]
If List X[K]
List X[2]:Then Z[11]+Z[20]Z[15] Z[16] ZH~HY
List Y[1]+Z[14]cos(Z[16])
List Y[K]
List Freq[K]
List Freq[1]+Z[14]sin(Z[16])
2(RH) Z[13]
Z[11]+90Z[20]L
If List X[K]=List X[2]:Then Z[13]
Z[17]:IfEnd HY Z[17]
Else Z[12]-Z[20]Z[15]
Z[16] YH~HZ
List Y[5]+Z[14]cos(Z[16])
List Y[K]
List Freq[K]
List Freq[5]+Z[14]sin(Z[16])
2(RH) Z[13]
Z[12]-90Z[20]L
IfEnd
If List X[K]=List X[2]:Then "HY PEG(m)=":Else "INT PEG(m)=":IfEnd
List X[K]
"X(m)=":List Y[K]
j fx-5800P
"Y(m)=":List Freq[K]
Prog "SUB5-33"
Return
2) SUB5-32 318 HY~YH List X[K]
List X[K]-List X[2]
L HYj
90L(R)
Z[15]:2Rsin(Z[15]) Z[14]
Z[17]+Z[20]Z[15]
Z[16] HYj
List Y[2]+Z[14]cos(Z[16])
List Y[K] j
List Freq[K]
List Freq[2]+Z[14]sin(Z[16])
Z[13] j
Z[17]+2Z[20]Z[15]
If List X[K]=List X[3]:Then "QZ PEG(m)="
Else If List X[K]=List X[4]:Then "YH PEG(m)="
Else "INT PEG(m)=":IfEnd:IfEnd
List X[K]
"X(m)=":List Y[K]
j
"Y(m)=":List Freq[K]
Prog "SUB5-33"
Return
3) SUB5-33 320
xy List Y[K] List X[K] List Freq[K] Z[13]
"WL(m),0 NO="?M
List X[4]
If List X[K]
Then Z[13]-90
Z[21]:Z[13]+90 Z[22]
Else Z[13]+90
Z[21]:Z[13]-90 Z[22]:IfEnd
Z[18]
If M>0:Then List Y[K]+Mcos(Z[21])
Z[19]
List Freq[K]+Msin(Z[21])
"XL(m)=":Z[18]
"YL(m)=":Z[19]
IfEnd
"WR(m),0 NO="?W
If W>0:Then List Y[K]+Wcos(Z[22])
Z[18]
Z[19]
List Freq[K]+Wsin(Z[22])
"XR(m)=":Z[18]
"YR(m)=":Z[19]
IfEnd
Return
(4)
ZHHYQZYHHZ I INT DIST(m)=?
JD
yxZD yx()L
JDJD ZDZD 1h
RLl?
2h 0fx-5800P
ZH HY QZ YH HZONLY CALC
+PEG(1)? 1+PEG(m)=? m<
ZH>HZ ww 14m 5-4
RL PM10-4 2m 10-7 5-4 PM5-3
(m) (m) (m) (m) (m)
(m)
y x y y y
x
L L R R
1 ZH K17+482.594 6637.947 2399.385 6624.5332403.3956651.3602395.375 JD=K17+589.810
2 HY K17+522.594 6627.518 2360.780 6613.8272363.7066641.2092357.855 x =6607.236
JD
3 QZ K17+584.097 6622.157 2299.667 6608.1662299.1706636.1482300.164 y
=2296.662
JD
=6662.114
4 YH K17+655.601 6634.810 2229.540 6621.5272225.1166648.0922233.964 x
ZD
5 HZ K17+685.601 6645.419 2201.483 6632.4262196.2716658.4122206.696 y
=2480.221
ZD
6 500 6633.045 2382.684 6619.5732386.4916646.5182378.878 =38!a315
=40m
7 520 6628.073 2363.315 6614.4122366.3776641.7342360.252 L
h1
8 540 6624.476 2343.646 6610.6152345.6126638.3382341.680 R=250m
=30m
9 560 6622.462 2323.753 6608.4882324.6056636.4372322.901 L
h2
=107.216m
10 580 6622.045 2303.763 6608.0472303.4956636.0422304.030 T
1
=102.552m
11 600 6623.226 2283.803 6609.2952282.4186637.1572285.188 T
2
12 620 6625.999 2264.002 6612.2232261.5076639.7752266.496 L
=133.006m
y
13 640 6630.345 2244.485 6616.8122240.8986643.8782248.072 L=203.006m
14 660 6636.235 2225.377 6623.0262220.7376649.4442230.018 J=6.762m
15 680 6643.337 2206.683 6630.3332201.4976656.3422211.868 ZH=17482.594m
16 HZ K17+510 6630.426 2373.033 6616.8722376.5376643.9812369.530 HY=17522.594m
17 570 6622.054 2313.762 6608.0572314.055 6636.0512313.470 QZ=17584.097m
18 630 6627.977 2254.200 6614.3112251.1576641.6422257.243 YH=17655.601m
19 670 6639.689 2215.993 6626.6132210.992 6652.7652220.994 HZ=17685.601m PM5-3 5-4 1
SINGLE BASIC TYPE CURVE
2
METHOD OF COORDINATE PM5-3
m
JD MILEAGE PEG(m)=? 17589.81
JD X(m)=? 6607.236
JD Y(m)=? 2296.662
ZD X(m)=? 6662.114
ZD Y(m)=? 2480.221
30 15
TURNING ANGLE -L,+R(Deg)=? 38
Lh1(m)=? 40
R(m)=? 250
Lh2(m)=? 30
T1(m)=107.216
T2(m)=102.552
LY(m)=133.006
L(m)=203.006
J(m)=6.762
ZH
ZH PEG(m)=17482.594
ZH
ZH X(m)=6637.947
ZH Y(m)=2399.385
WL(m),0 NO=? 14
ZH
XL(m)=6624.533
fx-5800P
YL(m)=2403.395
WR(m),0 NO=? 14
ZH
XR(m)=6651.360
YR(m)=2395.375
HY
HY PEG(m)=17522.594
HY
X(m)=6627.518
Y(m)=2360.780
WL(m),0 NO=?14
HY
XL(m)=6613.827
YL(m)=2363.706
WR(m),0 NO=?14
HY
XR(m)=6641.209
YR(m)=2357.855
QZ
QZ PEG(m)=17584.097
QZ
X(m)=6622.157
Y(m)=2299.667
WL(m),0 NO=?14
QZ
XL(m)=6608.166
YL(m)=2299.170
WR(m),0 NO=?14
QZ
XR(m)=6636.148
YR(m)=2300.164
YH
YH PEG(m)=17655.601
YH
X(m)=6634.810
Y(m)=2229.540
WL(m),0 NO=?14
YH
XL(m)=6621.527
YL(m)=2225.116
WR(m),0 NO=?14
YH
XR(m)=6648.092
YR(m)=2233.964
HZ
HZ PEG(m)=17685.601
HZ
X(m)=6645.419
Y(m)=2201.483
WL(m),0 NO=?14
HZ
XL(m)=6632.426
YL(m)=2196.271
WR(m),0 NO=?14
HZ
XR(m)=6658.412
YR(m)=2206.696
INT DIST(m)=? 0
ONLY CALC +PEG(1)? 0ZH1
INT PEG(m)=17500
1
X(m)=6633.045
Y(m)=2382.684
WL(m),0 NO=?14
1
XL(m)=6619.573
YL(m)=2386.491
WR(m),0 NO=?14
1
XR(m)=6646.518
YR(m)=2378.878
ZH2
INT PEG(m)=17520
2
X(m)=6628.073
Y(m)=2363.315
WL(m),0 NO=?14
2
XL(m)=6614.412
fx-5800P
YL(m)=2366.377
WR(m),0 NO=?14
2
XR(m)=6641.734
YR(m)=2360.252
ZH10
INT PEG(m)=17680
10
X(m)=6643.337
Y(m)=2206.683
WL(m),0 NO=?14
10
XL(m)=6630.333
YL(m)=2201.497
WR(m),0 NO=?14
10
XR(m)=6656.342
YR(m)=2211.868
+PEG(m)=? 17510
X(m)=6630.426
Y(m)=2373.033
WL(m),0 NO=?14
XL(m)=6616.872
YL(m)=2376.537
WR(m),0 NO=?14
XR(m)=6643.981
YR(m)=2369.530
+PEG(m)=? 17670
X(m)=6639.689
Y(m)=2215.993
WL(m),0 NO=?14
XL(m)=6626.613
YL(m)=2210.992
WR(m),0 NO=?14
XR(m)=6652.765
YR(m)=2220.994
0
+PEG(m)=? -1
END
PM5-3 Z[1]~Z[10] J
ZHHYQZYHHZ List X[1]~List X[5]
y
xList Y[1]~List Y[5]List Freq[1]~List
y
Freq[5]
x 6 (REG)