Sorry, das ich mit so einer hoffenltich Simplen Frage komme.
Habe heute mit Delphi angefangen.
Was kann ich gegen die Fehlermeldung: Divison durch 0 machen?
Und wie kann ich es machen das M auf der x Achse angezeigt wird. Eigentlich sollten I und n geraden sein und eta eine kurve.
Danke schonmal für Hilfe.
http://forum.delphi-treff.de/index.p...824#post433824
var
Form1: TForm1;
const
Pi=3.14159;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
R, C, U, M_r : Real;
I, M, M_i, eta : Real;
n : Integer;
begin
R :=StrToFloat(Edit1.Text);
C :=StrToFloat(Edit2.Text);
U :=StrToFloat(Edit3.Text);
M_r:=StrToFloat(Edit4.Text);
Series1.Clear;
Series2.Clear;
Series3.Clear;
for n:=0 to 100 do
begin
{Stromberechnung}
I:= (1/R) * (U-(C*n));
{Momentberechnung}
M_i:= I * (C/2*Pi);
M := M_i - M_r;
{Wirkungsgradberechnung}
eta:= (M*2*Pi*n) / (U*I);
{Kennlinien}
Series1.AddXY(M,I,'',clRed);
Series2.AddXY(M,(n),'',clBlue);
Series3.AddXY(M,eta,'',clGreen);
end;
end;
end.