| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
 Verfasst am: 29.01.2006, 15:07 Titel: HILFE! Mein Fraktal wird nicht gebrochen ^^ |
 |
|
Âlso, kann mir mal jemand sagen, was an meinem code nicht stimmt?
erreichbar unter http://nopaste.freebasic.de/?view=177 |
|
| Nach oben |
|
 |
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 29.01.2006, 17:08 Titel: |
|
|
| Zitat: | input "(real min,real max,imag max,imag min)",xmin,xmax,ymax,ymin
input "C (real,imag)",c.r,c.i
input "Maximum Iterations",maxiters |
Gib mir mal die Konstanten/Eingaben, ich vermute dort das Problem.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
| Verfasst am: 30.01.2006, 15:38 Titel: |
|
|
xmax=1
xmin=-1 real anteil
----------------------
ymax=1 imaginär anteil
ymin=-1
----------------------
c real: 2
c imaginär: 2 |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
|
| Nach oben |
|
|
psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
| Verfasst am: 30.01.2006, 19:16 Titel: |
|
|
es geht immer noch nicht! HILFE!  
es muss an meinem code liegen... ich hab jetzt einen anderen gefunden, der geht, aber meiner geht eben nciht..... niemand der helfen kann? |
|
| Nach oben |
|
|
vspickelen
Anmeldungsdatum: 12.06.2005
Beiträge: 13
Wohnort: Holland
|
| Verfasst am: 31.01.2006, 15:33 Titel: |
|
|
Man soll's ein klein bißchen änderen:
| Code: | 'Fraktal Berechnung 1.0
'Cleaned up by vspickelen
'Code: FreeBasic & all Q-Basics
DEFDBL A-Z
RANDOMIZE TIMER
'-------------------------------------------------------------------------------
TYPE complex
r AS DOUBLE
i AS DOUBLE
END TYPE
'-------------------------------------------------------------------------------
DIM z AS complex, c AS complex
DIM xrmax AS INTEGER, yrmax AS INTEGER
DIM x AS INTEGER, y AS INTEGER
DIM maxiters AS INTEGER, i AS INTEGER
'-------------------------------------------------------------------------------
SCREEN 12
xrmax = 640
yrmax = 480
'input "(real min,real max,imag max,imag min)",xmin,xmax,ymax,ymin
'input "C (real,imag)",c.r,c.i
'input "Maximum Iterations",maxiters
'z.B:
xmax = 3.2
ymax = 2
c.r = -.7791808701770218#
c.i = .1345224333707017#
maxiters = 70
xstep = xmax / xrmax
ystep = ymax / yrmax
e = 8 / LOG(maxiters)
CLS
FOR x = 0 TO xrmax - 1
FOR y = 0 TO yrmax - 1
z.r = (x - xrmax * .5) * xstep
z.i = (y - yrmax * .5) * ystep
FOR i = 1 TO maxiters
t = z.r * z.r - z.i * z.i + c.r
z.i = 2 * z.r * z.i + c.i: z.r = t
IF (z.r * z.r + z.i * z.i) > 10 THEN EXIT FOR
NEXT i
IF i > maxiters THEN
i = 0
ELSE
i = LOG(i) * e
END IF
PSET (x, y), i
IF INKEY$ <> "" THEN SYSTEM
NEXT y
NEXT x
SLEEP |
Und es läuft schön...
Gruß, vspickelen |
|
| Nach oben |
|
|
psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
| Verfasst am: 31.01.2006, 20:46 Titel: |
|
|
*räusper* die änderungen sind ja sehr schön und gut, aber, eigentlich sinnlos. Ich hab bereits ein meinem prgramm sehr ähnliches gefunden, welches reibungslos läuft. bin gerade beim check up.
ABER
Danke für deine mühe! |
|
| Nach oben |
|
|
dreael
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 2529
Wohnort: Hofen SH (Schweiz)
|
| Verfasst am: 01.02.2006, 23:17 Titel: Zoom-Apfelmännchen |
|
|
Für die Interessierten Apfelmännchen-Freaks noch ein kleiner QB45-Code:
http://beilagen.dreael.ch/QB/APFELMA2.ZIP
Quellcode dürfte für einen geübten FreeBASIC-Programmierer leicht portierbar sein (enthält noch Mausaufrufe auf INT 33h). Diese Version erlaubt die freie Wahl von z(0) zu Beginn, danach kann man sich mit der Maus dynamisch ins Chaosgebiet hineinzoomen.
@psygate: Hoffentlich hilft es Dir weiter bei der Suche von schönen Ausschnitten.
_________________
Teste die PC-Sicherheit mit www.sec-check.net |
|
| Nach oben |
|
|
psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
| Verfasst am: 02.02.2006, 13:48 Titel: |
|
|
*breit grins* 
danke! |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
