 |
Das deutsche QBasic- und FreeBASIC-Forum Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
tony
Anmeldungsdatum: 25.12.2008 Beiträge: 8
|
Verfasst am: 01.02.2009, 20:09 Titel: Fehler bei Ausgabe. Wer kann helfen? |
|
|
hallo ihr lieben,
habe wieder ein problem: habe dieses programm geschrieben aber bei der ausgabe ist der wurm drin:
dim as double xi(n%), xisum, xqsum,miwertx, varixi, sx,y, ximwert (i%), SAQ
print
xisum=0
xqsum=0
input"Bitte geben sie die Anzahl der Werte ein:";n
?
?
Print,(n);" Werte werden erwartet"
rem Beginn Wiederholung
?
for i= 1 to n
print"Wert Xi(";i;"):";
input xi(i)
xisum=xisum+xi(i)
xiqsum=xiqsum+xi(i)^2
next i
miwertx=xisum/n
print"Summe Xi:";xisum
print"Mittelwert:"; miwertx
varixi=(xiqsum-(1/n*xisum^2))/(n-1)
sx=sqr(varixi)
?
for i = 1 to n
xi(i) = xi(i)- miwertx
print"Xi(";i;")- Mittelwert:";(i);" -";miwertx;"= "; xi(i)
SAQ=SAQ+xi(i)^2
next i
print"SAQ: ";SAQ
print"Varianz:"; varixi
print"Die Standardabweichung:"; sx
?
sleep
das problem ist folgendes: bei der Ausgabe (fettgedruckt!) soll er die EINGEGEBENEN werte aufzählen und nicht von 1 aufwärts bis n, was mache ich falsch ??? |
|
Nach oben |
|
 |
St_W

Anmeldungsdatum: 22.07.2007 Beiträge: 956 Wohnort: Austria
|
Verfasst am: 01.02.2009, 21:59 Titel: |
|
|
So etwa?
Code: | dim xisum as double
dim xqsum as double
dim xiqsum as double
dim miwertx as double
dim varixi as double
dim SAQ as double
dim sx as double
dim n as integer
dim i as integer
print
xisum=0
xqsum=0
input"Bitte geben sie die Anzahl der Werte ein:";n
Print,(n);" Werte werden erwartet"
dim xi(n) as single
dim ximwert(n) as single
for i= 1 to n
print"Wert Xi(";i;"):";
input xi(i)
xisum=xisum+xi(i)
xiqsum=xiqsum+xi(i)^2
next i
miwertx=xisum/n
print"Summe Xi:";xisum
print"Mittelwert:"; miwertx
varixi=(xiqsum-(1/n*xisum^2))/(n-1)
sx=sqr(varixi)
for i = 1 to n
ximwert(i) = xi(i)- miwertx
print"Xi(";i;")- Mittelwert:";xi(i);" -";miwertx;"= "; ximwert(i)
SAQ=SAQ+ximwert(i)^2
next i
print"SAQ: ";SAQ
print"Varianz:"; varixi
print"Die Standardabweichung:"; sx
sleep |
Die Logik hinter der Berechnung musst du selbst überprüfen, ob ich nicht bei meinen Veränderungen etwas unpassendes hinsichtlich der Programmlogik gemacht habe. Im Bereich der Statistik & WSK-Rechnung kenn ich mich rechnerisch nämlich nicht so gut aus. StdAbw und Varianz dürften aber stimmen. _________________ Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken) |
|
Nach oben |
|
 |
tony
Anmeldungsdatum: 25.12.2008 Beiträge: 8
|
Verfasst am: 03.02.2009, 22:05 Titel: |
|
|
danke, kurz nachdem ich meinen "hilferuf" gestartet habe, habe ich festgestellt wo der fehler war.
nochmals danke |
|
Nach oben |
|
 |
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|