FGFS-4.1/simgear
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Return result in radians.

Browse Source
This commit is contained in:
curt
2000-03-27 22:30:11 +00:00
parent b0b5f5035a
commit f47fdd63f7
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
simgear/magvar/magvar.cxx
+2 -2
View File
@@ -271,7 +271,7 @@ double SGMagVar( double lat, double lon, double h, long dat, double* field )
field[4]=Y; field[4]=Y;
field[5]=Z; /* output fields */ field[5]=Z; /* output fields */
/* find variation, convert to degrees! */ /* find variation, leave in radians! */
return rad_to_deg(atan2(Y, X)); /* E is positive */ return atan2(Y, X); /* E is positive */
} }
simgear/magvar/testmagvar.cxx
+4 -1
View File
@@ -43,9 +43,12 @@ if (argc == 8){
var = SGMagVar( deg_to_rad(lat_deg), deg_to_rad(lon_deg), h, var = SGMagVar( deg_to_rad(lat_deg), deg_to_rad(lon_deg), h,
yymmdd_to_julian_days(yy,mm,dd), field ); yymmdd_to_julian_days(yy,mm,dd), field );
fprintf(stdout,"%6.0lf %6.0lf %6.0lf\n", field[0], field[1], field[2] );
fprintf(stdout,"%6.0lf %6.0lf %6.0lf\n", field[3], field[4], field[5] );
fprintf(stdout,"%6.0lf %6.0lf %6.0lf %4.2lf %4.2lf \n", fprintf(stdout,"%6.0lf %6.0lf %6.0lf %4.2lf %4.2lf \n",
field[3],field[4],field[5], field[3],field[4],field[5],
rad_to_deg(atan(field[5]/pow(field[3]*field[3]+field[4]*field[4],0.5))),var); rad_to_deg(atan(field[5]/pow(field[3]*field[3]+field[4]*field[4],0.5))),
rad_to_deg(var));
exit(0); exit(0);
} }