縦断曲線

CASIO FX-603P版 測量計算ソフト プログラムソース




fx-4850P版はこちらです→fx-4850P 縦断曲線

マニュアル、操作手順書のサンプルはこちらです→縦断曲線

縦断曲線

 縦断曲線長(VCL),勾配(i1)・(i2)より、水平距離(x)の点の縦距(y)と計画高(Hk)を計算します。

 [勾配(i1)・(i2)の符号は、上り勾配の時(+),下り勾配の時(-)で入力します。]


縦断曲線 【プログラム番号:P8】
   AC 999 MinF MR56 "Ho ?" HLT
   Min56
LBL0 MR51 "VCL ?" HLT
   Min51 +/- X>=0 GOTO0
LBL4 0 Min9F MR52 "i1 ?" HLT
   Min52 MR53 "i2 ?" HLT
   Min53 - MR52 = Min54 X=0 GSBP18
   MR9F X=F GOTO4
   MR54 / 200 / MR51 = Min54
LBL1 0 Min9F MR55 "X ?" HLT
   X>=0 GOTO3
   GOTO1
LBL3 Min55 - MR51 / 2 = X=0 GOTO2
   X>=0 GSBP18
   MR9F X=F GOTO1
LBL2 MR56 + MR52 * MR55 / 100 = Min57 "H=" HLT
   MR55 X^2 * MR54 = Min58 ABS "Y=" HLT
   MR57 + MR58 = "Hk=" HLT
   GOTO1

エラー表示サブルーチン 【プログラム番号:P18】
   999 Min9F 0 " DATA ERROR" PAUSE

ご注意下さい
  • 上記プログラムソースは見やすいようにインデント・改行されていますが、FX-603Pに入力する際には、インデント・改行を無視してください。
  • サブルーチンは他のプログラムと共用しますのでプログラム番号を変更しないでください。
  • 当プラグラムソースはASCIIコードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。