fortran προβλημα

[dimitris_pa]

απο τι μου ειπανε το προβλημα ειναι μεσα στην γραμμη 106 μεχρι την 110 και δεν μπορω να το βρω.... καμια ιδεα ? ευχαριστω

 

 

 

>106  do node = 1,n+1 

107  z = 0.5d0 * ( - dcos(pi*(node-1)/dble(n)) + 1.d0 )

108  do r = 1,n+1 

109   sum = sum + (z*z)*D(node,r)

110  enddo 

111  print*, z, sum, 2.d0*z

112 enddo

[geowizard]

1,n+1 μηπως θελει κενο μετα το κόμμα;

[dimitris_pa]

1,n+1 μηπως θελει κενο μετα το κόμμα;

λες ? χεχε κατσε να δω

 

παλυ το ιδιο αποτελεσμα βγαζει... ευχαριστω παντος

[insomniaK]

λάθος μου

 

ε τι να σου πουμε; έχουν ορισθεί όλα σωστα; σε τι φορτραν είναι; τι compiler χρησιμοποιείται;

 

Προσωπικά, δεν ξέρω καν τι ειναι το dcos, μήπως είναι acos;;;

[V.I.Smirnov]

Η λέξη sum είναι keyword (εντολή) :

αθροίζει τα στοιχεία ενός πίνακα σε όλες τις διαστάσεις του ή σε συγκεκριμένες διαστάσεις.

Δεν μπορεί να χρησιμοποιηθεί μεταβλητή με το όνομα sum.

(ή πιο σωστά μπορεί αλλά υπό προϋποθέσεις που δεν ενδιαφέρουν εδώ)

 

O εσωτερικός βρόγχος δεν χρειάζεται, μπορεί να αντικατασταθεί από την χρήση της sum.

Π.χ. η athroisma = (z**2)*sum(D(node,1:n+1)) αθροίζει τα στοιχεία από 1 έως n+1 της γραμμής node.

 

Τέλος, η dcos() επίσης δεν χρειάζεται, αρκεί η απλή cos() :

η συνάρτηση cos όπως και πολλές άλλες (και η sum) είναι generic,

όπερ σημαίνει ότι μπορεί να έχει ως όρισμα real4, real8, complex4 ή complex8 κλπ

και ο compiler καλεί την αντίστοιχη ανάλογα με τον τύπο του ορίσματος.

 

-

[dimitris_pa]

Η λέξη sum είναι keyword (εντολή) :

αθροίζει τα στοιχεία ενός πίνακα σε όλες τις διαστάσεις του ή σε συγκεκριμένες διαστάσεις.

Δεν μπορεί να χρησιμοποιηθεί μεταβλητή με το όνομα sum.

(ή πιο σωστά μπορεί αλλά υπό προϋποθέσεις που δεν ενδιαφέρουν εδώ)

 

O εσωτερικός βρόγχος δεν χρειάζεται, μπορεί να αντικατασταθεί από την χρήση της sum.

Π.χ. η athroisma = (z**2)*sum(D(node,1:n+1)) αθροίζει τα στοιχεία από 1 έως n+1 της γραμμής node.

 

Τέλος, η dcos() επίσης δεν χρειάζεται, αρκεί η απλή cos() :

η συνάρτηση cos όπως και πολλές άλλες (και η sum) είναι generic,

όπερ σημαίνει ότι μπορεί να έχει ως όρισμα real4, real8, complex4 ή complex8 κλπ

και ο compiler καλεί την αντίστοιχη ανάλογα με τον τύπο του ορίσματος.

 

-

 

τωρα φαινεται πιο σωστο αλλα και παλι πανω κατω το ιδιο αποτελεσμα βγαζει... ευχαριστω παρα πολυ για τον χρονο σας... θα το δουλεψω και μπορει να επανελθω