三角形の解法プログラム(fx-4850P測量計算)

  1. あさかぜネット TOP
  2. fx-4850P測量計算
  3. 三角形の解法プログラム

三角形の解法プログラム(fx-4850P用)

fx-4850P は、既に 製造が終了 しており、fx-4850Pに関連した サービスも終了 しております。
また、fx-4850Pに関する掲載情報も今後更新する予定はありません。

プログラムの概要

 三角形の解法プログラムの概要は次の通りです。

三角形の解法

[三辺既知]、[二辺夾角既知]、[二角夾辺既知]を選択してからそれぞれの処理を実行します。

三辺既知:辺a,辺b,辺cを入力し、角a,角b,角cを計算します。

二辺夾角既知:辺a,辺b,角cを入力し、角a,角b,辺cを計算します。

二角夾辺既知:辺a,角b,角cを入力し、角a,辺b,辺cを計算します。

三角形の解法画面

fx-5800Pのご案内

CASIO fx-5800P 測量計算ソフト

fx-4850P は 2006年に 製造終了 となっております。

現場でお使いになるのであれば、fx-5800P をお勧めします。

fx-5800P は、 fx-4850P の後継機種です。制御系のコマンドが充実したのに加え、電池が切れてもプログラムが消えない優れた機能を持ち、現場での使い勝手も良い、手帳型のプログラム電卓です。

fx-5800P:三角形の解法(三辺既知)
fx-5800P:三角形の解法(二辺夾角)
fx-5800P:三角形の解法(二角夾辺)

プログラムのソース表示

 プログラムご利用の前に、
 下記 「ご利用の前に」 の各項目をお読みください。

ご利用の前に

  • 本プログラムは著作権法によって保護されている著作物です。本内容の全部、または一部を複製し、転売(オークションに出品)するような行為はお止め下さい。
  • プログラムの入力を始める前に fx-4850P 取扱説明書を熟読されることをお勧めします。
  • 本プログラムをご使用になる前に、「実行マニュアル」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。

    マニュアル類ダウンロード(PDF)

  • 本プログラムはお客様の責任でお使いください。本プログラムに起因するトラブルにより損害を受けても、弊社は一切の責任を負いません。
  • プログラムを手動で間違いなく入力するのは至難の業です。また、入力ミスは、必ずと言っていいほど発生します。どうか根気よく入力し、チェックを入念に行ってください。
  • プログラムの入力方法がわからない、エラーが出る、答えが合わない、といった内容のお問い合わせはご容赦願います。

プログラム ソース

三角形の解法 【ファイル名:P12】

   Fixm:I=0
Lbl 0:Cls
   "<SANKAKUKEI>":Pause 2
Lbl 1:Cls:{I}
   "3PEN_KICHI__⇒1"
   "2HEN_KYOKAKU⇒2"
   I"2KAKU_KYOHEN⇒3"
   I=3⇒Goto 4△
   I=2⇒Goto 3△
   I≠1⇒Goto 1△
Lbl 2:Cls:{A,B,C}
   A"HEN-A_"
   A≦0⇒Prog "ER.SUB":Goto 2△
   B"HEN-B_"
   B≦0⇒Prog "ER.SUB":Goto 2△
   C"HEN-C_"
   C≦0⇒Prog "ER.SUB":Goto 2△
   (A-B-C)≧0⇒Prog "ER.SUB":Goto 2△
   (B-A-C)≧0⇒Prog "ER.SUB":Goto 2△
   (C-A-B)≧0⇒Prog "ER.SUB":Goto 2△
   D=Acos ((B^2+C^2−A^2)÷(2×B×C))
   E=Acos ((C^2+A^2−B^2)÷(2×C×A))
   F=180-D-E
   Goto 5
Lbl 3:Cls:{A,B,F}
   A"HEN-A_"
   A≦0⇒Prog "ER.SUB":Goto 3△
   B"HEN-B_"
   B≦0⇒Prog "ER.SUB":Goto 3△
   F"KAKU-C_"
   F≦0⇒Prog "ER.SUB":Goto 3△
   F≧180⇒Prog "ER.SUB":Goto 3△
   D=Atan ((A×sin F)÷(B−A×cos F))
   D<0⇒D=D+180△
   E=180-D-F
   C=√(A^2+B^2−2×A×B×cos F)
   Goto 5
Lbl 4:Cls:{A,E,F}
   A"HEN-A_"
   A≦0⇒Prog "ER.SUB":Goto 4△
   E"KAKU-B_"
   E≦0⇒Prog "ER.SUB":Goto 4△
   F"KAKU-C_"
   F≦0⇒Prog "ER.SUB":Goto 4△
   D=180-E-F
   D≦0⇒Prog "ER.SUB":Goto 4△
   B=(A×sin E)÷sin(E+F)
   C=(A×Sin F)÷sin(E+F)
Lbl 5:G=(A+B+C)÷2
   H=√(G×(G−A)×(G−B)×(G−C))
Lbl 6:Cls
   "HEN-A=":A:Pause 0
   "HEN-B=":B▲
   "HEN-C=":C:Pause 0
   "KAKU-A=":D→DMS▲
   "KAKU-B=":E→DMS
   "KAKU-C=":F→DMS▲
   Cls
   "MENSEKI=":H▲
Lbl 8:Cls:J=0:{J}
   "REPEAT⇒0"
   "AGAIN_⇒1"
   J"TOP⇒2_END⇒9_"
   J=0⇒Goto 6△
   J=2⇒Goto 0△
   J=9⇒Goto 9△
   J≠1⇒Goto 8△
   I=3⇒Goto 4△
   I=2⇒Goto 3△
   I=1⇒Goto 2△
   Goto 8
Lbl 9

エラー表示サブルーチン 【ファイル名:ER.SUB】

   Z=999
   "DATA_ERROR"
   Pause 3
   Cls

ご注意下さい

  • 上記プログラムソースは見やすいようにインデントされていますが、
    fx-4850Pに入力する際には、インデントを無視してください。
  • 改行マークは省略しています。
  • アンダーバー”_”,”_”は空白を表します。半角全角の区別はありません。
  • ファイル名は変更可能ですが、ソフト起動プログラム(QUICK RUN)を利用する場合には変更しないでください。
  • サブルーチンは他のプログラムと共用しますのでファイル名を変更しないでください。
  • プログラムの入力やファイル名の変更は、fx-4850Pの取扱説明書をよくお読みになってから行ってください。
  • アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
  • fx-4850Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。

このページの先頭へ