CASIO&nbsp&nbspfx－4500p坐标计算程序

根据坐标计算方位角
L1&nbsp&nbspA“X1＝”：B“Y1＝”：Pol(C“X2”－A，D“Y2”－B：“S＝”▲W＜0W＝W＋360△W：“ALF(1~2)＝”
直线段坐标计算
L1&nbsp&nbsp&nbspX“X(0)”：Y“Y(0)”：S“S(0)”：A“ALF”
L2&nbsp&nbsp&nbspLb1&nbsp2
L3&nbsp&nbsp&nbsp{L}：L“LX”
L4&nbsp&nbsp&nbspM“X(Z)”＝X＋(L－S)cosA▲
L5&nbsp&nbsp&nbspN“Y(Z)”＝Y＋(L－S)sinA▲
L6&nbsp&nbsp&nbsp{B}：B“B(L)”：Q“Q”
L7&nbsp&nbsp&nbspO“X(L)”＝M＋Bcos(A＋Q＋180)▲
L8&nbsp&nbsp&nbspP“Y(L)”＝N＋Bsin(A＋Q＋180)▲
L9&nbsp&nbsp&nbsp{C}：C“B(R)”
L10&nbsp&nbspU“X(R)”＝M＋Ccos(A＋Q)▲
L11&nbsp&nbspV“Y(R)”＝N＋Csin(A＋Q)▲
L12&nbsp&nbspGoto&nbsp&nbsp2
园曲线段坐标计算
L1&nbsp&nbsp&nbspS“S(0)-Km”：X“X(0)”：Y“Y(0)”：A“ALF”：R“R”：K“K(L＝1,R＝2)”
L2&nbsp&nbsp&nbspLb1&nbsp2
L3&nbsp&nbsp&nbsp{L}：L“L(X)”
L4&nbsp&nbsp&nbspV＝180／π×（L－S）／R：W＝V／2
L5&nbsp&nbsp&nbspC＝A＋(-1)K×W：D＝2RsinW：F＝A＋(-1)K×V
L6&nbsp&nbsp&nbspM“X(Z)”＝X＋DcosC▲
L7&nbsp&nbsp&nbspN“Y(Z)”＝Y＋DsinC▲
L8&nbsp&nbsp&nbsp{E}：E“B(L)”：Q“Q”
L9&nbsp&nbsp&nbspO“X(L)”＝M＋Ecos(F＋Q＋180)▲
L10&nbsp&nbspP“Y(L)”＝N＋Esin(F＋Q＋180)▲
L11&nbsp&nbsp{G}：G“B(R)”
L12&nbsp&nbspT“X(R)”＝M＋Gcos(F＋Q)▲
L13&nbsp&nbspU“Y(R)”＝N＋Gsin(F＋Q)▲
L14&nbsp&nbspGoto&nbsp&nbsp2
正向缓和曲线段坐标计算
L1&nbsp&nbsp&nbspS“ZH-Km”：X“X(ZH)”：Y“Y(ZH)”：A“ALF”：R“R”：H“LS”：K“K(L＝1,R＝2)”
L2&nbsp&nbsp&nbspLb1&nbsp2
L3&nbsp&nbsp&nbsp{L}：L“L(X)”
L4&nbsp&nbsp&nbspD＝30（L－S）2／π／R／H：C＝L－S－（L－S）5／90／（R×H）2：B＝A＋D(-1)K：E＝A＋3D(-1)K
L5&nbsp&nbsp&nbspU“X(Z)”＝X＋CcosB▲
L6&nbsp&nbsp&nbspV“Y(Z)”＝Y＋CsinB▲
L7&nbsp&nbsp&nbsp{G}：G“B(L)”：Q“Q”
L8&nbsp&nbsp&nbspF“X(L)”＝U＋Gcos(E＋Q＋180)▲
L9&nbsp&nbsp&nbspI“Y(L)”＝V＋Gsin(E＋Q＋180)▲
L10&nbsp&nbsp{J}：J“B(R)”
L11&nbsp&nbspM“X(R)”＝U＋Jcos(E＋Q)▲
L12&nbsp&nbspN“Y(R)”＝V＋jsin(E＋Q)▲
L13&nbsp&nbspGoto&nbsp&nbsp2
卵形曲线坐标计算
L1&nbsp&nbsp&nbspS“Km-YH”：E“X(YH)”：F“Y(YH)”：G“ALF”：B“R1”：D“A”：K“K(L＝1,R＝2)”：Q“R1-R2X＝1,D＝2)”
L2&nbsp&nbsp&nbspLb1&nbsp2
L3&nbsp&nbsp&nbsp{Z}：Z“L(X)”
L4&nbsp&nbsp&nbspJ“L1”＝D2／B：&nbspR“RP”＝D2B／(D2＋(-1)Q(Z－S)B)：L“LP”＝D2／R
L5&nbsp&nbsp&nbspM＝(L－J)－(L5－J5)／40／D4＋(L9－J9)／3456／D8
L6&nbsp&nbsp&nbspN＝(L3－J3)／6／D2－(L7－J7)／336／D6＋(L11－J11)／42240／D10
L7&nbsp&nbsp&nbspT＝G－(-1)Q(-1)K×J2×90／D2／π
L8&nbsp&nbsp&nbspX“X(Z)”＝E＋(-1)QMcosT－(-1)KNsinT▲
L9&nbsp&nbsp&nbspY“Y(Z)”＝F＋(-1)QMsinT＋(-1)KNcosT▲
L10&nbsp&nbspA“ALF(P)”＝G＋(-1)K(Z－S)×90×(1／B＋1／R)／π
L11&nbsp&nbsp{H}：H“B(L)”：U“Q”
L12&nbsp&nbspW“X(L)”＝X＋Hcos(A＋U＋180)▲
L13&nbsp&nbspV“Y(L)”＝Y＋Hsin(A＋U＋180)▲
L14&nbsp&nbsp{C}：C“B(R)”
L15&nbsp&nbspI“X(R)”＝X＋Ccos(A＋U)▲
L16&nbsp&nbspP“Y(R)”＝Y＋Csin(A＋U)▲
L17&nbsp&nbspGoto&nbsp&nbsp2