CASIO  fx－4500p坐标计算程序

根据坐标计算方位角
L1  A“X1＝”：B“Y1＝”：Pol(C“X2”－A，D“Y2”－B：“S＝”▲W＜0W＝W＋360△W：“ALF(1~2)＝”
直线段坐标计算
L1   X“X(0)”：Y“Y(0)”：S“S(0)”：A“ALF”
L2   Lb1 2
L3   {L}：L“LX”
L4   M“X(Z)”＝X＋(L－S)cosA▲
L5   N“Y(Z)”＝Y＋(L－S)sinA▲
L6   {B}：B“B(L)”：Q“Q”
L7   O“X(L)”＝M＋Bcos(A＋Q＋180)▲
L8   P“Y(L)”＝N＋Bsin(A＋Q＋180)▲
L9   {C}：C“B(R)”
L10  U“X(R)”＝M＋Ccos(A＋Q)▲
L11  V“Y(R)”＝N＋Csin(A＋Q)▲
L12  Goto  2
园曲线段坐标计算
L1   S“S(0)-Km”：X“X(0)”：Y“Y(0)”：A“ALF”：R“R”：K“K(L＝1,R＝2)”
L2   Lb1 2
L3   {L}：L“L(X)”
L4   V＝180／π×（L－S）／R：W＝V／2
L5   C＝A＋(-1)K×W：D＝2RsinW：F＝A＋(-1)K×V
L6   M“X(Z)”＝X＋DcosC▲
L7   N“Y(Z)”＝Y＋DsinC▲
L8   {E}：E“B(L)”：Q“Q”
L9   O“X(L)”＝M＋Ecos(F＋Q＋180)▲
L10  P“Y(L)”＝N＋Esin(F＋Q＋180)▲
L11  {G}：G“B(R)”
L12  T“X(R)”＝M＋Gcos(F＋Q)▲
L13  U“Y(R)”＝N＋Gsin(F＋Q)▲
L14  Goto  2
正向缓和曲线段坐标计算
L1   S“ZH-Km”：X“X(ZH)”：Y“Y(ZH)”：A“ALF”：R“R”：H“LS”：K“K(L＝1,R＝2)”
L2   Lb1 2
L3   {L}：L“L(X)”
L4   D＝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   U“X(Z)”＝X＋CcosB▲
L6   V“Y(Z)”＝Y＋CsinB▲
L7   {G}：G“B(L)”：Q“Q”
L8   F“X(L)”＝U＋Gcos(E＋Q＋180)▲
L9   I“Y(L)”＝V＋Gsin(E＋Q＋180)▲
L10  {J}：J“B(R)”
L11  M“X(R)”＝U＋Jcos(E＋Q)▲
L12  N“Y(R)”＝V＋jsin(E＋Q)▲
L13  Goto  2
卵形曲线坐标计算
L1   S“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   Lb1 2
L3   {Z}：Z“L(X)”
L4   J“L1”＝D2／B： R“RP”＝D2B／(D2＋(-1)Q(Z－S)B)：L“LP”＝D2／R
L5   M＝(L－J)－(L5－J5)／40／D4＋(L9－J9)／3456／D8
L6   N＝(L3－J3)／6／D2－(L7－J7)／336／D6＋(L11－J11)／42240／D10
L7   T＝G－(-1)Q(-1)K×J2×90／D2／π
L8   X“X(Z)”＝E＋(-1)QMcosT－(-1)KNsinT▲
L9   Y“Y(Z)”＝F＋(-1)QMsinT＋(-1)KNcosT▲
L10  A“ALF(P)”＝G＋(-1)K(Z－S)×90×(1／B＋1／R)／π
L11  {H}：H“B(L)”：U“Q”
L12  W“X(L)”＝X＋Hcos(A＋U＋180)▲
L13  V“Y(L)”＝Y＋Hsin(A＋U＋180)▲
L14  {C}：C“B(R)”
L15  I“X(R)”＝X＋Ccos(A＋U)▲
L16  P“Y(R)”＝Y＋Csin(A＋U)▲
L17  Goto  2