くだすれDelphi(超初心者用)その55at TECHくだすれDelphi(超初心者用)その55 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト200:デフォルトの名無しさん 13/04/24 06:44:13.07 .net ラジアンって習うのは高校生だっけ?中学? 201:デフォルトの名無しさん 13/04/24 08:23:15.63 .net >>195 高校 202:の理数系クラスだと思います。 203:デフォルトの名無しさん 13/04/24 09:57:51.14 .net じゃあラジアン分からないんだね まずはそこから勉強しよう 204:デフォルトの名無しさん 13/04/24 13:27:48.87 .net Won'tYouStayForMe 205:デフォルトの名無しさん 13/04/24 17:29:49.47 .net Delphi の三角関数は、ラジアン単位を引数としているので 度で表記された座礁は、変換が必要。 ラジアンという言葉の意味/定義を確認した上で、Math ユニットの DegToRad とかを 組み合わせてごらん。 206:デフォルトの名無しさん 13/04/24 18:11:52.38 .net 180度=1.0ラジコンだっけ? 207:デフォルトの名無しさん 13/04/24 18:36:52.73 .net お帰りください 208:デフォルトの名無しさん 13/04/24 20:45:02.07 .net Degree := 0; x1 := DegToRad(StrToFloatdef(Ax,0)); // 地点A(経度x1) y1 := DegToRad(StrToFloatdef(Ay,0)); // (緯度y1) x2 := DegToRad(StrToFloatdef(Bx,0)); // 地点B(経度x2) y2 := DegToRad(StrToFloatdef(By,0)); // (緯度y2) if (X1 <> 0) and (y1 <> 0) and (x2 <> 0) and (y2 <> 0) then begin Degree := ArcTan2(Sin(x2 - x1),Cos(y1) * Tan(y2) - Sin(y1) * Cos(x2 - x1)); Degree := 360 + RadToDeg(Degree); end; 一応こんな感じで数値が合うようになりました。 感謝 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch