Wellen wollen sich nicht so recht wellen

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
Benutzeravatar
benpicco
Beiträge: 391
Registriert: 01.10.2004 15:32
Wohnort: im Code
Kontaktdaten:
Kontaktdaten von benpicco

Wellen wollen sich nicht so recht wellen

Beitrag von benpicco »

Ich hab mal auf gutglück ein wellenprogramm geschrieben, aber warum wellt es nur realistiscge wellen wen es so wenige Teilchen gibt?
Irgendwie bin ich nicht so wirklich zufriedenn damit...

Code: Alles auswählen

;seltsamerweise sind die wellen realistischer, je niedriger die Details...
InitSprite()
InitKeyboard()
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #detail
  #Text_0
  #Text_1
  #Text_2
  #Text_3
  #start
  #aend
  #wellenlaenge
  #gleich
  #frame
EndEnumeration
Global detail.w
Global wasserspiegel.w
Global laenge.w
Global aend.w
Global x.w
Global warte.w
Global frame.b
frame=80
aend=20
laenge=40
wasserspiegel=200
detail=1000
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 290, 184, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Welleneinstellungen")
    If CreateGadgetList(WindowID())
      TrackBarGadget(#detail, 110, 230, 390, 30, 41, 2000)
      TrackBarGadget(#aend, 110, 190, 390, 30, 0, 200)
      TrackBarGadget(#wellenlaenge, 110, 150, 390, 30, 0, 300)
      TrackBarGadget(#frame, 110, 110, 390, 30, 1, 127)
      TextGadget(#Text_0, 10, 230, 100, 20, "Wasserdetails:"+Str(detail))
      TextGadget(#Text_1, 10, 190, 100, 20, "Änderung:"+Str(aend))
      TextGadget(#Text_2, 10, 150, 100, 20, "Wellenlänge:"+Str(laenge))
      TextGadget(#Text_3, 10, 110, 110, 20, "Max FPS:" + Str(frame))
      ButtonGadget(#start, 500, 220, 80, 40, "Start")
      CheckBoxGadget(#gleich,10,70,180,20,"Wellenlänge=Änderung")
    EndIf
  EndIf
EndProcedure
Open_Window_0()
SetGadgetState(#detail,1000)
SetGadgetState(#aend,20)
SetGadgetState(#wellenlaenge,40)
SetGadgetState(#frame,frame)
1:
Repeat
  
  Event = WaitWindowEvent()
  
  If Event = #PB_EventGadget
    
    
       
    GadgetID = EventGadgetID()
    
    If GadgetID = #detail
      detail=GetGadgetState(#detail)
      SetGadgetText(#Text_0, "Wasserdetails:"+Str(detail))
    ElseIf GadgetID = #aend
      aend=GetGadgetState(#aend)
      SetGadgetText(#Text_1, "Änderung:"+Str(aend))
      If GetGadgetState(#gleich)=1
        laenge=GetGadgetState(#wellenlaenge)
        SetGadgetText(#Text_2, "Wellenlänge:"+Str(laenge))
        SetGadgetState(#wellenlaenge,aend)
      EndIf
    ElseIf GadgetID = #wellenlaenge
      laenge=GetGadgetState(#wellenlaenge)
      SetGadgetText(#Text_2, "Wellenlänge:"+Str(laenge))
      If GetGadgetState(#gleich)=1
        aend=GetGadgetState(#aend)
        SetGadgetText(#Text_1, "Änderung:"+Str(aend))
        SetGadgetState(#aend,laenge)
      EndIf
    ElseIf GadgetID =#frame
      frame=GetGadgetState(#frame)
      SetGadgetText(#Text_3,"Max FPS:"+Str(frame))  
    ElseIf GadgetID = #start
    aend=GetGadgetState(#aend)
    laenge=GetGadgetState(#wellenlaenge)
    detail=GetGadgetState(#detail)

      Goto start
      
    EndIf
    
  EndIf
  
Until Event = #PB_EventCloseWindow
End
start:
Dim TeilchenX(detail+1)
Dim TeilchenY(detail+1)
TeilchenY(detail+1)=wasserspiegel+10
TeilchenY(0)=wasserspiegel-10
For x=0 To detail+1
  TeilchenX(x)=Int(x*(1024/detail))
  TeilchenY(x)=wasserspiegel
Next
TeilchenX(1)=0

OpenScreen(1024,768,32,"wasser")

SetFrameRate(frame)
Repeat
ClearScreen(10,10,150)

If warte=0
  TeilchenY(detail-40)=wasserspiegel-aend
  TeilchenY(detail-20)=wasserspiegel+aend
  warte=laenge
EndIf
warte=warte-1
StartDrawing(ScreenOutput())
For x=1 To detail
  ;TeilchenY(x-1)=TeilchenY(x-1)+1
  Plot(TeilchenX(x),TeilchenY(x),RGB(0,0,255))
  If TeilchenY(x)>TeilchenY(x+1) Or TeilchenY(x)>TeilchenY(x-1); Ein Komma vor der Or ändert die wellenform
    TeilchenY(x)=TeilchenY(x)-1
  ElseIf TeilchenY(x)<TeilchenY(x+1) Or TeilchenY(x)<TeilchenY(x-1);dito
    TeilchenY(x)=TeilchenY(x)+1
  EndIf
  ;If TeilchenY(x) < Wasserspiegel ;Sieht nur bei niedrigen Details gut aus
   ; TeilchenY(x) = TeilchenY(x)+0.5
  ;ElseIf TeilchenY(x) > Wasserspiegel
  ;  TeilchenY(x) = TeilchenY(x)-0.4
  ;EndIf
  LineXY(TeilchenX(x), TeilchenY(x),TeilchenX(x+1), TeilchenY(x+1),RGB(0,0,255))
Next
DrawingMode(1)
FrontColor(0,0,0)
Locate(10,10)
DrawText("Warte:"+Str(warte))
StopDrawing()
FlipBuffers()
ExamineKeyboard()
Until KeyboardReleased(#pb_key_escape)
CloseScreen()
warte=0
Goto 1:
Johann Wolfgang von Geothe hat geschrieben:Wie dieses oder jenes Wort geschrieben wird, darauf kommt es doch eigentlich nicht an, sondern darauf, daß die Leser verstehen, was man damit sagen wollte.
Nach oben
Benutzeravatar
Hroudtwolf
Beiträge: 1416
Registriert: 30.10.2004 23:33
Kontaktdaten:
Kontaktdaten von Hroudtwolf

Beitrag von Hroudtwolf »

So gehts !

Code: Alles auswählen

;seltsamerweise sind die wellen realistischer, je niedriger die Details...
InitSprite()
InitKeyboard()
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #detail
  #Text_0
  #Text_1
  #Text_2
  #Text_3
  #start
  #aend
  #wellenlaenge
  #gleich
  #frame
EndEnumeration
Global detail.w
Global wasserspiegel.w
Global laenge.w
Global aend.w
Global x.w
Global warte.w
Global frame.b
frame=80
aend=20
laenge=40
wasserspiegel=200
detail=1000
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 290, 184, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Welleneinstellungen")
    If CreateGadgetList(WindowID())
      TrackBarGadget(#detail, 110, 230, 390, 30, 41, 2000)
      TrackBarGadget(#aend, 110, 190, 390, 30, 0, 200)
      TrackBarGadget(#wellenlaenge, 110, 150, 390, 30, 0, 300)
      TrackBarGadget(#frame, 110, 110, 390, 30, 1, 127)
      TextGadget(#Text_0, 10, 230, 100, 20, "Wasserdetails:"+Str(detail))
      TextGadget(#Text_1, 10, 190, 100, 20, "Änderung:"+Str(aend))
      TextGadget(#Text_2, 10, 150, 100, 20, "Wellenlänge:"+Str(laenge))
      TextGadget(#Text_3, 10, 110, 110, 20, "Max FPS:" + Str(frame))
      ButtonGadget(#start, 500, 220, 80, 40, "Start")
      CheckBoxGadget(#gleich,10,70,180,20,"Wellenlänge=Änderung")
    EndIf
  EndIf
EndProcedure
Open_Window_0()
SetGadgetState(#detail,1000)
SetGadgetState(#aend,20)
SetGadgetState(#wellenlaenge,40)
SetGadgetState(#frame,frame)
1:
Repeat
 
  Event = WaitWindowEvent()
 
  If Event = #PB_EventGadget
   
   
       
    GadgetID = EventGadgetID()
   
    If GadgetID = #detail
      detail=GetGadgetState(#detail)
      SetGadgetText(#Text_0, "Wasserdetails:"+Str(detail))
    ElseIf GadgetID = #aend
      aend=GetGadgetState(#aend)
      SetGadgetText(#Text_1, "Änderung:"+Str(aend))
      If GetGadgetState(#gleich)=1
        laenge=GetGadgetState(#wellenlaenge)
        SetGadgetText(#Text_2, "Wellenlänge:"+Str(laenge))
        SetGadgetState(#wellenlaenge,aend)
      EndIf
    ElseIf GadgetID = #wellenlaenge
      laenge=GetGadgetState(#wellenlaenge)
      SetGadgetText(#Text_2, "Wellenlänge:"+Str(laenge))
      If GetGadgetState(#gleich)=1
        aend=GetGadgetState(#aend)
        SetGadgetText(#Text_1, "Änderung:"+Str(aend))
        SetGadgetState(#aend,laenge)
      EndIf
    ElseIf GadgetID =#frame
      frame=GetGadgetState(#frame)
      SetGadgetText(#Text_3,"Max FPS:"+Str(frame)) 
    ElseIf GadgetID = #start
    aend=GetGadgetState(#aend)
    laenge=GetGadgetState(#wellenlaenge)
    detail=GetGadgetState(#detail)

      Goto start
     
    EndIf
   
  EndIf
 
Until Event = #PB_EventCloseWindow
End
start:
Dim TeilchenX(detail+1)
Dim TeilchenY(detail+1)
TeilchenY(detail+1)=wasserspiegel+10
TeilchenY(0)=wasserspiegel-10
For x=0 To detail+1
  TeilchenX(x)=Int(x*(1024/detail))
  TeilchenY(x)=wasserspiegel
Next
TeilchenX(1)=0

OpenScreen(1024,768,32,"wasser")

SetFrameRate(frame)
Repeat
ClearScreen(10,10,150)

If warte=0
  TeilchenY(detail-40)=wasserspiegel-aend
  TeilchenY(detail-20)=wasserspiegel+aend
  warte=laenge
EndIf
warte=warte-1
StartDrawing(ScreenOutput())
For x=1 To detail
  ;TeilchenY(x-1)=TeilchenY(x-1)+1


;-------------------------------------------------------------------------
; geänderter Bereich
  If TeilchenX(x)>0 And TeilchenX(x)<1023 And TeilchenY(x)>0 And TeilchenY(x)<767
   Plot(TeilchenX(x),TeilchenY(x),RGB(0,0,255))
  EndIf 
;-------------------------------------------------------------------------


  If TeilchenY(x)>TeilchenY(x+1) Or TeilchenY(x)>TeilchenY(x-1); Ein Komma vor der Or ändert die wellenform
    TeilchenY(x)=TeilchenY(x)-1
  ElseIf TeilchenY(x)<TeilchenY(x+1) Or TeilchenY(x)<TeilchenY(x-1);dito
    TeilchenY(x)=TeilchenY(x)+1
  EndIf
  ;If TeilchenY(x) < Wasserspiegel ;Sieht nur bei niedrigen Details gut aus
   ; TeilchenY(x) = TeilchenY(x)+0.5
  ;ElseIf TeilchenY(x) > Wasserspiegel
  ;  TeilchenY(x) = TeilchenY(x)-0.4
  ;EndIf
  LineXY(TeilchenX(x), TeilchenY(x),TeilchenX(x+1), TeilchenY(x+1),RGB(0,0,255))
Next
DrawingMode(1)
FrontColor(0,0,0)
Locate(10,10)
DrawText("Warte:"+Str(warte))
StopDrawing()
FlipBuffers()
ExamineKeyboard()
Until KeyboardReleased(#pb_key_escape)
CloseScreen()
warte=0
Goto 1:
Nach oben
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8809
Registriert: 29.08.2004 20:20
Computerausstattung: Ryzen 7 5800X, 64 GB DDR4-3200
Ubuntu 24.04.2 LTS
GeForce RTX 3080 Ti
Wohnort: Saarbrücken

Beitrag von NicTheQuick »

Was soll das darstellen?
Nach oben
Benutzeravatar
Deeem2031
Beiträge: 1232
Registriert: 29.08.2004 00:16
Wohnort: Vorm Computer
Kontaktdaten:
Kontaktdaten von Deeem2031

Beitrag von Deeem2031 »

Steht doch in der Überschrift: Wellen.
Aber Hroudtwolfs Ergebnis sieht irgendwie nicht richtig aus..
Bild
[url=irc://irc.freenode.org/##purebasic.de]irc://irc.freenode.org/##purebasic.de[/url]
Nach oben
Benutzeravatar
Hroudtwolf
Beiträge: 1416
Registriert: 30.10.2004 23:33
Kontaktdaten:
Kontaktdaten von Hroudtwolf

Beitrag von Hroudtwolf »

Ich hab nur die Fehlerquelle beseitigt.

Für das Prinzip ist der Autor verantwortlich.
Nach oben
Benutzeravatar
benpicco
Beiträge: 391
Registriert: 01.10.2004 15:32
Wohnort: im Code
Kontaktdaten:
Kontaktdaten von benpicco

Beitrag von benpicco »

Code: Alles auswählen

;------------------------------------------------------------------------- 
; geänderter Bereich 
  If TeilchenX(x)>0 And TeilchenX(x)<1023 And TeilchenY(x)>0 And TeilchenY(x)<767 
   Plot(TeilchenX(x),TeilchenY(x),RGB(0,0,255)) 
  EndIf 
;-------------------------------------------------------------------------
Ich seh da keinen Unterschied, die if bedingung trifft doch immer zu.
Ich hab mehr die Wellenform gemeint, es gibt doch keine Fehler, das aussehen ist nur nicht realistisch.[/list]
Johann Wolfgang von Geothe hat geschrieben:Wie dieses oder jenes Wort geschrieben wird, darauf kommt es doch eigentlich nicht an, sondern darauf, daß die Leser verstehen, was man damit sagen wollte.
Nach oben
DarkDragon
Beiträge: 6291
Registriert: 29.08.2004 08:37
Computerausstattung: Hoffentlich bald keine mehr
Kontaktdaten:
Kontaktdaten von DarkDragon

Beitrag von DarkDragon »

benpicco hat geschrieben:

Code: Alles auswählen

;------------------------------------------------------------------------- 
; geänderter Bereich 
  If TeilchenX(x)>0 And TeilchenX(x)<1023 And TeilchenY(x)>0 And TeilchenY(x)<767 
   Plot(TeilchenX(x),TeilchenY(x),RGB(0,0,255)) 
  EndIf 
;-------------------------------------------------------------------------
Ich seh da keinen Unterschied, die if bedingung trifft doch immer zu.
Ich hab mehr die Wellenform gemeint, es gibt doch keine Fehler, das aussehen ist nur nicht realistisch.[/list]
Nein nicht immer, schau mal in den Debugger Error: "Plot outside of drawing area"
Angenommen es gäbe einen Algorithmus mit imaginärer Laufzeit O(i * n), dann gilt O((i * n)^2) = O(-1 * n^2) d.h. wenn man diesen Algorithmus verschachtelt ist er fertig, bevor er angefangen hat.
Nach oben
Benutzeravatar
Hroudtwolf
Beiträge: 1416
Registriert: 30.10.2004 23:33
Kontaktdaten:
Kontaktdaten von Hroudtwolf

Beitrag von Hroudtwolf »

Zur Belehrung:

Erst Debugger benutzen, dann Code posten.
Das gleiche gilt für das Veröffentlichen von Programmen.
Nach oben
Benutzeravatar
benpicco
Beiträge: 391
Registriert: 01.10.2004 15:32
Wohnort: im Code
Kontaktdaten:
Kontaktdaten von benpicco

Beitrag von benpicco »

Da ich die demo benutze ist der debugger immer an, aber ich habe die maximale Änderung aus 200 festgelegt, da kann kein Plot aus dem bild raus!
Eigentlich wollte ich wissen, wie man die Wellen realistische gestalten kann, es liegt ja daran, das man alle plots gleichzeiti abfragen muss, naja, ich hab mir schon überlegt, wie ich´s jetzt mach, aber danke trotzdem, sonst hätte ich mich villeicht irgendwann mal gewundert warum es zu Fehlern bei Plots auserhalb des Bildschirms kommt :wink:
Johann Wolfgang von Geothe hat geschrieben:Wie dieses oder jenes Wort geschrieben wird, darauf kommt es doch eigentlich nicht an, sondern darauf, daß die Leser verstehen, was man damit sagen wollte.
Nach oben
Benutzeravatar
Hroudtwolf
Beiträge: 1416
Registriert: 30.10.2004 23:33
Kontaktdaten:
Kontaktdaten von Hroudtwolf

Beitrag von Hroudtwolf »

Schau mal was der liebe Rob da Feines in der Vergangeheit gemacht hat.
Ich glaube das sollte dir bei deinem Problem ein wenig weiterhelfen.

Code: Alles auswählen

; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=2515&highlight=
; Author: Rob
; Date: 09. October 2003

; Bezier-Kurven Funktion:
; Im Beispiel: Mit der Maus die Punkte bewegen, mit der linken Maustaste den aktiven Punkt ändern. 

cw = RGB(255,255,255) 
cr = RGB(255,0,0) 

Procedure bezier(x1,y1,x2,y2,x3,y3,x4,y4,color) 
  oldx=x1 
  oldy=y1 
  cx.f=3*(x2-x1) 
  bx.f=3*(x3-x2)-cx 
  ax.f=x4-x1-cx-bx 
  cy.f=3*(y2-y1) 
  by.f=3*(y3-y2)-cy 
  ay.f=y4-y1-cy-by 
  While i.f < 1 
    i+0.05 
    x=((ax*i+bx)*i+cx)*i+x1 
    y=((ay*i+by)*i+cy)*i+y1 
    If i>0: LineXY(oldx,oldy,x,y,color) : EndIf 
    oldx=x 
    oldy=y 
  Wend 
EndProcedure 

InitSprite() 
InitKeyboard() 
InitMouse() 

OpenScreen(640,480,16,"Bezier") 

x1=0 : y1=0 
x2=640 : y2=0 
x3=0 : y3=480 
x4=640 : y4=480 

key = 1 

Repeat 
  ExamineKeyboard() 
  ExamineMouse() 
  
  ; Punkt wechseln 
  If MouseButton(1) And mousepush=0 ; Punkte rotieren: 1-4 
    key = (key % 4) + 1 
    If key=1 : MouseLocate(x1,y1) : EndIf 
    If key=2 : MouseLocate(x2,y2) : EndIf 
    If key=3 : MouseLocate(x3,y3) : EndIf 
    If key=4 : MouseLocate(x4,y4) : EndIf 
  EndIf 
  mousepush=MouseButton(1) 

  StartDrawing(ScreenOutput()) 
  DrawingMode(4) 
  ; Punkte zeichnen 
  If key=1 : x1=MouseX() : y1=MouseY() : Circle(x1,y1,5,cr) : Else : Circle(x1,y1,5,cw) : EndIf 
  If key=2 : x2=MouseX() : y2=MouseY() : Circle(x2,y2,5,cr) : Else : Circle(x2,y2,5,cw) : EndIf 
  If key=3 : x3=MouseX() : y3=MouseY() : Circle(x3,y3,5,cr) : Else : Circle(x3,y3,5,cw) : EndIf 
  If key=4 : x4=MouseX() : y4=MouseY() : Circle(x4,y4,5,cr) : Else : Circle(x4,y4,5,cw) : EndIf 
  
  ; Bezierkurve zeichnen 
  bezier(x1,y1,x2,y2,x3,y3,x4,y4,cw) 

  StopDrawing() 
    
  FlipBuffers() 
  ClearScreen(0,0,0) 
Until KeyboardPushed(1)
Nach oben
Antworten

Zurück zu „Anfänger“