--->@ UWE : dazu reichts bei mir wohl :-)) .....

nicht. Wie soll die zum Schluß genannte Alternative dann aussehen??
Falls Du Lust + Zeit hast, vielleicht...:
>Inputs: Price(Close),LRLen1(5),LRLen2(10), LRLen3(20), AvLen1(10), AvLen2(20), AvLen3(30), ShowGD(1);

vars: LR1(0), LR2(0), LR3(0);
vars: avLR1(0), avLR2(0), avLR3(0);

LR1=LinearRegValue(Price,LRLen1,0);
LR2=LinearRegValue(Price,LRLen2,0);
LR3=LinearRegValue(Price,LRLen3,0);

if ShowGD=0 then
begin
plot1(LR1,"LR1");
plot2(LR2,"LR2");
plot3(LR3,"LR3");
end
else
if ShowGD=1 and (avLen1>0 or avLen2>0 or avLen3>0) then
begin
if avLen1>0 then plot1(Average(LR1,avLen1);"LR1);
if avLen2>0 then plot2(Average(LR1,avLen2);"LR2);
if avLen2>0 then plot3(Average(LR1,avLen3);"LR3);
end;

--------------------------------------------------------------------------------


Eine Erweiterungsmöglichkeit bestände darin, daß du stat den Wert der lRG Dir die Steigung der lRG anzeigen läßt. Eine Inputvariable und eine IF-THEN-Abrage und das Ziel ist erreicht.

Hoffentlich klappt alles, da ich die Programmsequenz nicht prüfen konnte
Uwe <

Trotzdem allerseits schöne Pfingsten

brrrrr

RE: --->@ UWE : dazu reichts bei mir wohl :-)) .....

hallo Donald,

ich habe die Debate bisher nicht verfolgt und bin nicht ganz sicher was hier beabsichtigt ist, aber die Code oben hat Syntaxfehler.


nicht plot1(Average(LR1,avLen1);"LR1);
sondern plot1(average(LR1,avlen1),"LR1");

schon wieder eine Glättung mit Average.....


grüße,

Jim

Die Haftungsauschlußfloskel nicht gelese? ;-) ...@J.Douglas und Donald

Jim Douglas:...aber die Code oben hat Syntaxfehler. ...

Fehlerkorrektur, die Zweite

Inputs: Price(Close),LRLen1(5),LRLen2(10), LRLen3(20), AvLen1(10), AvLen2(20), AvLen3(30), ShowGD(1);

vars: LR1(0), LR2(0), LR3(0);
vars: avLR1(0), avLR2(0), avLR3(0);
if LRLen1>0 then LR1=LinearRegValue(Price,LRLen1,0);
if LRLen2>0 then LR2=LinearRegValue(Price,LRLen2,0);
if LRLen3>0 then LR3=LinearRegValue(Price,LRLen3,0);

if ShowGD=0 then
begin
if LRLen1>0 then plot1(LR1,"LR1");
if LRLen2>0 then plot2(LR2,"LR2");
if LRLen3>0 then plot3(LR3,"LR3");
end
else
if ShowGD=1 and (avLen1>0 or avLen2>0 or avLen3>0) then
begin
if avLen1>0 then plot1(Average(LR1,avLen1),"LR1");
if avLen2>0 then plot2(Average(LR2,avLen2),"LR2");
if avLen3>0 then plot3(Average(LR3,avLen3),"LR3");
end;