hilfdirselbst.ch
Facebook Twitter gamper-media

"Geht nicht" ist keine gültige Fehlermeldung!

Muse
Beiträge: 13
13. Jun 2003, 11:51
Beitrag #1 von 8
Bewertung:
(1138 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

newbie braucht Hilfe


Hallo Ihr,

ich bin es mal wieder und benötige dringend Eure Hilfe.
Und zwar geht es immernoch um meine Schleife.
Ich habe sie versucht ein wenig einfacher zu machen.
und zwar so:

Code
 
my %werte = (
'NNO' => [0..29],
'NO' => [30..59],
'NOO' => [60..89],
'SOO' => [90..119],
'SO' => [120..149],
'SSO' => [150..179],
'SSW' => [180..209],
'SW' => [210..239],
'SWW' => [240..269],
'NWW' => [269..299],
'NW' => [300..329],
'NWW' => [330..359]
);


while (<DAT>) {
if ($. == 1) {
($xtitle, $ytitle) = (split /;/)[1,0];
chomp($xtitle);}

else{

(@spalte) = split(/;/,$_);

my ($grad) = /\d+;(\d+)/;#hol dir die zweite Zahl in der Zeile
for (keys %werte) { #teste im ganzen Hash %werte

# wenn $grad sich im Wertebereich von $werte{$_} befindet, dann
# erhoehe $hdaten{$_}, wobei $_ z.B. NO oder NNO oder SO etc. ist.
#In %hdaten werden also die Haeufigkeiten fuer die einzelnen Richtungen gezaehlt.

if($grad >= $werte{$_}[0] && $grad <= $werte{$_}[-1]) {$hdaten{$_}++};
}
$gesamt++;
}

}
for (keys %hdaten) {
push @{$daten[0]},$hdaten{$_}=($hdaten{$_}*100)/$gesamt;
push @{$daten[1]},$hdaten{$_};
}

close DAT;

[\code]

Leider stimmt die Ausgabe auf der x-achse nicht. Es sollen die Bezeichnungen 'NNO,'NO'... ausgegeben werden und zwar in einer bestimmten Reihenfolge und zwar so wie sie im Hash %werte stehen.
Habe leider keine Idee wie.

Vielleicht kann mir mal wieder jemand helfen.

LG Muse
Top
 
X
SabineP  M 
Beiträge: 7586
13. Jun 2003, 12:20
Beitrag #2 von 8
Beitrag ID: #39380
Bewertung:
(1138 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

newbie braucht Hilfe


Hallo Muse,

eine Lösung hast Du doch schon von Oesie50 bekommen,
http://www.hilfdirselbst.ch/...c_id=8032&page=2

Das Script funktioniert einwandfrei. Ich habe das auch ausprobiert.

Du solltest mal Deinen Dateiname hier eintragen.
open(DAT,"<daten.txt"); # Datendatei öffnen

Gruß Sabine
als Antwort auf: [#39372] Top
 
Muse
Beiträge: 13
13. Jun 2003, 12:41
Beitrag #3 von 8
Beitrag ID: #39384
Bewertung:
(1138 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

newbie braucht Hilfe


Hallo Sabine,

ich weiß, dass Oesi mir schon mehrere Vorschläge gemacht hat, aber leider bekomme ich das Programm nicht zum laufen.
Ich muss auch GD::Graph benutzen und nicht das Chart-Modul.

Vielleicht kann mir jemand mit meiner Version weiterhelfen.

LG Muse
als Antwort auf: [#39372] Top
 
Muse
Beiträge: 13
13. Jun 2003, 12:58
Beitrag #4 von 8
Beitrag ID: #39387
Bewertung:
(1138 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

newbie braucht Hilfe


Ok, ich habe jetzt den einen vorschlag von Oesi nochmal ausprobiert, was dann folgendermaßen aussieht:

Code
my %werte = ( 
'NNO' => [0..29],
'NO' => [30..59],
'NOO' => [60..89],
'SOO' => [90..119],
'SO' => [120..149],
'SSO' => [150..179],
'SSW' => [180..209],
'SW' => [210..239],
'SWW' => [240..269],
'NWW' => [269..299],
'NW' => [300..329],
'NWW' => [330..359]
);


while(<DAT>){
chomp;
if ($. == 1) {
($ytitle, $xtitle) = (split /;/);
next;
} else{
(@spalte) = split(/;/);
$hdaten{$spalte[1]}++;
$gesamt++;
}
}
close(DAT);

if ($gesamt>0) {# Division durch Null vermeiden
for (sort { $a <=> $b } keys %hdaten ){
push @{$daten[0]}, $werte{$_};
push @{$daten[1]}, $hdaten{$_} *100/ $gesamt ;

}
}
[\code]

So jetzt kamen wenigstens keine Fehlermeldungen mehr. Aber ich habe noch fragen und zwar für was steht die Standardvariable $_ bei push?

Leider gibt das Programm auch keine Bezeichnungen auf der x-Achse aus. Da sollten eigentlich die Bezeichnungen der richtungen stehen, wie NNO usw.

LG Muse
als Antwort auf: [#39372] Top
 
oesi50  A  S
Beiträge: 2315
13. Jun 2003, 13:34
Beitrag #5 von 8
Beitrag ID: #39397
Bewertung:
(1138 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

newbie braucht Hilfe


Liebe Muse,
das ist jetzt mein letzter Versuch,Dir zu helfen.
Ich habe das gesamte Programm mit Kommentaren versehen.
Bitte lies Dir alles Zeile für Zeile genau durch, und versuche mit Hilfe der Perldokumentation, die einzelnen Schritte nachzuvollziehen.

hier ist der Link zum lauffähigen Script:
http://vsrv.net/test/g2.pl
hier ist der Link zum Quellcode:
http://vsrv.net/test/g2.txt
hier ist der Link zu den Daten:
http://vsrv.net/test/daten.txt

Grüße Oesi
als Antwort auf: [#39372] Top
 
Muse
Beiträge: 13
13. Jun 2003, 16:34
Beitrag #6 von 8
Beitrag ID: #39421
Bewertung:
(1138 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

newbie braucht Hilfe


Ich danke dir nochmal sehr für deine Bemühungen.
habe dein Programm in meines eingebaut und es läuft auch.
Das einzige was es noch nicht macht ist, die Bezeichnungen auf der x-Achse auszugeben, obwohl ich die Zeilen genauso von dir übernommen habe und mein Programm nach deinem ausgerichtet habe.

Ich weiß leider selber, dass ich nerve, aber außerdem wollte ich gerne wissen, für was die Standardvariable in der push-Zeile steht.
habe es auch selber versucht herauszufinden, aber ich hoffe du kannst es mir erklären.
Du hast bei deinen Berechnungen, die Sektoren in 16 verschiedene eingeteilt. Ich brauche jedoch nur 12.
Ich habe es dann so gemacht:

my (@zeile) = split /;/;
my $sektor = ($zeile[1] + 15.00);
$sektor = $sektor % 360 ; $sektor = int($sektor / 30);
$hdaten{$sektor}++; $gesamt++;
Bin echt froh, dass du mir so hilft und das hast du bis jetzt auch wirklich schon getan und ich hoffe auch weiterhin.

LG Muse
als Antwort auf: [#39372]
(Dieser Beitrag wurde von Muse am 13. Jun 2003, 16:37 geändert)
Top
 
SabineP  M 
Beiträge: 7586
13. Jun 2003, 17:54
Beitrag #7 von 8
Beitrag ID: #39433
Bewertung:
(1138 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

newbie braucht Hilfe


Irgendwas stimmt nicht mit dem Kompass von Muse:

'NNO' => [0..29]
'NO' => [30..59]
'NOO' => [60..89]
'SOO' => [90..119]
'SO' => [120..149]
'SSO' => [150..179]
'SSW' => [180..209]
'SW' => [210..239]
'SWW' => [240..269]
'NWW' => [269..299]
'NW' => [300..329]
'NWW' => [330..359]

Norden, Osten, Süden und Westen fehlen komplett.

NWW hat zwei Bereiche.

Und die Himmelsrichtungen NOO, SOO, SWW, NWW
gibt es bei uns in Deutschland gar nicht.

Sowas hab ich noch nie gesehen :-o
Wer hat denn solche Himmelsrichtungen erfunden?

Außerdem kann man doch einen Kompass nur in 4, 8 oder 16 Bereiche unterteilen.

Gruß Sabine
als Antwort auf: [#39372]
(Dieser Beitrag wurde von SabineP am 13. Jun 2003, 18:04 geändert)
Top
 
Muse
Beiträge: 13
16. Jun 2003, 09:23
Beitrag #8 von 8
Beitrag ID: #39597
Bewertung:
(1138 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

newbie braucht Hilfe


Mein Kompass stimmt schon.
Ich soll die Windrichtungen in 30° einteilen. Das wurde mir vorgegeben. Genauso wie die blöden Bezeichnungen.
Das vorkommen von "NWW" ist meinerseits leider ein Tipfehler.
Der letzte Bereich soll "NNW" heißen. Sorry.
Die Unterteilungen, sind so, wie Sabine es gemacht hat.
Es gibt demnach 12 Sektoren.

Ist dann meine Berechnung von oben richtig?
Und hat jemand eine idee wegen der x-Achsenbezeichnung?

LG Muse
als Antwort auf: [#39372] Top
 
X