- fx-4850P測量計算
- 三角形の解法プログラム
fx-4850P 測量プログラム三角形の解法
fx-4850P は、既に 製造が終了 しており、fx-4850Pに関連した サービスも終了 しております。
また、fx-4850Pに関する掲載情報も今後更新する予定はありません。
プログラムの概要
三角形の解法プログラムの概要は次の通りです。
［三辺既知］、［二辺夾角既知］、［二角夾辺既知］を選択してからそれぞれの処理を実行します。
三辺既知：辺a，辺ｂ，辺ｃを入力し、角ａ，角ｂ，角ｃを計算します。
二辺夾角既知：辺a，辺ｂ，角ｃを入力し、角ａ，角ｂ，辺ｃを計算します。
二角夾辺既知：辺a，角ｂ，角ｃを入力し、角ａ，辺ｂ，辺ｃを計算します。
fx-5800Pのご案内
fx-4850P は 2006年に 製造終了 となっております。
現場でお使いになるのであれば、fx-5800P をお勧めします。
fx-5800P は、 fx-4850P の後継機種に当たります。処理能力が高いだけでなく、電池が切れてもプログラムが消えない優れた機能を持ち、現場での使い勝手も良い、手帳型のプログラム電卓です。
Excel 測量計算 のご案内
Excel 測量計算（Ver.2）は、様々な測量計算（30種）ができるように作られたソフトウェアです。
1,000点 の座標登録ができ、測点名で検索できます。また、CSV や SIMAデータの作成、簡易図形表示も備えています。
Web 測量計算2 のご案内
Web 測量計算2は、座標登録ができ、CSV・SIMAデータの読み込み・書き出しなど、Excel測量計算（Ver.2）と同等の機能を追加した Web 測量計算 の進化版です。
ただいま Excel測量計算 が 半額 で入手できる 特典 が付いています。
プログラムのソース表示
プログラムご利用の前に、
下記 「ご利用の前に」 の各項目をお読みください。
ご利用の前に
- 本プログラムは著作権法によって保護されている著作物です。本内容の全部、または一部を複製し、転売（オークションに出品）するような行為はお止め下さい。
- プログラムの入力を始める前に 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のプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。
