Tradestation User Group Germany - Druckvorschau: --->@ UWE : dazu reichts bei mir wohl :-)) .....

Tradestation User Group Germany (http://www.tradernet.org/wbb/index.php)
|- Posts aus dem alten Userforum (http://www.tradernet.org/wbb/board.php?boardid=15)
|-- --->@ UWE : dazu reichts bei mir wohl :-)) ..... (http://www.tradernet.org/wbb/threadid.php?boardid=15&threadid=510)

Geschrieben von _Donald$ am 02.06.2001, 10:10:

--->@ 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

Geschrieben von _Jim Douglas am 02.06.2001, 10:10:

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

Geschrieben von _Uwe am 02.06.2001, 11:10:

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

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

...und nicht nur einen, sondern die in dieser Farbe geschriebenen Teile sollten geändert werden. Erweiternd habe ich die Abfrage nach der Größe von LRLenX eingebaut, die es ermöglicht, mit Werten kleiner gleich Null, Einzelplots zu unterdrücken.

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
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(LR2,avLen2),"LR2");
if avLen2>0 then plot3(Average(LR3,avLen3),"LR3");
end;

Aber vielleicht bist Du, Donald, bereits auch über diese Fehler gestolpert und konntest diese ausräumen.

Zu Deiner Frage, Donald, bezüglich der Erweiterung könnte ich natürlich den entsprechend Programmteil hier vorstellen. Doch vielleicht kann ich auch Hilfe zur Selbsthilfe geben. Wenn es Dir recht ist, so lass es mich wissen.

Euch allen ein schönes Pfingstwochenende
Uwe

Geschrieben von _Uwe am 02.06.2001, 11:10:

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;