Anzeige von Parabeln

deleted.

[Eisbär]

gelöscht

deleted.

[p. specht]

Mach Geraden-Abschnitte draus, so gehts am schnellsten...

Zitat von Mylen

hallo,
Also Problem, ich möchte gerne Parabeln (x²+bx+c) grafisch anzeigen.
Hat jmd. Tips wie man ... Und überhaupt Grafisch sowas darstellen kann?

Hallo Mylen,

ich empfehle Dir für die Darstellung in ein create("hPic",... hineinzumalen und dieses dann mit einem Create("Bitmap",... anzuzeigen - so musst Du Dich nicht weiter um die Anzeige und Darstellung kümmern.

So kann man sich ein Control dafür bauen ( wie z.B. Bildanzeige: 3586 ) welches z.B. Daten aus einem Array darstellt.

[Frabbing]

In der Regel werden die einzelnen Punkte mittels Formel berechnet und z.B. mit SetPixel ins Fenster "gemalt".

deleted.

[THFR]

Jede Menge Tips auf Codesnippets-liste

Oder hilft ein abgewandeltes Mini daraus weiter?

Def GetSysColor(1) !"USER32","GetSysColor"

Proc F
 Parameters x%
 Declare y%
 y% = x% ^2 +n% *20
 return y%
EndProc

' Hauptprogramm
'
Declare a%, n%
Decimals 0

SetTrueColor 1
WindowStyle 26
Window 0, 0 - 750, 730
WindowTitle "Parabel"
Cls GetSysColor(15)

declare edit&, start&, text&,ELEMENT1&
text&=CreateText(%hwnd,"Bitte den Wert eingeben",10,670,200,24)
Edit&=CreateEdit(%hwnd,"0",220,670,40,24)
start&=CreateButton(%hwnd,"Start",300,670,60,24)
Zeichnen

While 1
 WaitInput
 case %key=2:  BREAK
 If GetFocus(start&)
  n% = val(GetText$(edit&))
  Zeichnen
 Endif
Endwhile
DestroyWindow(Element1&)
End

Proc Zeichnen
 
 DestroyWindow(Element1&)

' ELEMENT1&=Control("DIALOG","",$54001100,0,0,730,630,%hwnd,0,%hinstance,$0)
' StartPaint element1&

 MCls 750, 650 ,RGB(255,255,255)' ab XProfan 9
 StartPaint -1                  ' ab XProfan 9
 
 ' Koordinatensystem zeichnen
 UsePen 0, 1, RGB(20, 20, 20)
 Line 10, 600 - 720, 600' x
 Line 370, 10 - 370, 740' y
 TextColor 0, -1
 UseFont "Courier New", 15, 0, 0, 0, 0
 ' Zahlen
 UsePen 0, 1, 0
 UseFont "Arial", 15, 0, 0, 0, 0
 ' x
 Whileloop 35
  Line ((&loop *20) +10), 600 - ((&loop *20) +10),610
  DrawText ((&loop *20) +5), 610, Str$(-18 +&loop)
 Wend
 ' y
 Whileloop 34
  Line 360, ((&loop *20)) - 370, ((&loop *20))
  DrawText 375, ((&loop *20) -6), Str$(30 -&loop)
 Wend


 ' Parabel zeichnen

 ' Linke
 UsePen 5, 0, RGB(31, 31, 31)
 LineTo (19*20), 600  - (n%*20)
 While 1
  inc a%
  UsePen 0, 1, RGB(255, 0, 0)
  F a%
  Case  600 -%(0)< 0: break
  LineTo (370 -(a% *10)), 600 -%(0), 0
 wend
 Clear a%

 ' Rechte
 UsePen 5, 0, RGB(31, 31, 31)
 LineTo (19*20), 600 -(n%*20)
 While 1
  inc a%
  UsePen 0, 1, RGB(255, 0, 0)
  F a%
  Case 600 -%(0)< 0: break
  LineTo (370 +(a% *10)), (600 -%(0)), 0
 wend
 clear a%

 ' Textanzeigen
 UseFont "Courier New", 18, 0, 1, 0, 0
 DrawText 4, 4, "Parabel für: f(x) = y = x²"
 endpaint

 element1&=Create("hPic",0,"&MEMBMP" ) ' ab XProfan 9
 DrawPic element1&, 0, 0; 0            ' ab XProfan 9

Endproc

Gruß Thomas

deleted.

[THFR]

Ich denke ich muss den eingegebenen Wert aufteilen, das kann ich ja einfach mit dem assign Befehl machen oder einfach direkt 3 @create("edit"... Felder erstellen.

Sind ja zwei Paar Schuhe.
Sind die Daten in einer Datei, so muß die DATEI über Assign #n geöffnet und die Werte mit Input #nn, Zeile$ extrahiert und ggf. in einer Listbox, Auswahlbox oder Gridbox abgelegt werden. Hier können sie dann angezeigt und ausgewählt werden. Dann sind vermutlich 3 Werte in Zeile$, die wiederum feste "Spaltenbreite" oder "Spaltentrenner (, oder ; ) " haben können. Also auflösen und den entsprechenden Variablen der Formel übergeben.

Die Daten können natürlich auch im eigenen Fenster (@Create("Window",N,S,X1,Y1,X2,Y2)) , das ein- und ausgeblendet werden kann, angezeigt und bearbeitet werden.
Beispiel:



Sollen nur Daten eingegeben werden können, so kommt natürlich Create("Edit",...) zum Einsatz, je Variable.

Und sollen aus der Auswahlbox die Werte in EDITs, um z.B. die Kurve zu betrachten, wenn sich ein Wert verändert:
1. mit @GetString$(N1,N2) auslesen und auflösen
2. und mit SetText N1, S die EDITs füllen

Gruß Thomas

deleted.

[THFR]

Darauf wird kaum einer eine Antwort parat haben, denn es ist z.Z. unbekannt wie die Daten verarbeitet und den Variablen zugewiesen werden.
Also: Code!

deleted.

[THFR]

Fenster oben links ist 0,0 . Linien Anfang/Ende zur Basis (ist Kurve 0,0) dann halt berechnen.

Window 0, 0 - 750, 730
WindowTitle "Parabel"

declare Basis_y!
Basis_y!= Width(%HWnd) / 1.5

declare Basis_x!
Basis_x! = Height(%hWnd) / 2.8

 ' Koordinatensystem zeichnen
 UsePen 0, 1, RGB(20, 20, 20)
 Line 0, Basis_x! - Width(%HWnd), Basis_x!' x
 Line Basis_y!, 0 - Basis_y!, Height(%Hwnd)' y

 Declare n%, a%
 n% = 0
 
 ' zeichnen  oberhalb der Basislinie
 UsePen 5, 0, RGB(31, 31, 31)
 LineTo Basis_y!, Basis_x!
 While 1
  inc a%
  UsePen 0, 1, RGB(255, 0, 0)
  F a%
  Case  Basis_x! -%(0)< 0: break
  LineTo (Basis_y! -(a% *10)), Basis_x! -%(0), 0
 wend

 Clear a%
 n% = 0

 ' zeichnen unterhalb der Basislinie
 UsePen 5, 0, RGB(31, 31, 31)
 LineTo Basis_y!, Basis_x!
 While 100
  inc a%
  UsePen 0, 1, RGB(255, 0, 0)
  F a%
  Case  Basis_x! -%(0)> Basis_x!: break
  LineTo (Basis_y! -(a% *10)), Basis_x! +%(0), 0
 wend

WaitInput
End

proc F
 Parameters x%
 Declare y%
 y% = x% ^2 -n% *20
 return y%
EndProc

Gruß Thomas