• 16.03.2026, 23:39
  • Register
  • Login

  • You are not logged in.

 

Larange-Interpolation in Delphi *geschafft*

Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

Les_Conrads

God

Larange-Interpolation in Delphi *geschafft*

Sunday, October 23rd 2005, 12:15am

Folgendes Problem bei meiner Programmierarbeit:
möchte ich in Delphi übersätzen...

Source code

 
1
2
3
4
5
6
7
8
9
10
11
12
13

for j:=1 to index do
     begin
      aa:=aa+ab;
      for k:=1 to index do
       begin
        if k<>j then

          ab:=ab*
           (   (x-(feldx[j])) / ((feldx[k])-(feldx[k]))   )

       end;
      ab:=0;
     end;

"feldx" ist ein Feld, was mit den x-werten der Stützpunkte belegt ist. "index" ist die Anzahl der Stützpunkte.

Leider kann ich eben diese Formel nicht auf eine Variable legen oder in einer Function ausführen, damit ich damit weiterrechnen kann.

Edit:
meine tolle andere Prozedur geht dann die x-Werte pixelweise ab und zeichnet direkt zu den ausgegebenen y-Werten eine Linie. Alles Funzt, nur diese Formel kann ich nicht verwenden :\


Mir fällt leider nix weiter ein und deshalb schreib ich hier ein Hilfegesuch.

Ich danke für eure Hilfe
Les

Zitat von »Lev«

ich frag mich ja wann die autoindustrie anfängt en used-look anzubieten :huh:

DerSchrauber

Full Member

Re: Larange-Interpolation in Delphi

Sunday, October 23rd 2005, 7:53am

Was ist denn genau Dein Problem?

Du kannst doch eine Funktion schreiben, die genau das oben abbildet, und die dann aufrufen.

Les_Conrads

God

Re: Larange-Interpolation in Delphi

Sunday, October 23rd 2005, 11:24am

also wenn ich result:= Mein Zeug
versuche, gibt er mir nen error aus :\

Edit sagt: ich glaub ich hab einfach nen Gedankenfehler drinn... im Grunde muss ich ja nur aa als result ausgeben...
evtl hat sich das ganze also schon erledigt (wenn ich das Programm mal endlich wieder zum laufen brächte für nen Test ><)

Zitat von »Lev«

ich frag mich ja wann die autoindustrie anfängt en used-look anzubieten :huh:

Les_Conrads

God

Re: Larange-Interpolation in Delphi

Thursday, October 27th 2005, 10:52pm

Als letzter Push zur Situation:
ich habs tatsächlich zum laufen bekommen *freu*

Source code

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

function tform1.formel(x:real):real  ;
var j,k:integer; aa,ab:real;
begin
  aa:=0;
  ab:=1;

   for j:=1 to index do
    begin

       for k:=1 to index do
       begin
        if k<>j then
           ab:=ab*
           (
           (x-(feldx[k])) / ((feldx[j])-(feldx[k]))
           ) ;
       end;
       aa:=aa+((feldy[j])*ab);
       ab:=1;
     end;
 result:=aa

diese Funktion kann ich mit den x-werten füttern und sie gibt mir die entsprechenden y-werte zurück. feldx und feldy sind wie gesagt mit den Werten der Stützpunkte gefüllt.

Was ein Gefühl, das geschafft zu haben :D ;D :D ;D

Zitat von »Lev«

ich frag mich ja wann die autoindustrie anfängt en used-look anzubieten :huh: