相關標簽:

 

input:N(10,2,40);
DIRECTION:=(CLOSE - REF(CLOSE,n));
XX:=ABS((CLOSE - REF(CLOSE,1)));
VOLATILITY:=SUM(XX,n);
ER:=ABS((DIRECTION / VOLATILITY));
FASTC:=(2 / (2 + 1));
SLOWC:=(2 / (30 + 1));
SSC:=((ER * (FASTC - SLOWC)) + SLOWC);
CONSTANT:=(SSC * SSC);
CC:=CLOSE;
YY:=(REF(CLOSE,1) + (CONSTANT * (CLOSE - REF(CLOSE,1))));
IF DATACOUNT > N THEN
DD[N]:=CC[(N + 1)];
FOR I=N + 1 to DATACOUNT DO
DD[I]:=(DD[(I - 1)] + (CONSTANT[I] * (CC[I] - DD[(I - 1)])));
AMA:(DD),LINETHICK1,colorFF0099;
FFILTER:=((15 / 100) * STD((AMA - REF(AMA,1)),n));
XA:=IF((AMA < REF(AMA,1)),AMA,0);
XN:=BARSLAST((XA > 0));
AMALOW:=REF(AMA,XN);
YA:=IF((AMA > REF(AMA,1)),AMA,0);
YN:=BARSLAST((YA > 0));
AMAHIGH:=REF(AMA,YN);
RR:=IF(((AMAHIGH - AMA) > FFILTER),(0 - 1),0);
TT:=IF(((AMA - AMALOW) > FFILTER),1,RR);
TJ:=((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1))));
多頭持倉:STICKLINE((TT = 1),LOW,HIGH,0.8,0),colorFF;
STICKLINE((TT = 1),OPEN,CLOSE,8,0),colorFF;
STICKLINE((TT = 1),OPEN,CLOSE,5,0),colorFF;
{STICKLINE((TT = 1),OPEN,CLOSE,2,0),colorC6B6FE;
STICKLINE((TT = 1),OPEN,CLOSE,1,0),colorF9F7FF;}
空頭持倉:STICKLINE((TT = (0 - 1)),LOW,HIGH,0.8,0),color00CC99;
STICKLINE((TT = (0 - 1)),OPEN,CLOSE,8,0),color00CC99;
STICKLINE((TT = (0 - 1)),OPEN,CLOSE,5,0),color00CC99;
{STICKLINE((TT = (0 - 1)),OPEN,CLOSE,2,0),colorF9F7FF;
STICKLINE((TT = (0 - 1)),OPEN,CLOSE,1,0),colorF9F7FF;}
持幣觀望:STICKLINE((TT = 0),LOW,HIGH,0.8,0),colorDDDDDD;
STICKLINE((TT = 0),OPEN,CLOSE,8,0),color808080;
STICKLINE((TT = 0),OPEN,CLOSE,5,0),color808080;
{STICKLINE((TT = 0),OPEN,CLOSE,2,0),colorF9F7FF;
STICKLINE((TT = 0),OPEN,CLOSE,1,0),colorF9F7FF;}
P:=1;
As:=(h+(h-(l-(h-l)))-LLV(l,12))/(HHV(h+(h-l),12)-LLV(l,12));
As1:=SMA(As,12,1);
As2:=SMa(As1,12,1);
As3:=3*As1-2*As2 ;
As4:=2*As3-0.5;
As5:=c*(1-(As4-As2)/30);
生命線◆:WMA(WMA(As5,30),3),ColorA6A9FF,pointdot,linethick7;
{a0:=SUM(IF(生命線◆>REF(生命線◆,1),VOL,IF(生命線◆<REF(生命線◆,1),-VOL,0)),0);
a1:=SUM(IF(生命線◆>REF(生命線◆,1),VOL,IF(生命線◆<REF(生命線◆,1),-VOL,0)),p);
a2:=dma(sum(生命線◆,p)/p,sum(a0,p)/p) ,colorwhite;
A◆:sum(a2,p)/p,coloryellow;
M:=dma(sum(生命線◆,p)/p,sum(a1,p)/p),COLORCYAN;
M◆:sum(M,p)/p,color00ff00;
PARTLINE(M◆>=REF(M◆,1),M◆),LINETHICK2,color0000ff;}
s:=BARSSINCE(SYSPARAM(1)=BARPOS)+1;
s前:=BARSSINCE(SYSPARAM(1)=BARPOS+41)+1;
s后:=BARSSINCE(SYSPARAM(1)=BARPOS-104)+1;
jj:=AMOUNT/v/100;
{sum(jj,s)/s;
sum(h,s)/s;}
sum(l,s前)/s前,COLORYELLOW,LINETHICK2;
{sum(h,s后)/s后;}
VAR1:=VOL;
A:=AMOUNT/VAR1/100;
A1:=(EMA(A,4)+MA(A,8)+MA(A,16))/3;
A2:=(EMA(A,6)+MA(A,12)+MA(A,24))/3;
B:=(EMA(A,9)+MA(A,18)+MA(A,36))/3;
A4:=(EMA(A,13)+MA(A,26)+MA(A,52))/3;
A5:=(EMA(A,18)+MA(A,36)+MA(A,72))/3;
A6:=(EMA(A,24)+MA(A,48)+MA(A,96))/3;
短線利潤:=A-A1;
中線利潤:=A-A6;
水平線:=0;
大龍門線:=(CLOSE-中線利潤)*0.3;
小龍門線:=(CLOSE-短線利潤)*0.1;
反大:=-(CLOSE-中線利潤)*0.3;
反小:=-(CLOSE-短線利潤)*0.1;
中:=中線利潤;
小:=小龍門線;
大:=大龍門線;
小壓:MA(小-中+CLOSE,3),LINETHICK2;
大壓:MA(大-中+CLOSE,3);
反小壓:MA(CLOSE-小-中,3);
反大壓:MA(CLOSE-大-中,3),colorred;
分水嶺:(小壓+大壓+反小壓+反大壓)/4,LINETHICK2,colorgreen;
{程序化交易 www.weiqiv.net.cn }