forum.math.uoa.gr

Forum του Τμήματος Μαθηματικών
Ημερομηνία 21 Νοέμ 2017, 16:01

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απάντηση στο θέμα  [ 3 δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: εισαγωγη τιμων σε μεταβλητες
ΔημοσίευσηΔημοσιεύτηκε: 14 Ιούλ 2011, 13:23 
Χωρίς σύνδεση
Regular Forumer
Άβαταρ μέλους

Εγγραφη: 27 Σεπ 2007, 18:07
Δημοσ.: 1920
ξερει κανεις αν και πως μπορουμε σε εναν κωδικα να ζηταμε απο αυτον που τον τρεχει να δινει τιμες σε διαφορες αρχικες μεταβλητες;πχ εχω αυτον τον κωδικα σε γλωσσα R

A=matrix(0,10000000,2)
T
l
m
s
t=0
N=0
i=1
while(t<T) {
A[i,1]=t
A[i,2]=N
h=rexp(1,l)
N=rpois(1,l*(t+h))
t=t+h
i=i+1 }
d=1 # not zero because at t=o ==> N=0
for(i in 1:10000000)
if (A[i,2]!=0)
d=d+1
A=A[seq(1,d),c(1,2)]
X=matrix(0,d,2)
for(i in 1:d) {
for(j in 1:A[i,2]) {
X[i,2]=X[i,2]+rnorm(1,m,s^2)
X[i,1]=A[i,1] } }
t=X[,1]
X=X[,2]
plot(t,X)
Χ

πως μπορω να εμφανισω ενα μηνυμα στην οθονη αυτου που το τρεχει να δινει τιμες στις μεταβλητες Τ, l, m και s ? μπορειτε να μου πειτε σε οποια γλωσσα προγραμματισμου θελετε...αν βεβαια καποιος ξερει s-plus/r ακομα καλυτερα :)


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: εισαγωγη τιμων σε μεταβλητες
ΔημοσίευσηΔημοσιεύτηκε: 15 Ιούλ 2011, 16:39 
Χωρίς σύνδεση
Regular Forumer
Άβαταρ μέλους

Εγγραφη: 08 Οκτ 2006, 19:08
Δημοσ.: 380
Για την R:

Κώδικας:
> {cat("Dose times ton T,l,m,s")
+ input<-scan()
+ if (length(input)==4) {
+ T=input[1]
+ l=input[2]
+ m=input[3]
+ s=input[4]}
+  if (length(input)<4) {cat("Edoses ligoteres times")}
+ if (length(input)>4) {cat("Edoses perissoteres times")}}

_________________
Infinite possibilities and all he can do is whine.
You can do anything, you lucky bastard, you're alive! What's a little pain compared to that?


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: εισαγωγη τιμων σε μεταβλητες
ΔημοσίευσηΔημοσιεύτηκε: 15 Ιούλ 2011, 17:00 
Χωρίς σύνδεση
Regular Forumer
Άβαταρ μέλους

Εγγραφη: 27 Σεπ 2007, 18:07
Δημοσ.: 1920
σε ευχαριστω παααααρα πολυ 1/2rizax, να σαι καλα...

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


ΑΚΥΡΟ το θυμηθηκα...


Κορυφή
 Προφίλ  
 
Τελευταίες δημοσιεύσεις:  Ταξινόμηση κατά  
Δημιουργία νέου θέματος Απάντηση στο θέμα  [ 3 δημοσιεύσεις ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μελη σε συνδεση

Μέλη σε αυτή την Δ. Συζήτηση : Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group