#INCLUDE "fbeval.bas" 'Eval Zubehör #INCLUDE "stdeval.bas" Color 2,0 Dim Result As Eval.Result Dim i As Double,we As Double, f As String Print "=========================" Print "Funktionsrechner: Setzt die Zahlen des Wertebereichs in die Funktion ein" Print "-------------------------" Print "EINGABEN:" Input "Funktion";f 'Funktion: z.B x^4+6*x Input"Wertebereich Anfang"; i 'Wird als x-Wert verwendet Input "Wertebereich Ende";we Print "=========================" 'Berechnung For i=i To we 'Eval Variable setzen und verarbeiten Eval.SetVariable("x", i) Result = Eval.Execute(f) ? "fuer: x= " & i & Chr(10) & f & "=" &Result.Value Print "_____________" 'Sieht übersichtlicher aus Print "_____________" Next i Print "=========================" Sleep 'Todo: Graphische Darstellung der Funktion 'Ausgabe in Datei? 'Hinweis: Muss im selben Verzeichnis von den SEE Dateien liegen 'Die Dateien sind die, die der Rechner benötigt: 'fbeval.bas 'stdeval.bas 'Die Dateien könnt ihr euch hier runterladen: (für 0.17 tauglich gemacht) ' http://jeak.de/Subpages/siedlerchr/downloads/see_ohne_call.zip