|
PureBytes Links
Trading Reference Links
|
----- Message d'origine -----
De : pierre.orphelin <pierre.orphelin@xxxxxxxxxx>
À : <omega-list@xxxxxxxxxx>
Envoyé : jeudi 2 mars 2000 22:40
Objet : Re: SURVEY RESULT
----- Message d'origine -----
De : <tradejacker@xxxxxxxxxxxx>
À : <omega-list@xxxxxxxxxx>
Envoyé : jeudi 2 mars 2000 07:01
Objet : RE: SURVEY RESULT
> ah, bullshit brian :))....here's one...the "simple" head and shoulders pattern,
> i think even the great french fuzzy programmer said once that this one
> was difficult with ezl ( and i still haven't seen any reliable code for
> it either!!!)....here's another one, divergences....i think dennis h. said
> that were too many time factors involved with the programming to get it
> right.
>
This is only the part of the EL code to display H&S that I programmed years ago.
To avoid banrupcy as a solution provider, I'll not explain more what I did before this part of the code.
Attached a gif file with the H&S display ( targets and protective levels are displayed and are used in a system).
I have better to do with the coming soon Safir-X version 3 widely unused in this survey.
Your choice, not mine.
Sincerely,
-Pierre Orphelin
Neurofuzzy Logic tools for TradeStation
Free evaluation versions and competitive upgrades available
web: http://www.sirtrade.com
{HS normales}
vars:Hbaseline(0),topline1(0),topline2(0),ctd(0),tar(0),cth(0),temp(0);
array:hset[10,2](0), {status,slope, , ,}
hline[300](0),htar[300](0),hout[300](0); {adresses}
if swin<>swin[1] and swin=-1 and ctr>4 then begin
ctd=ctd+1;
Hbaseline=TSlope(piv[ctr-3,1],piv[ctr-3,0],piv[ctr-1,1],piv[ctr-1,0]); {slope ligne de cou}
topline1=piv[ctr-2,1]+Hbaseline*(-piv[ctr-2,0]+piv[ctr-4,0]); {limite épaule Droite}
topline2=piv[ctr-2,1]+Hbaseline*(-piv[ctr-2,0]+piv[ctr,0]); {limite épaule Gauche}
if piv[ctr-4,1]<topline1 and piv[ctr,1]<topline2 then begin
cth=cth+1;
value1=Text_New(piv[ctr-2,2]+3*delt,piv[ctr-2,3],piv[ctr-2,1],"H");
value2=Text_New(piv[ctr-4,2]+3*delt,piv[ctr-4,3],piv[ctr-4,1],"1");
value3=Text_New(piv[ctr,2]+3*delt,piv[ctr,3],piv[ctr,1],"2");
tar=piv[ctr-2,1]-(piv[ctr-3,1]+(piv[ctr-2,0]-piv[ctr-3,0])*Hbaseline); {amplitude objectif}
temp=0.01*protec*tar;
hline[cth]=TL_New(piv[ctr-3,2],piv[ctr-3,3],piv[ctr-3,1],piv[ctr-1,2],piv[ctr-1,3],piv[ctr-1,1]); {h_line}
htar[cth]=TL_New(piv[ctr-3,2],piv[ctr-3,3],piv[ctr-3,1]-tar,piv[ctr-1,2],piv[ctr-1,3],piv[ctr-1,1]-tar); {h_target}
hout[cth]=TL_New(piv[ctr-3,2],piv[ctr-3,3],piv[ctr-3,1]+temp,piv[ctr-1,2],piv[ctr-1,3],piv[ctr-1,1]+temp); {h_exit}
if GetBackGroundColor<>ctd then value0=mod(ctd,15) else value0=mod(ctd+1,15);
TL_SetSize(hline[cth],0);
TL_SetStyle(hout[cth],2);
{TL_SetStyle(hline[cth],2);
TL_SetExtright(hline[cth],true);
TL_SetExtright(htar[cth],true);}
TL_SetColor(hline[cth],value0);
TL_SetColor(htar[cth],value0);
TL_SetColor(hout[cth],value0);
Text_SetColor(value1,value0);
Text_SetColor(value2,value0);
Text_SetColor(value3,value0);
value0=absvalue(mod(ctd,3));
Text_SetStyle(value1,0,2);
Text_SetStyle(value2,0,2); {dessus, centré}
Text_SetStyle(value3,0,2);
end;
end;
{HS inversées}
vars:Lbaseline(0),botline1(0),botline2(0),ctb(0);
array:lset[10,2](0); {status,slope, , ,
Attachment Converted: "f:\eudora\attach\snap36.gif"
|