买卖频谱1

买卖频谱1——主图

{N=80 1  999 , M=3  1  15} 

DRAWGBK(O>C,RGB(360,0,10),RGB(10,0,1),0,'01',0);

DRAWNUMBER(ISLASTBAR  ,C,C),COLORMAGENTA;

N8:=STRCAT(CON2STR(YEAR,0),' 年 '); 

Y8:=STRCAT(CON2STR(MONTH,0),' 月 '); 

R8:=STRCAT(CON2STR(DAY,0),' 日 '); 

买线:=EMA(C,2);

卖线:=EMA(SLOPE(C,21)*20+C,42);

BU:=CROSS(买线,卖线);

SEL:=CROSS(卖线,买线);

STICKLINE(买线>=卖线,LOW,HIGH,0.0,1),COLORLIRED; 

STICKLINE(买线>=卖线,CLOSE,OPEN,3,1),COLORLIRED; 

MA5:MA(CLOSE,5),COLORFFFFFF,LINETHICK1; 

MA10:MA(CLOSE,10),COLORYELLOW,LINETHICK2;

MA20:MA(CLOSE,20),COLORRED;      

MA30:MA(CLOSE,30),COLORMAGENTA,LINETHICK1;

MA60:MA(CLOSE,60),COLORGREEN,LINETHICK1;

MA(C,20),COLORWHITE,LINETHICK1;

IF(MA20>REF(MA20,1),MA20,DRAWNULL),COLORRED,LINETHICK1;

IF(MA20<REF(MA20,1),MA20,DRAWNULL),COLORGREEN,LINETHICK1;   

JC:=(REF(C,3)+REF(C,5)+REF(C,7)+REF(C,8)+REF(C,13)+REF(C,21))/6;

参考价:=SMA(JC,5,1),COLORCYAN;

价:=IF(C>=参考价,参考价,参考价*0.98 ), CIRCLEDOT,COLOR0000FF;

STICKLINE(买线<卖线,LOW,HIGH,0.0,1),COLORCYAN;

STICKLINE(买线<卖线,CLOSE,OPEN,3,1),COLORCYAN;

SJ8:=STRCAT(STRCAT(N8,Y8), R8); 

DRAWBMP((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))

AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.99,'B');

DRAWBMP((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2))

AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.03,'S');

DRAWTEXT(CROSS(83,RSI),H*1.04,' 逃顶')COLORYELLOW;

今日保护价:(REF(C,2)+REF(C,1)+O)/3 ,COLORCC3299,NODRAW;

顶点:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,HHV(H, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,DOTLINE;

低点:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,LLV(L, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORMAGENTA,DOTLINE;

STICKLINE(CCI>=200 AND H>=顶点,O,C,3,0),COLORBLUE;

STICKLINE(CCI<=100 AND L<=低点,O,C,3,0),COLORYELLOW;

DRAWTEXT_FIX(C>0,0.88,0,0,SJ8),COLOR00FFFF;

DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED;

DRAWTEXT(ISLASTBAR,低点,'低点'),COLORBLUE;{COLORMAGENTA;};

超B:=L2_AMO(0,2)/10000.0;

大B:=L2_AMO(1,2)/10000.0;

中B:=L2_AMO(2,2)/10000.0;

小B:=L2_AMO(3,2)/10000.0;

超S:=L2_AMO(0,3)/10000.0;

大S:=L2_AMO(1,3)/10000.0;

中S:=L2_AMO(2,3)/10000.0;

小S:=L2_AMO(3,3)/10000.0;

TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);

大宗进:=(超B)+(大B),NODRAW;

大宗出:=(超S)+(大S),NODRAW;

非大宗进:=(中B)+(小B),NODRAW;

非大宗出:=(中S)+(小S),NODRAW;

DAZHIV:=CONST(MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出))))),NODRAW;

DRAWRECTREL(0,CONST(950-(ABS(大宗进)*250/DAZHIV))-20,30,950,IF(CONST(大宗进>0),RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(32,CONST(950-(ABS(大宗出)*250/DAZHIV))-20,62,950,IF(CONST(大宗出>0),RGB(23,125,255),RGB(255,0,0)));

DRAWRECTREL(92,CONST(950-(ABS(非大宗进)*250/DAZHIV))-20,122,950,IF(CONST(非大宗进>0),RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(124,CONST(950-(ABS(非大宗出)*250/DAZHIV))-20,154,950,IF(CONST(非大宗出>0),RGB(23,125,255),RGB(255,0,0)));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.015,1,0,'主力进出'),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.107,1,0,'散户进出'),COLORCYAN;

{N=80 1  999 , M=3  1  15} 

VAR11:=MA(C,9),COLORRED;

上升通道:IF(VAR11>REF(VAR11,1),VAR11,DRAWNULL),LINETHICK4,COLORRED;

下降通道:IF(VAR11<REF(VAR11,1),VAR11,DRAWNULL),LINETHICK4,COLORGREEN;

A0:=(L+H+C*2)/4;

AA1:=EMA(A0,14)COLORYELLOW,LINETHICK1;

BB1:=EMA(A0,25)COLORYELLOW,LINETHICK2;

A1X:=(AA1-REF(AA1,1))/REF(AA1,1)*100;

A2X:=(BB1-REF(BB1,1))/REF(BB1,1)*100;

G:=BARSLAST(CROSS(A1X,0));

必卖止损:REF(A0,G),COLORCYAN,LINETHICK1;

A5:=EMA(CLOSE,12)-EMA(CLOSE,26);

A6:=EMA(A5,9);

A7:=(A5<-0.1 AND A5>A6);

见底:IF(A7,LLV(L,21),DRAWNULL)COLORRED,CIRCLEDOT;

见顶:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.3,REF(A0,BARSLAST(CROSS(A1X,0)))*1.3,DRAWNULL),COLORGREEN,CIRCLEDOT;

高:=REF(HHV(H,N),M); 

低:=REF(LLV(L,N),M);

H19:=高-(高-低)*0.191; 

H38:=高-(高-低)*0.382; 

H中:=高-(高-低)*0.5; 

H61:=高-(高-低)*0.618; 

H80:=高-(高-低)*0.809;

顶点1:REFDATE(高,DATE),POINTDOT,COLOR00FFFF;

疯牛%19.8:REFDATE(H19,DATE),POINTDOT,COLOR00FFFF;

突破%38.2:REFDATE(H38,DATE),POINTDOT,COLOR00FFFF;

平衡%50:REFDATE(H中,DATE),POINTDOT,COLOR00FFFF;

回落%61.8:REFDATE(H61,DATE),POINTDOT,COLOR00FFFF;

次低%80.9:REFDATE(H80,DATE),POINTDOT,COLOR00FFFF;

低点1:REFDATE(低,DATE),POINTDOT,COLOR00FFFF;

DRAWTEXT(ISLASTBAR,顶点1,'顶点1'),COLOR00FFFF;

DRAWTEXT(ISLASTBAR,疯牛%19.8,'疯牛％19.8'),COLOR00FFFF;

DRAWTEXT(ISLASTBAR,突破%38.2,'突破％38.2'),COLOR00FFFF;

DRAWTEXT(ISLASTBAR,平衡%50,'平衡％50'),COLOR00FFFF;

DRAWTEXT(ISLASTBAR,回落%61.8,'回落％61.8'),COLOR00FFFF;

DRAWTEXT(ISLASTBAR,次低%80.9,'次低％80.9'),COLOR00FFFF;

DRAWTEXT(ISLASTBAR,低点1,'低点1'),COLOR00FFFF;

DIFF:=( EMA(CLOSE,7) - EMA(CLOSE,19)); 

DEA:=EMA(DIFF,9); 

MACD:=0.90*(DIFF-DEA); 

TJ:=(DIFF>=DEA); 

TJ1:=(DIFF>=0); 

{STICKLINE(TJ,H,L,0.4,0),COLORYELLOW; 

STICKLINE(TJ,O,C,4,1),COLOR0088FF; 

STICKLINE(TJ,O,C,3.4,1),COLOR00AAFF; 

STICKLINE(TJ,O,C,2.8,1),COLOR00CCFF; 

STICKLINE(TJ,O,C,2,1),COLOR00DDFF; 

STICKLINE(TJ,O,C,1.2,1),COLOR55FFFF; 

STICKLINE(TJ,O,C,0.4,1),COLOR99FFFF;

STICKLINE(TJ1 AND TJ,H,L,0.4,0),COLORF00FF0; 

STICKLINE(TJ1 AND TJ,O,C,4,1),COLORFF33FF; 

STICKLINE(TJ1 AND TJ,O,C,3.4,1),COLORFF55FF; 

STICKLINE(TJ1 AND TJ,O,C,2.8,1),COLORFF77FF; 

STICKLINE(TJ1 AND TJ,O,C,2,1),COLORFF99FF; 

STICKLINE(TJ1 AND TJ,O,C,1.2,1),COLORFFBBFF; 

STICKLINE(TJ1 AND TJ,O,C,0.4,1),COLORFFDDFF; } 

STICKLINE(DIFF<DEA,H,L,0.4,0),COLORF0F000; 

STICKLINE(DIFF<DEA,O,C,4,1),COLORFF3300; 

STICKLINE(DIFF<DEA,O,C,3.4,1),COLORFF6600; 

STICKLINE(DIFF<DEA,O,C,2.8,1),COLORFF9900; 

STICKLINE(DIFF<DEA,O,C,2,1),COLORFFBB00; 

STICKLINE(DIFF<DEA,O,C,1.2,1),COLORFFDD00; 

STICKLINE(DIFF<DEA,O,C,0.4,1),COLORFFFF00; 

VAR1:=(CLOSE*2+HIGH+LOW)/4; 

SK:= EMA(VAR1,13)-EMA(VAR1,73); 

SD:= EMA(SK,2); 

SJ:=(CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03)OR(CROSS(SK,SD) 

AND SK<=-0.14 )OR(CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)); 

STICKLINE(SJ,H,L,0.5,0),COLORRED; 

STICKLINE(SJ,O,C,5.5,0),LINETHICK3,COLOR000055; 

STICKLINE(SJ,O,C,4.5,0),LINETHICK3,COLOR000077; 

STICKLINE(SJ,O,C,3.5,0),LINETHICK3,COLOR000099; 

STICKLINE(SJ,O,C,2.5,0),LINETHICK3,COLOR0000BB; 

STICKLINE(SJ,O,C,1.5,0),LINETHICK3,COLOR0000DD; 

STICKLINE(SJ,O,C,0.5,0),LINETHICK3,COLOR0000FF; 

EMA13:=EMA(C,13),COLORWHITE; 

EMA21:=EMA(C,21),COLORYELLOW; 

EMA34:=EMA(C,34),COLORFF00FF; 

EMA60:=MA(C,60),COLORFFCC66; 

VAR2:=(2*CLOSE+HIGH+LOW)/4; 

VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1); 

VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4); 

散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3; 

庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3; 

LC:=REF(CLOSE,1);

RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

DRAWTEXT(CROSS(84,RSI) , HIGH,'←-----逃'),COLORGREEN;

VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);

VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);

DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'←---大胆搏 '),COLORYELLOW;

VAR51:=3;

VAR52:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));

DRAWTEXT(CROSS(VAR52,VAR51), LOW,'←启动')COLORMAGENTA;

{;