注1）使用は自由ですが、当プログラムが起因する如何なる
トラブル損害についても作者は一切の責任を負いません
必ず手計算との比較確認して下さいますよう、お願いします。
注2）″″内のアルファベット文字は、ご自由に変更して下さい。
注3）下記のプログラムは°′″入力ではありません。
方向角と距離による座標計算
Ａ "ＸＡ＝" ： Ｂ"ＹＡ＝"
： Ｃ"Ａ＝" ： Ｄ"Ｌ＝" ＥＸＥ
Ｇ＝Ｉｎｔ Ｃ：Ｈ＝Ｆｒａｃ Ｃ×100：Ｉ＝Ｉｎｔ Ｈ
：Ｊ＝Ｆｒａｃ Ｈ×１００：Ｋ＝Ｇ＋（Ｉ÷60＋Ｊ÷3600）
：Ｅ＝Ｄ×Ｃｏｓ Ｋ＋Ａ：Ｆ＝Ｄ×Ｓｉｎ Ｋ＋Ｂ
：Ｅ＝"ＸＰ＝" ▲ Ｆ＝"ＹＰ＝" ▲
参考）青文字は角度変換ですから°′″で入力される方はプログラム入力しなくても良いですが
式のＥ＝Ｄ×Ｃｏｓ Cと変更しないといけません。
2辺夾角より他の1辺を求める
Ａ "Ａ＝" ： Ｂ"Ｂ＝"
： Ｃ"ＫＡ＝" ＥＸＥ
Ｇ＝Ｉｎｔ Ｃ：Ｈ＝Ｆｒａｃ Ｃ×100：Ｉ＝Ｉｎｔ Ｈ
：Ｊ＝Ｆｒａｃ Ｈ×１００：Ｋ＝Ｇ＋（Ｉ÷60＋Ｊ÷3600）
：Ｅ＝√（Ａ∧2＋Ｂ∧2−2×Ａ×Ｂ×Ｃｏｓ Ｋ）
：Ｅ＝"Ｃ＝" ▲
参考）青文字は角度変換ですから°′″で入力される方はプログラム入力しなくても良いですが
式のＥ＝√（Ａ∧2＋Ｂ∧2−2×Ａ×Ｂ×Ｃｏｓ C）と変更しないといけません。
2辺夾角既知（1辺2角）
Ａ "Ａ＝" ： Ｂ"Ｂ＝"
： Ｃ"ＧＡ＝" ＥＸＥ
Ｇ＝Ｉｎｔ Ｃ：Ｈ＝Ｆｒａｃ Ｃ×100：Ｉ＝Ｉｎｔ Ｈ
：Ｊ＝Ｆｒａｃ Ｈ×１００：Ｋ＝Ｇ＋（Ｉ÷60＋Ｊ÷3600）
：Ｅ＝√（Ａ∧2＋Ｂ∧2−2×Ａ×Ｂ×Ｃｏｓ Ｋ）
：Ｆ＝Ｃｏｓ-1（（Ｂ∧2＋Ｅ∧2−Ａ∧2）÷（2×Ｂ×Ｅ））
：Ｍ＝0.5×Ｂ×Ｅ×Ｓｉｎ Ｆ
：Ｎ＝180−Ｆ−Ｋ
：Ｍ＝"Ｓ＝" ▲ Ｅ＝"Ｃ＝" ▲Ｆ＝"ＡＬ＝" ▲Ｎ＝"ＢＥ＝" ▲
参考）青文字は角度変換ですから°′″で入力される方はプログラム入力しなくても良いですが
式のＥ＝√（Ａ∧2＋Ｂ∧2−2×Ａ×Ｂ×Ｃｏｓ C）と変更しないといけません。
注）出力された角度は°′″で角度表示してEXEで進む
2辺夾角既知（2辺1角）
Ａ "Ａ＝" ： Ｂ"Ｂ＝"
： Ｃ"ＧＡ＝" ＥＸＥ
Ｇ＝Ｉｎｔ Ｃ：Ｈ＝Ｆｒａｃ Ｃ×100：Ｉ＝Ｉｎｔ Ｈ
：Ｊ＝Ｆｒａｃ Ｈ×１００：Ｋ＝Ｇ＋（Ｉ÷60＋Ｊ÷3600）
：Ｌ＝Ｉｎｔ Ｂ：Ｍ＝Ｆｒａｃ Ｂ×100：Ｎ＝Ｉｎｔ Ｍ
：Ｏ＝Ｆｒａｃ Ｍ×１００：Ｐ＝Ｌ＋（Ｎ÷60＋Ｏ÷3600）
：Ｑ＝180−（Ｋ＋Ｐ）：Ｑ＝"ＡＬ＝" ▲
Ｒ＝Ａ×Ｓｉｎ Ｐ÷Ｓｉｎ Ｑ：Ｒ＝"Ｂ＝" ▲
Ｔ＝Ｒ×Ｓｉｎ Ｋ÷Ｓｉｎ Ｐ：Ｔ＝"Ｃ＝" ▲
Ｕ＝0.5×Ａ×Ｒ×Ｓｉｎ Ｋ：Ｕ＝"Ｓ＝" ▲
街角頂点杭打0＜θ90
Ａ "Ｘ0＝" ： Ｂ"Ｙ0＝"
： Ｃ"Ａ0＝" ： Ｄ"Ｗ1＝" ： Ｅ"Ｗ2＝"
： Ｆ"ＳＩ＝"ＥＸＥ
Ｇ＝Ｉｎｔ Ｃ：Ｈ＝Ｆｒａｃ Ｃ×100：Ｉ＝Ｉｎｔ Ｈ
：Ｊ＝Ｆｒａｃ Ｈ×１００：Ｋ＝Ｇ＋（Ｉ÷60＋Ｊ÷3600）
：Ｌ＝Ｉｎｔ Ｆ：Ｍ＝Ｆｒａｃ Ｆ×100：Ｎ＝Ｉｎｔ Ｍ
：Ｏ＝Ｆｒａｃ Ｍ×１００：Ｐ＝Ｌ＋（Ｎ÷60＋Ｏ÷3600）
：Ｑ＝Ｅ÷Ｓｉｎ Ｐ：Ｒ＝Ｄ÷Ｔａｎ Ｐ
：Ｓ＝Ｔａｎ-1（（Ｄ÷（Ｑ＋Ｒ））：Ｓ"ＡＬ1＝" ▲
Ｔ＝Ｋ＋Ｓ：Ｔ＝"ＡＬ3＝" ▲ U＝D÷Sin Ｓ
：Ｕ＝"Ｒ＝" ▲ V＝U×Cos Ｔ＋Ａ：Ｖ"ＸＰ＝" ▲
Ｘ＝Ｕ×Ｓｉｎ Ｔ＋Ｂ：Ｘ＝"ＹＰ＝" ▲
注）出力された角度は°′″で角度表示してEXEで進む
街角頂点杭打90＜θ180
Ａ "Ｘ0＝" ： Ｂ"Ｙ0＝"
： Ｃ"Ａ0＝" ： Ｄ"Ｗ1＝" ： Ｅ"Ｗ2＝"
： Ｆ"ＳＩ＝"ＥＸＥ
Ｇ＝Ｉｎｔ Ｃ：Ｈ＝Ｆｒａｃ Ｃ×100：Ｉ＝Ｉｎｔ Ｈ
：Ｊ＝Ｆｒａｃ Ｈ×１００：Ｋ＝Ｇ＋（Ｉ÷60＋Ｊ÷3600）
：Ｌ＝Ｉｎｔ Ｆ：Ｍ＝Ｆｒａｃ Ｆ×100：Ｎ＝Ｉｎｔ Ｍ
：Ｏ＝Ｆｒａｃ Ｍ×１００：Ｐ＝Ｌ＋（Ｎ÷60＋Ｏ÷3600）
：Ｑ＝Ｄ×Ｔａｎ（Ｆ−90）：Ｒ＝Ｅ÷Ｃｏｓ（Ｆ−90）
：Ｓ＝Ｔａｎ-1（（Ｄ÷（Ｒ−Ｑ））：Ｓ"ＡＬ1＝" ▲
Ｔ＝Ｋ＋Ｓ：Ｔ＝"ＡＬ3＝" ▲ U＝D÷Sin Ｓ
：Ｕ＝"Ｒ＝" ▲ V＝U×Cos Ｔ＋Ａ：Ｖ"ＸＰ＝" ▲
Ｘ＝Ｕ×Ｓｉｎ Ｔ＋Ｂ：Ｘ＝"ＹＰ＝" ▲
注）出力された角度は°′″で角度表示してEXEで進む
N1019.jpgへのリンク
060424.jpgへのリンク
0604241.jpgへのリンク
