Angelo2449
Guest
Hallo alle,
Ich möchte gerne wissen, warum diese einfache Routine nicht exakte Werte liefert:
die Routine zurückgibt:
4420568.
69890
4529365.156
4.42057e+06
69890
4.52937+06
wo 698901.0 eindeutig falsch ist.
Danke.
Ich möchte gerne wissen, warum diese einfache Routine nicht exakte Werte liefert:
Code:
(Defun c: Ecef (/)
(Setq eck1 "4420568.319, 698901.058.4529365.156")
(setq cooxx (atof (vl- string- links- trim "" (substr eck1 1 11))); corordinata ecef x
(setq cooyyyy (atof (vl- string- links- trim "" (substr eck1 13 11)))
(setq coozz (atof (vl- string- links- trim "" (substr eck1 25))); corordinata ecef z
(pr "n")
(prc (vl- string- links- trim ")
(pr "n")
(prc (vl- string- links- trim ")
(pr "n")
(prc (vl- string- links- trim ")
(pr "n")
(Kuchenfalle)
(pr "n")
(Kojoy Prinz)
(pr "n")
(Koozz Snap)
(pr "n")
)
4420568.
69890
4529365.156
4.42057e+06
69890
4.52937+06
wo 698901.0 eindeutig falsch ist.
Danke.