hi zusammen,

ich hab folgendes problem:

ich hab ein programm geschrieben, dass dreidimensionale molekülberechnungen durchführt, also winkelberechnungen, ebenen usw.

bei einer dieser winkelberechnungen nun verwende ich die umkehrfunktion des cosinus, den arcuscosinus, da es die funktion nicht in perl eingebaut gibt verwende ich die acos-funktion aus dem Math::Trig - Modul und genau da liegt das problem:

Unsinnigerweise nun liefert mir die acos-funktion den arcuscosinus in radiant und nicht in degree, also grad.

hab jetzt schon ne weile gegoogelt wie ich in perl radiant in grad umwandeln kann, aber nix dazu gefunden.

wäre echt dankbar wenn mir da einer weiterhelfen könnte,

danke im voraus

[quote=supersucker,16.April.2005, 14:55]Unsinnigerweise nun liefert mir die acos-funktion den arcuscosinus in radiant ...[/quote]
wohl (sinnigerweise) wg cos(acos($x)) == $x ?

Umrechnung radians <-> deg siehe perldoc Math::Trig

danke soweit,

hätte vielleicht auch mal cpan ein bisschen genauer durchsuchen können, oder matheboards, dann hätt ich gesehen dass man vom bogenmaß zu grad kommt indem man einfach das bogenmaß * 180 nimmt und durch pi teilt......:-)

nun hab ich aber ein anderes problem, dessen ursache mir völlig schleierhaft ist:

führe ich folgendes kleines script aus:



krieg ich die richtigen Werte raus, sowohl für den Winkel in Rad (also bogenmaß) als auch in grad (das wäre 2.64718751654284 für rad und
151.672672277622 grad)

mache ich jedoch GENAU das gleiche in meinem hauptscript, also:



krieg ich die fehlermeldung:

Undefined subroutine &FRAG_LIB::acos called at /root/development/eclipse/eclipse/workspace/PDB_FRAGMENT_LIB/bin/PDBParser.pl line 752, <FILE> line 15082.

rufe ich hingegen die acos-funktion so auf:


passiert etwas was ich erst recht nicht verstehe, ich kriege nämlich dann
immer die gleichen falschen werte für RAD und GRAD (immer 90 grad) raus, egal was ich acos übergebe (die funktion wird in einer schleife aufgerufen, bei jedem aufruf übergeb ich der acos-funktion einen anderen wert)

ich bin kein perl-experte, hätte aber gedacht mich mittlerweile in der sprache ganz gut auszukennen, aber mit diesem verhalten kann ich überhaupt gar nichts anfangen und hab nicht die geringste ahnung was da wo falsch läuft.......

ich wäre echt dankbar wenn mir jemand sagen könnte was da nicht passt, bzw. was ich an perl offensichtlich noch nicht verstanden habe.

danke für jede hilfe, micha

Das klingt mir so, als ob

Quote

use strict;
use warnings;

in dem Skript hilfreich sein könnte!

[quote=supersucker,16.04.2005, 17:02]

passiert etwas was ich erst recht nicht verstehe, ich kriege nämlich dann
immer die gleichen falschen werte für RAD und GRAD (immer 90 grad) raus, egal was ich acos übergebe (die funktion wird in einer schleife aufgerufen, bei jedem aufruf übergeb ich der acos-funktion einen anderen wert)[/quote]
das ist ganz logisch. du rufst hier acos() als klassenmethode auf, wobei
der string "Math::Trig" als erstes argument übergeben wird. mach stattdessen
Math::Trig::acos(...)

hi,

vielen dank für die antwort, das hat mein problem gelöst.

noch eine frage aus interesse:

warum macht es einen Unterschied, ob ich die acos-methode mit "->" aufrufe oder mit "::"? ich dachte ich rufe mit beidem die klassenmethode auf....
und warum liefert mir die acos-methode bei aufruf mit "->" immer das erste ergebnis aus der schleife zurück, obwohl ich ihr immer neue werte übergebe?

Math::Trig->acos($x)
# ist gleich
Math::Trig::acos("Math::Trig",$x)
wie gesagt, mit dem pfeil rufst du es als klassenmethode auf ($objekt->acos(...)
ist eine objektmethode, die auf einer instanz aufgerufen
wird), und generell wird bei methoden das ding vor dem pfeil als erstes
argument übergeben.
Math::Trig::acos(...) ist ein einfacher funktionsaufruf.