MGMcalc

1) Grundrechenarten
2) die meisten math.h Funktionen
3) Projektion
4) UTM
5) Gauss Krüger
6) Zeichen Umwandlungen
7) Rot13 + RotX
8) Morsen
9) Koordinaten Übergabe an OziExplorerCE

-- Projektionsberechung
var
   lat,lon1,lat2,lon2,lat3,lon3, bear, dist;

write '-- Projektion --';

lat1=°N 49 24.000;
lon1=°E 8 21.0;
lat2=°N 49 28.000;
lon2=°E 8 21.0;

bear = cpbearing(lat1,lon1,lat2,lon2);
dist = cpdistance(lat1,lon1,lat2,lon2);
lat3 = cbplat(lat1,lon1,bear,dist);
lon3 = cbplon(lat1,lon1,bear,dist);

write 'bear: ', bear:3;
write 'dist: ', dist:3;
write 'dLat: ',lat2-lat3:3;
write 'dLon: ',lon2-lon3:3;

+-----
| EngigmaInit(Räder,Preset,Stellung,Steckbrett)
|    Räder (string)      'KBCDA'
|                             ^- ETW
|                          ^^^-- 3 Räder A
|                         ^----- UKW
|    Preset (string)     'AAAAA' (im Rad)
|                             ^- Normal A
|                          ^^^-- 3 Räder A
|                         ^----- Normal A
|    Stellung (string)   'AAAAA' (Außen)
|                             ^- Normal A
|                          ^^^-- 3 Räder A
|                         ^----- Normal A
|    Steckbrett (string) 'ABQF'
|                           ^^-- Q/F wird getauscht
|                         ^^-- A/B wird getauscht| 
| EnigmaRun(Text)
|    Text (string) 'Test größer?'
| 
| EnigmaWheels
|    Stand der Räder
| 
| Tabelle der Räder
|   A: ETW
|   B: I
|   C: II
|   D: III
|   E: IV
|   F: V
|   G: VI
|   H: VII
|   I: VIII
|   J: UKW A
|   K: UKW B
|   L: UKW C
|   M: ETW M4
|   N: Beta M4
|   O: Gamma M4
|   P: UKW B dünn M4
|   Q: UKW C dünn M4
|   R: ETW (G)
|   S: I (G)
|   T: II (G)
|   U: III (G)
|   V: UKW (G)
+-----