既然昨天发的图被删了，那今天就继续发，另外附加源码，都是收集来的，喜欢就拿去
BASE:(HHV(HIGH,30)+LLV(LOW,30))/2,linethick02,COLORFF0080;
HH:=HHV(HIGH,3);
LL:=LLV(LOW,3);
HH1:=BARSLAST((HH > REF(HH,1)));
LL1:=BARSLAST((LL < REF(LL,1)));
STICKLINE((HH1 < LL1),CLOSE,OPEN,3,0),colorred;
STICKLINE((HH1 < LL1),HIGH,LOW,0,0),COLORRED;
STICKLINE((HH1 > LL1),CLOSE,OPEN,3,0),COLORcyan;
STICKLINE((HH1 > LL1),HIGH,LOW,0,0),COLORcyan;
DRAWTEXT(CROSS(HH1,LL1),HH,'开空'),COLORYELLOW;
DRAWTEXT(CROSS(LL1,HH1),LL,'开多'),COLORFF00FF;
EMA3:=EMA(C,3);
MA8:=EMA(EMA3,8),COLORyellow,LINETHICK1;
AA10:=EMA(EMA3,8),COLORYELLOW,LINETHICK1;
BB10:=atan((aa10-ref(aa10,1)))*180/3.1416;
STICKLINE(BB10>1 and AA10>ref(AA10,1),AA10,REF(AA10,1),8,0),COLORyellow,LINETHICK3;
STICKLINE(BB10<1 and AA10<ref(AA10,1),AA10,REF(AA10,1),10,0),color007800,LINETHICK3; 2
uiVAR4:=(LOW+HIGH+CLOSE)/3;
操作: MA(VAR4,5);
拉升: HHV(操作,13);
压力: HHV(操作,60);
买卖: LLV(操作,13);
顶部:HHV(HIGH,60)*0.98,COLORCYAN;
明买卖点:EMA(CLOSE,6),LINETHICK0,LINETHICK0;
M1:=明买卖点;
M2:=REF(M1,1);
{STICKLINE(CLOSE>0,M2,M2,8,0),colorFFFFFF;}
成本线:DMA(AMOUNT/VOL/100,VOL/CAPITAL),LINETHICK2,colorFF;
DIFF := EMA(CLOSE,4) - EMA(CLOSE,52);
DEA := EMA(DIFF,9);
A : EMA(CLOSE,25) -EMA(CLOSE,65),LINETHICK2;
B: EMA(DIFF,45),LINETHICK2; 3
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,13))/(0.015*AVEDEV(TYP,13));
STICKLINE(CCI>=0,O,C,4,1),COLORRED;
STICKLINE(CCI>=0,O,L,0.1,0),COLORRED;
STICKLINE(CCI>=0,C,H,0.1,0),COLORRED;
STICKLINE(CCI<=0,O,C,4,0),COLORCYAN;
STICKLINE(CCI<=0,O,H,0.1,0),COLORCYAN;
STICKLINE(CCI<=0,C,L,0.1,0),COLORCYAN;
DRAWTEXT(CROSS(CCI,-200) AND CCI>REF(CCI,1),L,'平空'),COLORGREEN;
DRAWTEXT(CROSS(200,CCI) AND CCI<REF(CCI,1),H,'平多'),COLORYELLOW;
DRAWTEXT(CROSS(CCI,100) AND CCI>REF(CCI,1),L,'加多'),COLORYELLOW;
DRAWTEXT(CROSS(-100,CCI) AND CCI<REF(CCI,1),H,'加空'),COLORGREEN; 4
CS:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
YJD:
(EMA(CS,3)-50)*2;
极弱:-80;
强势:60;
风险:80;
弱势:-60;
YJD,COLORSTICK;
VAR4:=(1.1)*CLOSE;
VAR5:=(0.9)*CLOSE;
VAR6:=100*(WINNER(VAR4)-WINNER(VAR5));
S1:
EMA(100-VAR6,1);
S2: EMA(S1,9);
S3:
MA(S2,9);
85;
75;
5
VAR1:=HHV(HIGH,9)-LLV(LOW,9); VAR2:=HHV(HIGH,9)-CLOSE;VAR3:=CLOSE-LLV(LOW,9); VAR4:=VAR2/VAR1*100-70;VAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;VAR6:=(2*CLOSE+HIGH+LOW)/4; VAR7:=SMA(VAR3/VAR1*100,3,1); VAR8:=LLV(LOW,34);VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1); VAR10:=IF(VAR9>100,VAR9-100,0);VAR11:=HHV(HIGH,34); VAR12:=EMA((VAR6-VAR8)/(VAR11-VAR8)*100,13);VAR13:=EMA(0.667*REF(VAR12,1)+0.333*VAR12,2); 注意顶:88;STICKLINE(VAR12-VAR13>0,VAR12,VAR13,8,0),COLORRED;STICKLINE(VAR12-VAR13<0,VAR12,VAR13,8,0),COLORGREEN; 生命线:EMA(VAR13,5),COLORYELLOW; 红灯买:if(cross(VAR13,VAR12) andVAR12<VAR13 and VAR12>60,VAR13,88), COLORRED; 绿灯卖:if(cross(VAR12,VAR13)and VAR12>VAR13 and VAR12<18,38,18), COLORGREEN; 6
STICKLINE(CLOSE>REF(CLOSE,1) ,HIGH,LOW,0,1 ),colorred;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3,0
),COLOR000055;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0
),COLOR000077;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0
),COLOR000099;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0
),COLOR0000BB;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0
),COLOR0000DD;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0
),COLOR0000FF;
STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1
),colorwhite;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0
),COLOR555555;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0
),COLOR999999;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0
),COLORBBBBBB;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0
),COLORDDDDDD;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0
),COLORFFFFFF;
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1
),colorcyan;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3,0
),COLOR990000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0
),COLORCC0000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0
),COLORFF4400;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0
),COLORFF8800;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0
),COLORFFCC00;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0
),colorcyan;
qsx:=EMA(((SLOPE(CLOSE,21) * 20) +
CLOSE),42),POINTDOT,COLORFF00FF,LINETHICK4;
HHV1:=HHV(HIGH,60);
LLV1:=LLV(LOW,60);
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VAR2:=REF(VAR1,1);
VAR3:=SMA((CLOSE-VAR2),6,1)/SMA(ABS(CLOSE-VAR2),6,1)*100;
VAR4:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
VAR5:=EMA(0.667*REF(VAR4,1)+0.333*VAR4,5);
VAR6:=IF(VOL>=1.3*MA(VOL,5)
AND COUNT(VAR4>=VAR5 AND VAR4<-17,3) AND
REF(LOW,1)=LLV(LOW,120),1,0);
VAR7:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;
VAR8:=SMA(MAX(VAR1-VAR2,0),10,1)/SMA(ABS(VAR1-VAR2),10,1)*100;
VAR9:=IF(COUNT(VAR8<20,5)>=1
AND COUNT(VAR1=LLV(VAR1,10),10)>=1 AND CLOSE>=OPEN*1.038 AND
VOL>MA(VOL,5)*1.2,1,0);
AA1:=MA(C,5);
BB1:=MA(C,15);
AF:=CROSS(AA1,BB1);
STICKLINE(AF,LLV(L,4),LLV(L,4),50,1),colorred,LINETHICK3;
DRAWTEXT(AF,LLV(L,4),'0'),coloryellow;
VAR01:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);
VAR02:=HIGH-REF(HIGH,1);
VAR03:=REF(LOW,1)-LOW;
VAR04:=SUM(IF(VAR02>0
AND VAR02>VAR03,VAR02,0),25);
VAR05:=SUM(IF(VAR03>0 AND
VAR03>VAR02,VAR03,0),25);
VAR06:=VAR04*100/VAR01;
VAR07:=VAR05*100/VAR01;
VAR08:=MA(ABS(VAR07-VAR06)/(VAR07+VAR06)*100,15);
VAR09:=(VAR08+REF(VAR08,15))/2;
A:=(VAR07>VAR06
AND VAR07>25 AND
VAR06<25);
B:=ZIG(3,50/5)*100,colorred,LINETHICK2;
G:=MA(B,2),colorgreen,LINETHICK2;
D:=CROSS(B,G)*1000,colorred;
W:=CROSS(G,B)*1000,colorblue;
E:=REF(INDEXC,1);
F:=SMA(MAX(INDEXC-E,0),3,1)/SMA(ABS(INDEXC-E),3,1);
VAR10:=F
AND
F<8;
VAR11:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR12:=SMA(VAR11,3,1);
VAR13:=SMA(VAR12,3,1);
VAR14:=VAR13
AND VAR13<20;
MM:=A AND D AND VAR10 AND VAR14
;
DRAWTEXT(W=1000,H*1.05,'卖'
),COLOR00FF00;
DRAWTEXT(D=1000,L*0.95,'买'),colorred;
GET:ZIG(3,5),colorred;
PL5:=ZIG(3,5);
EN1:=pl5>REF(pl5,1)
AND REF(pl5,1)<=REF(pl5,2) AND
REF(pl5,2)<=REF(pl5,3);
EX1:=pl5=REF(pl5,2) AND
REF(pl5,2)>=REF(pl5,3);
PL10:=ZIG(3,10);
EN2:=pl10>REF(pl10,1) AND
REF(pl10,1)<=REF(pl10,2) AND
REF(pl10,2)<=REF(pl10,3);
EX2:=pl10=REF(pl10,2) AND
REF(pl10,2)>=REF(pl10,3);
PL20:=ZIG(3,20);
EN3:=pl20>REF(pl20,1) AND
REF(pl20,1)<=REF(pl20,2) AND
REF(pl20,2)<=REF(pl20,3);
EX3:=pl20=REF(pl20,2) AND
REF(pl20,2)>=REF(pl20,3);
走强1:=BARSLAST(PL5<REF(PL5,1));
走弱1:=BARSLAST(PL5>REF(PL5,1));
走强2:=BARSLAST(PL10<REF(PL10,1));
走弱2:=BARSLAST(PL10>REF(PL10,1));
走强3:=BARSLAST(PL20<REF(PL20,1));
走弱3:=BARSLAST(PL20>REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);
DRAWTEXT(EN1
AND DTJZ5=1,L*0.98,'㈠'),COLORFFFF00;
DRAWTEXT(EX1 AND
DTJD5=2,H*1.02,'㈡'),COLORFFFF00;
DRAWTEXT(EN2 AND
ZTJZ5=1,L*0.98,'㈢'),COLORFFFF00;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND
ZTJD5=1,H*1.02,'⑴'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND
ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND
ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND
ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND
ZTJD10=1,H*1.02,'⑸'),COLOR0000FF;
DRAWTEXT(EN2 AND
DTJZ10=1,L*0.9,'Ⅰ'),colorred;
DRAWTEXT(EX2 AND
DTJD10=2,H*0.9,'Ⅱ'),colorred;
DRAWTEXT(EN3 AND
ZTJZ10=1,L*0.9,'Ⅲ'),colorred;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND
ZTJD10=1,H*1.06,'①'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND
PL20>REF(PL20,1) AND
ZTJZ10=2,L*0.94,'②'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EX2 AND
PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND
EX2,H*1.06,'③'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1)
AND ZTJZ10=3,L*0.94,'④'),LINETHICK3,COLOR00FFFF;
7
N:=13;M:=9;M1:=3;
VAR1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
VAR2:=SMA(VAR1,M1,1);
卖线:SMA(VAR2,M1,1);
必卖线: SMA(卖线,M1,1);
VAR3:=(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M))*100;
VAR4:=SMA(VAR3,M1,1);
VAR5:=SMA(VAR4,M1,1);
买入线:SMA(VAR5,M1,1);
高压线: 85;
触底线: 9;
DRAWTEXT(买入线>76.5 AND CROSS(卖线,必卖线),必卖线*1.15,'进');
DRAWTEXT(买入线>56 AND 买入线<=76 AND CROSS(卖线,必卖线),卖线,'留意');
DRAWTEXT(买入线<45 AND 卖线>78 AND 必卖线>78 AND CROSS(必卖线,卖线),必卖线,'跑'),COLORGREEN ;
DRAWTEXT(CROSS(买入线,78.5),买入线,'关注'),COLORRED ;
DRAWTEXT(CROSS(买入线,85),买入线,'重点关注'),COLORWHITE ;
上拐:=必卖线<50 AND 卖线<必卖线 AND 卖线>ref(卖线,1);
下拐:=必卖线>50 AND 卖线>必卖线 AND 卖线<ref(卖线,1);
DRAWICON(上拐,买入线,1);
DRAWICON(下拐,必卖线,2); 8 VAR1:=(HHV(HIGH,15)-LLV(LOW,15)); VAR2:=(HHV(HIGH,15)-CLOSE); VAR3:=(CLOSE-LLV(LOW,15)); VAR4:=(((VAR2/VAR1)*100)-70); VAR5:=(((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60)))*100); VAR6:=((((2*CLOSE)+HIGH)+LOW)/4); VAR7:=SMA(((VAR3/VAR1)*100),3,1); VAR8:=LLV(LOW,34); VAR9:=(SMA(VAR7,3,1)-SMA(VAR4,9,1)); VAR10:=IF((VAR9>100),(VAR9-100),0); VAR11:=HHV(HIGH,34); VAR12:=EMA((((VAR6-VAR8)/(VAR11-VAR8))*100),15); VAR13:=EMA(((0.667*REF(VAR12,1))+(0.333*VAR12)),2); MA11:=EMA(VAR13,5); DRAWTEXT(CROSS(VAR12-VAR13,0),L-1,'多'); DRAWTEXT(CROSS(0,VAR12-VAR13),H+1,'空'); 8
|
雷达卡
发表于 2014-1-12 09:47:22
提升卡
喧嚣卡
变色卡
楼主
