Programm zu E funktionen ableiten

[Sheldon]

ok habs gefunden^^
ne noch nicht drauf geachtet bevor

[Sheldon]

so und nun?

[vagtler]

http://www.delphipraxis.net/1257094-post34.html

[Sheldon]

[e^2x][2e^2x][4e^2x][8e^2x]

[Namenloser]

Und was soll das jetzt heißen?

[Popov]

Irgendwo weiter vorne habe ich geschrieben - man bekommt stets nur das raus was man bereit ist zu investieren. Begeistert man die Leute mit viel Informationen und schreibt viel, bekommt man auch viel Antworten. Das Ganze kommt mir so vor wie manchmal im Straßenverkehr, wo etliche Leute Angst haben den Blinker zu benutzen, weil sie glauben damit den Hintermann nur zu verwirren. Also wird nicht geblinkt, erst im letzten Augenblick. Zuerst bremsen, so dass der Hintermann unvorbereitet in die Eisen gehen muss, und erst im letzten Augenblick den Blinker rein. Das spart nebenbei noch Strom. Bloß die anderen nicht ausreichend informieren, dass könnte sie bloß verwirren

Zitat von Sheldon:

[e^2x][2e^2x][4e^2x][8e^2x]

Sehr minimalistisch, aber immerhin. Sowas wäre schöner. Nicht weil es mehr Informationen enthält, sondern sauberer geschrieben ist:

Code:

f(x)=e^2x
f'(x)=2*e^2x
...

Wenn das korrekt ist, dann könnte man das in Code so umsetzten (ungeprüft):

Delphi-Quellcode:

var
  x: Double;
  y: Double;  //sagen wir mal y steht für f(x)
  y1: Double; //sagen wir mal y1 steht für f'(x)
  y2: Double; //sagen wir mal y2 steht für f''(x)
  y3: Double; //sagen wir mal y3 steht für f'''(x)
begin
  x := 0.5;

  y := Exp(2 * x);
  y1 := 2 * Exp(2 * x);
  y2 := 4 * Exp(2 * x);
  y3 := 8 * Exp(2 * x);
  ...

[Sir Rufo]

Oder allgemeiner gefasst

Code:

a*e^(b*x+c) = Ableitung => a*b*e^(b*x+c)

Daraus folgt, dass die 2. und 3. Ableitung

Code:

a*b^2*e^(b*x+c)
a*b^3*e^(b*x+c)

ist.

Und wir sind eigentlich wieder bei Post #13
(Respekt, 34 sinnlose Beiträge weiter stellen wir fest, dass du das haben möchtest)

[Sir Rufo]

Und hier mal schnell hingetippelt ohne Eingabe-Möglichkeit

Delphi-Quellcode:

program dp_180149;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

type
  TParameter = record
    a, b, c : Integer;
  end;

function Ableitung( AParameter : TParameter ) : TParameter;
begin
  Result.a := AParameter.a * AParameter.b;
  Result.b := AParameter.b;
  Result.c := AParameter.c;
end;

procedure OutputFunction( const AInfo : string; AParameter : TParameter );
begin
  Writeln( AInfo, ': ', Format( '%d * e^( %d * x + %d )', [AParameter.a, AParameter.b, AParameter.c] ) );
end;

procedure Calculate;
var
  LParameter : TParameter;
begin
  LParameter.a := 1;
  LParameter.b := 2;
  LParameter.c := 0;

  OutputFunction( 'Start: ', LParameter );
  LParameter := Ableitung( LParameter );
  OutputFunction( '1. Ableitung: ', LParameter );
  LParameter := Ableitung( LParameter );
  OutputFunction( '2. Ableitung: ', LParameter );
  LParameter := Ableitung( LParameter );
  OutputFunction( '3. Ableitung: ', LParameter );
end;

begin
  try
    Calculate;
  except
    on E : Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;

  ReadLn;

end.

ergibt als Ausgabe

Code:

Start: : 1 * e^( 2 * x + 0 )
1. Ableitung: : 2 * e^( 2 * x + 0 )
2. Ableitung: : 4 * e^( 2 * x + 0 )
3. Ableitung: : 8 * e^( 2 * x + 0 )

[Namenloser]

Nimm es mir nicht übel, aber musste das jetzt sein, ihm/ihr für die Hausaufgabe eine Komplettlösung zu geben?

[Sheldon]

vielen dank