XProfan

Windowtitle "Fallbeschleunigung für eichpflichtige Waagen in 50 europ. Städten"
Cls:font 2
'https://www.deutschlandfunk.de/gravitationskonstante-die-schwere-der-schwerkraft.740.de.html?dram:article_id=298111
AppendMenuBar 100,"Q: https://www.ptb.de/cms/fileadmin/internet/fachabteilungen/abteilung_1/1.1_masse/1.15/gravzonen.pdf"
var G!=val("6.67408E-11 m³/(kg*s²)")
print "\n Henry Cavendish maß 1798 erstmals die Gravitationskonstante. Heute gilt:"
print "\n Universelle Gravitationskonstante m³/(kg.s²) -/+ Sigma-Unsicherheit:\n"
print " "+format$("%g",g!),format$("%g",-g!*val("4.7e-5")),"=",format$("%g",g!-g!*val("4.7e-5"))+"\n"
print " "+format$("%g",g!),"+";format$("%g",+g!*val("4.7e-5")),"=",format$("%g",g!+g!*val("4.7e-5"))+"\n"
print " bzw. G = (6.67408 ± 0.00031)·10^-11 m^3/(kg·s^2)\n"
print " Relative Unsicherheit: ",format$("%g",val("4.7e-5"))
waitinput
cls
var fb$="\
Nr;Ort;Breite°;Länge°;Meereshöhe_m;Fallbeschl.m/s²;Formel;Diff.\n\
1;Trondheim;63.44;10.48;29;9.821505;9.821683;-0.000018\n\
2;Bergen;60.38;5.31;38;9.819297;9.819350;-0.000005\n\
3;Helsinki;60.16;24.93;2;9.819066;9.819289;-0.000023\n\
4;Oslo;59.90;10.76;8;9.819157;9.819067;0.000009\n\
5;Stockholm;59.33;18.05;9;9.818349;9.818612;-0.000027\n\
6;Stavanger;58.97;5.73;6;9.818287;9.818334;-0.000005\n\
7;Kopenhagen;55.66;12.56;2;9.815473;9.815620;-0.000015\n\
8;Hamburg;53.54;10.02;5;9.813730;9.813796;-0.000007\n\
9;Dublin;53.34;-;6.25;6;9.813845;9.;813619;0.000023\n\
10;Berlin;52.48;13.40;36;9.812669;9.812777;-0.000011\n\
11;Amsterdam;52.36;4.85;2;9.812757;9.812777;-0.000002\n\
12;Hannover;52.38;9.74;52;9.812642;9.812640;0.000000\n\
13;London;51.50;-;0.11;4;9.811897;9.812014;-0.000012\n\
14;Brüssel;50.84;4.33;1;6;9.811426;9.811393;0.000003\n\
15;Lille;50.63;3.07;22;9.811225;9.811188;0.000004\n\
16;Frankfurt;50.11;8.70;101;9.810576;9.810482;0.000010\n\
17;Mannheim;49.49;8.53;101;9.809599;9.809928;-0.000034\n\
18;Paris;48.86;2.35;36;9.809362;9.809564;-0.000021\n\
19;Nancy;48;.70;6.17;201;9.808841;9.808911;-0.000007\n\
20;Linz;48.31;14.28;257;9.808211;9.808388;-;0.000018\n\
21;Wien;48.20;16.36;194;9.808429;9.808483;-0.000006\n\
22;München;48.14;11.58;512;9.807232;9.807448;-0.000022\n\
23;Zürich;47.39;8.50;401;9.806800;9.807115;-0.000032\n\
24;Innsbruck;47.26;11.38;578;9.805531;9.806452;-0.000094\n\
25;Graz;47.07;15.43;352;9.807092;9.806977;0.000012\n\
26;Luzern;47.02;8.31;451;9.805877;9.806627;-0.000076\n\
27;Bern;46.92;7.49;510;9.805925;9.806354;-0.000044\n\
28;Chur;46.84;9.54;770;9.804290;9.8054;80;-0.000121\n\
29;Klagenfurt;46.63;14.33;441;9.806191;9.806305;-0.000012\n\
30;Lausanne;46.51;6.63;375;9.806036;9.806400;-0.000037\n\
31;Genf;46.20;6.14;375;9.805767;9.806120;-0.000036\n\
32;Lugano;46.01;8.91;279;9.805921;9.806244;-0.000033\n\
33;Lyon;45.75;4.83;16;6;9.806326;9.806358;-0.000003\n\
34;Mailand;45.46;9.28;110;9.805489;9.806268;-0.000079\n\
35;Padua;45.40;11.88;12;9.806450;9.806516;-0.000007\n\
36;Turin;45.05;7.69;220;9.805497;9.805557;-0.000006\n\
37;Bordeaux;44.82;-0.57;16;9.805661;9.805979;-0.000032\n\
38;Bologna;44.50;11.35;50;9.804359;9.805584;-0.000125\n\
39;Florenz;43.78;11.26;48;9.804929;9.804939;-0.000001\n\
40;Marseille;43.30;5.37;5;9.804814;9.804638;0.000018\n\
41;Rom;41.89;12.49;50;9.803472;9.803228;0.000025\n\
42;Barcelona;41.39;2.17;20;9.803057;9.802871;0.000;019\n\
43;Madrid;40.41;-3.69;655;9.799666;9.800035;-0.000038\n\
44;Valencia;39.48;-0.38;6;9.801133;9.801209;-0.000008\n\
45;Cagliari;39.21;9.12;2;9.801065;9.800982;0.000008\n\
46;Lissabon;38.71;-9.15;5;9.800884;9.800531;0.000036\n\
47;Athen;38.00;23.74;100;9.800336;9.799613;0.000074\n\
48;Catania;37.52;15.07;82;9.800185;9.799248;0.000096\n\
49;Sevilla;37.38;-5.99;10;9.799372;9.799348;0.000002\n\
50;Malaga;36.72;-4.42;1;9.799073;9.798802;0.000028"
print mid$(translate$(fb$,";","  "),1,1911)
waitinput 60000
print mid$(translate$(fb$,";","  "),1912,9000)
waitinput 60000
end