 | |  |  | 以下是财神到了 主图
input:N(27,1,100),N1(7,1,100),N2(19,1,100);
HH:=HHV(H,10);
LL:=LLV(L,10);
AA:=SMA(C,13,2);
DRAWTEXT(ISLASTBAR=1ANDAA>REF(AA,1)ANDREF(AA,1)<REF(AA,2)ANDREF(AA,2)<REF(AA,3),HH,'激进买入'),COLORRED;
DRAWTEXT(ISLASTBAR=1ANDAA>REF(AA,1)ANDREF(AA,1)>REF(AA,2),HH,'激进持股'),COLOR0066FF;
DRAWTEXT(ISLASTBAR=1ANDAA<REF(AA,1)ANDREF(AA,1)>REF(AA,2),HH,'激进卖出'),COLORGREEN;
A1:=MA(C,13);
ZX:=REF(A1,13/2+1);
DRAWTEXT(ISLASTBAR=1ANDCROSS(C,ZX),LL,'稳健买入'),COLORRED;
DRAWTEXT(ISLASTBAR=1ANDC>ZXANDREF(C,1)>REF(ZX,1),LL,'稳健持股'),COLOR0066FF;
DRAWTEXT(ISLASTBAR=1ANDC<ZXANDREF(C,1)>REF(ZX,1),LL,'稳健卖'),COLORGREEN;
VAR1111:=FORCAST(CLOSE,5);
VAR1:=1;
平衡线:=(EMA(EMA(EMA(HIGH,3),3),1)*VAR1);
VAR2:=(平衡线*0.85);
临界线:WMA(CLOSE,10),LINETHICK2;
VAR1:=POW((CLOSE-临界线),1);
VAR2:=MA(VAR1,3);
VAR3:=SQRT(VAR2);
支撑线:=(临界线-(1.96*VAR3));
PARTLINE((临界线<REF(临界线,1)),临界线),LINETHICK2,colorFF00;
VAR1Z:=(((CLOSE-OPEN)/OPEN)*100);
VAR2Z:=REF(CLOSE,1);
VAR3Z:=((SMA(MAX((CLOSE-VAR2Z),0),6,1)/SMA(ABS((CLOSE-VAR2Z)),6,1))*100);
VAR4Z:=(COUNT((VAR3Z<20),20)>=1);
DRAWTEXT(((VAR1Z>9)ANDVAR4Z),LOW,'★屠龙'),LINETHICK4,colorFFFF;
JJJ:=(((CLOSE+HIGH)+LOW)/3);
AA:=EMA(JJJ,3);
BB:=REF(AA,1);
持股:DRAWICON((AA>BB),BB,12);
VAR3:=REF(CLOSE,1);
VAR4:=REF(CLOSE,2);
VAR5:=REF(CLOSE,3);
VAR6:=REF(CLOSE,9);
VAR7:=HHV(CLOSE,9);
VAR8:=LLV(CLOSE,9);
VARC:=(((VAR3=VAR8)AND(CLOSE>=VAR4))OR((((VAR4=VAR8)AND(VAR3<=VAR5))AND(VAR4<VAR6))AND(CLOSE>=VAR3)));
黄色买入:STICKLINE(VARC,(VAR3*0.94),(VAR4*0.94),25,16),colorFFFF;
VAR1:=((REF(HIGH,1)+REF(LOW,1))/2);
VAR2:=((REF(HIGH,1)+REF(LOW,1))/2);
VAR3:=(MA(CLOSE,N)+(2*STD(CLOSE,N)));
DRAWICON(CROSS(VAR2,VAR3),(HIGH*1.035),3);
DRAWTEXT(CROSS(VAR2,VAR3),(HIGH*1.02),'卖出1'),colorFF00;
VAR4:=REF(CLOSE,1);
VAR5:=((SMA(MAX((CLOSE-VAR4),0),N1,1)/SMA(ABS((CLOSE-VAR4)),N1,1))*100);
VAR6:=CROSS(N2,VAR5);
VAR7:=FILTER(VAR6,4);
A7:=((((2*CLOSE)+HIGH)+LOW)/4);
VAR10:=LLV(LOW,34);
VAR11:=HHV(HIGH,34);
SK:=EMA((((A7-VAR1)/(VAR2-VAR1))*100),7);
SD:=EMA(((0.667*REF(SK,1))+(0.333*SK)),5);
DRAWTEXT(IF((((((COUNT((CLOSE<REF(CLOSE,1)),8)/8)>(6/10))AND(VOL>=(1.5*MA(VOL,5))))ANDCOUNT((SK>=SD),3))AND(REF(LOW,1)=LLV(LOW,120))),1,0),LOW,'●买进1'),color99FF;
DRAWTEXT(IF((((((((((COUNT((CLOSE<REF(CLOSE,1)),13)/13)>(6/10))ANDCOUNT((SK>SD),6))AND(REF(LOW,5)=LLV(LOW,120)))ANDREF((CLOSE>=OPEN),4))ANDREF((CLOSE>OPEN),3))ANDREF((CLOSE>OPEN),2))ANDREF((OPEN>CLOSE),1))AND(OPEN>REF(CLOSE,1))),1,0),LOW,'●买进2'),colorFFFF;
VAR12:=(MA(CLOSE,80)-(MA(CLOSE,10)/3));
DRAWTEXT(IF(((((CLOSE<VAR12)AND((VOL/240)>(MA(VOL,5)/240)))AND(CLOSE>(REF(CLOSE,1)*1.08)))AND(CLOSE<(MA(CLOSE,13)*1.3))),1,0),LOW,'●抄底'),colorFFFF;
VAR11:=(((((2*CLOSE)+OPEN)+HIGH)+LOW)/5);
M8:=VOL;
主力:=(SUM((VAR11*M8),3)/SUM(M8,3));
散户:=主力;
M1:=LLV(散户,5);
VAR11:=(((((2*CLOSE)+OPEN)+HIGH)+LOW)/5);
M8:=VOL;
M5:=(SUM((VAR11*M8),1)/SUM(M8,1));
M13:=(SUM((VAR11*M8),5)/SUM(M8,5));
M21:=(SUM((VAR11*M8),13)/SUM(M8,13));
主力:=(SUM((VAR11*M8),3)/SUM(M8,3));
Y:=(SUM((VAR11*M8),21)/SUM(M8,21));
U1:=M5;
U3:=M13;
散户:=主力;
XX1:=M21;
C5:=((U3>散户)AND(散户>XX1));
C8:=IF((C5>0),LLV(U3,5),HHV(散户,5));
C13:=IF((C5>0),LLV(散户,8),HHV(散户,5));
VAR1118:=IF((C5>0),LLV(XX1,13),HHV(散户,5));
M1:=LLV(散户,20);
DRAWTEXT((M1=REF(M1,1)),M1,'┬'),LINETHICK5,colorCC33FF;
DRAWTEXT(((REF(M1,1)<REF(M1,2))AND(M1=REF(M1,1))),M1,'★'),colorFF;
STICKLINE((CLOSE<OPEN),HIGH,LOW,1,0),color8800;
STICKLINE((CLOSE<OPEN),HIGH,LOW,0,0),colorFF00;
STICKLINE((CLOSE<OPEN),CLOSE,OPEN,8,0),color8800;
STICKLINE((CLOSE<OPEN),CLOSE,OPEN,7,0),color9900;
STICKLINE((CLOSE<OPEN),CLOSE,OPEN,6,0),colorAA00;
STICKLINE((CLOSE<OPEN),CLOSE,OPEN,5,0),colorBB00;
STICKLINE((CLOSE<OPEN),CLOSE,OPEN,4,0),colorCC00;
STICKLINE((CLOSE<OPEN),CLOSE,OPEN,3,0),colorDD00;
STICKLINE((CLOSE<OPEN),CLOSE,OPEN,2,0),colorEE00;
STICKLINE((CLOSE<OPEN),CLOSE,OPEN,1,0),colorFF00;
STICKLINE((CLOSE>=OPEN),HIGH,LOW,1,0),colorFF;
STICKLINE((CLOSE>=OPEN),HIGH,LOW,0,0),colorEEFF;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,8,0),colorFF;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,7,0),color22FF;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,6,0),color44FF;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,5,0),color66FF;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,4,0),color88FF;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,3,0),colorAAFF;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,2,0),colorCCFF;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,1,0),colorEEFF;
VAR22:=((LLV(LOW,3)=LLV(LOW,3))AND(CLOSE>=(OPEN*1.04)));
VAR333:=(CLOSE>((REF(HIGH,1)+REF(LOW,1))/2));
VAR44:=(VAR22ANDVAR333);
VAR55:=BARSLAST(VAR333);
VAR66:=BARSLAST(VAR44);
VAR77:=IF((VAR66>0),(((CLOSE-REF(CLOSE,1))/REF(CLOSE,1))*100),0);
VAR88:=SUM(VAR77,1);
VAR93:=IF((VAR55>3),(0-2),0);
DRAWICON(((REF(VAR93,1)=(0-2))AND(VAR93=0)),LOW,1),colorFF;
DRAWICON(((REF(VAR93,1)=(0-2))AND(VAR93=0)),LOW,8),colorFF;
DRAWTEXTEX(sysparam(3)=BARPOS,0,10,8,'【代码:'+STKLABEL+'名称:'+STKNAME+'】'),Colorcyan;
DRAWTEXT((BARPOS=SYSPARAM(2)),HIGH,('所属板块:'+BLKNAME)+'\n')ALIGN4,colorred;
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=year;
fm:=month;
fd:=day;
wd:=weekday;
p:=SYSPARAM(1);
DRAWTEXTex(c,0,300,1,
numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日,'+wday[wd[p]+1]+'\n'),COLORyellow;
DRAWTEXTEX(1,1,20,880,'耐心等待时机'),COLORRED;
DRAWTEXTEX(1,1,20,150,'决策在人脑严格执行纪律'),COLORRED;
X:=EMA(((SLOPE(CLOSE,21)*20)+CLOSE),68);
Y:=EMA(CLOSE,10);
DRAWTEXT(CROSS(Y,X),(LOW*0.95),'←安全C级'),COLORRED;
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE-VAR1)/(VAR2-VAR1))*100),5);
AK:=EMA((((CLOSE-VAR1)/(VAR2-VAR1))*50),13);
DD:=EMA(((0.667*REF(AK1,1))+(0.333*AK1)),2);
VAR3:=LLV(LOW,55);
VAR4:=HHV(HIGH,34);
VAR5:=EMA((((CLOSE-VAR3)/(VAR4-VAR3))*100),3);
VAR6:=((AK+VAR5)/2);
VAR7:=EMA(((0.667*REF(VAR5,1))+(0.333*AK1)),2);
VAR8:=EMA(VAR6,5);
BB:=EMA(((0.667*REF(VAR8,1))+(0.333*VAR8)),2);
AB:=CROSS(AK1,AK);
BB1:=(CROSS(AK1,BB)AND(BB<30));
CD:=(BB1*0.6);
DRAWTEXT((CD=0.6),(LOW*0.95),'←安全A级'),COLORGREEN;
DRAWTEXT((AB=1),(LOW*0.97),'←安全B级'),COLOR33CC99,COLORYELLOW;
压力:MA(REF(HHV(C,30),1),2),COLORGREEN;
支撑:MA(REF(LLV(C,30),1),2),COLORRED;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,8,0),COLORFF6600;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,7,0),COLORFF7700;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,6,0),COLORFF9900;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,5,0),COLORFFBB00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,4,0),COLORFFCC00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3,0),COLORFFDD00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2,0),COLORFFEE00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1,0),COLORFFFF00;
{立体柱子：红色}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),COLOR000033;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0),COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),COLOR0000DD;
VAR9Q:=C=HHV(C,4)AND(REF(C,1)>=REF(C,2)ORREF(C,1)>=REF(C,3))ORREF(C,1)=HHV(C,4)ANDCLOSE>=REF(C,2)ORREF(C,2)=HHV(C,4)ANDREF(C,3)=LLV(C,4)ANDC>=REF(C,1)ORREF(C,3)=HHV(C,4)ANDC>=REF(C,1)ANDC>=REF(C,2);
红持:var9Q,color0000ff,LINETHICK0;
{立体柱子：红色}
STICKLINE(VAR9Q,C,(O+C)/2,8,0),COLOR000044;
STICKLINE(VAR9Q,C,(O+C)/2,7,0),COLOR000055;
STICKLINE(VAR9Q,C,(O+C)/2,6,0),COLOR000066;
STICKLINE(VAR9Q,C,(O+C)/2,5,0),COLOR000077;
STICKLINE(VAR9Q,C,(O+C)/2,4,0),COLOR000099;
STICKLINE(VAR9Q,C,(O+C)/2,3,0),COLOR0000BB;
STICKLINE(VAR9Q,C,(O+C)/2,2,0),COLOR0000DD;
STICKLINE(VAR9Q,C,(O+C)/2,1,0),COLOR0000FF;
VARAQ:=C=HHV(C,4)ANDREF(C,1)=LLV(C,4);
粉变:varaQ,colorff99ff,LINETHICK0;
STICKLINE(VARAQ,C,(O+C)/2,8,0),COLORFF11FF;
STICKLINE(VARAQ,C,(O+C)/2,7,0),COLORFF22FF;
STICKLINE(VARAQ,C,(O+C)/2,6,0),COLORFF33FF;
STICKLINE(VARAQ,C,(O+C)/2,5,0),COLORFF55FF;
STICKLINE(VARAQ,C,(O+C)/2,4,0),COLORFF77FF;
STICKLINE(VARAQ,C,(O+C)/2,3,0),COLORFF99FF;
STICKLINE(VARAQ,C,(O+C)/2,2,0),COLORFFBBFF;
STICKLINE(VARAQ,C,(O+C)/2,1,0),COLORFFDDFF;
VARBQ:=C=LLV(C,4)AND(REF(C,1)<REF(C,2)ORREF(C,1)<REF(C,3))ORREF(C,1)=LLV(C,4)ANDC<REF(C,2)ORREF(C,2)=LLV(C,4)ANDREF(C,1)<>HHV(C,4)ANDC<REF(C,1)ORREF(C,3)=LLV(C,4)ANDC<REF(C,1)ANDC<REF(C,2);
银灰跌:varbQ,color888888,LINETHICK0;
{立体柱子：银色}
STICKLINE(VARBQ,C,(O+C)/2,8,0),COLOR333333;
STICKLINE(VARBQ,C,(O+C)/2,7,0),COLOR444444;
STICKLINE(VARBQ,C,(O+C)/2,6,0),COLOR555555;
STICKLINE(VARBQ,C,(O+C)/2,5,0),COLOR777777;
STICKLINE(VARBQ,C,(O+C)/2,4,0),COLOR999999;
STICKLINE(VARBQ,C,(O+C)/2,3,0),COLORBBBBBB;
STICKLINE(VARBQ,C,(O+C)/2,2,0),COLORDDDDDD;
STICKLINE(VARBQ,C,(O+C)/2,1,0),COLORFFFFFF;
VARCQ:=REF(C,1)=LLV(C,4)ANDC>=REF(C,2)ORREF(C,2)=LLV(C,4)ANDREF(C,1)<=REF(C,3)ANDREF(C,2)<REF(C,4)ANDC>=REF(C,1);
绿买:varcQ,color00ff00,LINETHICK0;
{立体柱子：绿色}
STICKLINE(VARCQ,O,(O+C)/2,8,0),COLOR004400;
STICKLINE(VARCQ,O,(O+C)/2,6,0),COLOR005500;
STICKLINE(VARCQ,O,(O+C)/2,5,0),COLOR007700;
STICKLINE(VARCQ,O,(O+C)/2,4,0),COLOR009900;
STICKLINE(VARCQ,O,(O+C)/2,3,0),COLOR00BB00;
STICKLINE(VARCQ,O,(O+C)/2,2,0),COLOR00DD00;
STICKLINE(VARCQ,O,(O+C)/2,1,0),COLOR00FF00;
VARDQ:=REF(C,1)=HHV(C,4)ANDC<REF(C,2)OR(REF(C,2)=HHV(C,4)ANDREF(C,1)>REF(C,3)ORREF(C,3)=HHV(C,4)ANDREF(C,1)>REF(C,2))ANDREF(C,2)>=REF(C,4)ANDC<REF(C,1);
蓝抛:vardQ,colorff9900,LINETHICK0;
{立体柱子：深蓝色}
STICKLINE(VARDQ,O,(O+C)/2,8,0),COLORFF1100;
STICKLINE(VARDQ,O,(O+C)/2,7,0),COLORFF2200;
STICKLINE(VARDQ,O,(O+C)/2,6,0),COLORFF3300;
STICKLINE(VARDQ,O,(O+C)/2,5,0),COLORFF5500;
STICKLINE(VARDQ,O,(O+C)/2,4,0),COLORFF7700;
STICKLINE(VARDQ,O,(O+C)/2,3,0),COLORFF9900;
STICKLINE(VARDQ,O,(O+C)/2,2,0),COLORFFBB00;
STICKLINE(VARDQ,O,(O+C)/2,1,0),COLORFFDD00;
{立体柱子：金色}
ZDF:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
STICKLINE(ZDF>9.8,OPEN,CLOSE,8,0),color004444;
STICKLINE(ZDF>9.8,OPEN,CLOSE,7,0),color005555;
STICKLINE(ZDF>9.8,OPEN,CLOSE,6,0),color006666;
STICKLINE(ZDF>9.8,OPEN,CLOSE,5,0),color007777;
STICKLINE(ZDF>9.8,OPEN,CLOSE,4,0),color009999;
STICKLINE(ZDF>9.8,OPEN,CLOSE,3,0),color00BBBB;
STICKLINE(ZDF>9.8,OPEN,CLOSE,2,0),color00DDDD;
STICKLINE(ZDF>9.8,OPEN,CLOSE,1,0),color00FFFF;
Z:=(CLOSE>REF(CLOSE,1));
成功:((((((((((((((((((((((((((((((ALL(Z,1)+ALL(Z,2))+
ALL(Z,3))+ALL(Z,4))+ALL(Z,5))+ALL(Z,6))+ALL(Z,7))+
ALL(Z,8))+ALL(Z,10))+ALL(Z,11))+ALL(Z,12))+ALL(Z,13))+
ALL(Z,14))+ALL(Z,15))+ALL(Z,16))+ALL(Z,17))+ALL(Z,18))+
ALL(Z,19))+ALL(Z,20))+ALL(Z,21))+ALL(Z,22))+ALL(Z,23))+
ALL(Z,24))+ALL(Z,25))+ALL(Z,26))+ALL(Z,27))+ALL(Z,28))+
ALL(Z,29))+ALL(Z,30))+ALL(Z,31))+ALL(Z,32)),LINETHICK0,colorFF;
|
|
