|
{自定名主图}
高1:=REF(HHV(H,150),3);
低1:=REF(LLV(L,150),3);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
{顶:REFDATE(高1,DATE),POINTDOT,COLORWHITE;
%19:REFDATE(H1,DATE),POINTDOT,COLORYELLOW;
%38:REFDATE(H2,DATE),POINTDOT,COLORYELLOW;
%50:REFDATE(H3,DATE),POINTDOT,COLORWHITE;
%61:REFDATE(H4,DATE),POINTDOT,COLORYELLOW;
%80:REFDATE(H5,DATE),POINTDOT,COLORYELLOW;
WWW.70822.com}
突破:REF(EMA(C,14),1)COLORMAGENTA,LINETHICK2;
A1X:=(EMA(C,14)-突破)/突破*100,NODRAW;
出击:IF(A1X>=0,REF(EMA(C,14),BARSLAST(CROSS(A1X,0))+1),DRAWNULL)COLORRED,LINETHICK2;
休假:IF(A1X<0,REF(EMA(C,14),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLORGREEN,LINETHICK2;
STICKLINE(A1X>=0,出击,突破,0,-1)COLORRED;
STICKLINE(A1X<0,休假,突破,0,-1)COLORGREEN;
STICKLINE(CROSS(A1X,0),C,O,2,0)COLORYELLOW;
STICKLINE(CROSS(0,A1X),C,O,2,0)COLORGREEN;
{※:IF(A1X<0,突破,DRAWNULL)COLORGREEN,LINETHICK2;}
{DP:=REF(EMA(INDEXC,14),1);
DPX:=(EMA(INDEXC,14)-DP)/DP*100;
STICKLINE(DPX>=0 AND A1X>=0,REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORRED;
STICKLINE(DPX<0 AND A1X<0,REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORGREEN;
STICKLINE(NOT(DPX>=0 AND A1X>=0) AND NOT(DPX<0 AND A1X<0),
REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORYELLOW;}
日均价:=(C*3+H+L+O)/6;
JF1:=SMA(SMA(EMA(日均价,5)*2-MA(日均价,5),3,1),3,1),COLOR999900;
补偿:=FLOOR(((JF1-MA(JF1,5))/MA(JF1,5)*100));
风:SMA(SMA((EMA(日均价,(5+ABS(补偿)))),2,1),2,1),COLORWHITE,LINETHICK2;
上轨:风+2*STD(风,10),COLORBLUE;
下轨:风-2*STD(风,10),COLORBLUE;
无盐:=EMA(日均价,5)*2-MA(日均价,5);
修正:=SMA(SMA(EMA(日均价,5)*2-MA(日均价,5),2,1),2,1),COLOR999900;
夺命:=(MA(C,5)+MA(C,13))/2;
追风:MA(C,5)-MA(C,13)+MA(C,8),COLORRED,LINETHICK2;
{天河指标}
{DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
DRAWTEXT(REF(CROSS(DEA,DIF),1) AND CROSS(DIF,DEA),L*0.97,'←回马枪'),
COLORMAGENTA;}
HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=BACKSET(AA,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
DRAWICON(CC,H*1.02,2);
DRAWTEXT(CC,H*1.03,'←顶'),COLORGREEN;
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H);
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);
QY1:=BACKSET(AA1,LOWN+1);
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
DRAWICON(CC1,L*0.97,1);
DRAWTEXT(CC1,L*0.97,'←底'),COLORRED;
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
EMA13:=EMA(C,13),COLORWHITE;
EMA21:=EMA(C,21),COLORYELLOW;
EMA34:=EMA(C,34),COLORFF00FF;
EMA60:=MA(C,60),COLORFFCC66;
VAR7:=(2*CLOSE+HIGH+LOW)/4;
VAR8:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR9:=LLV(LOW,5); VAR10:=HHV(HIGH,4);
散户:=EMA((VAR7-VAR9)/(VAR10-VAR9)*100,4)*VAR8;
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR8;
{DRAWICON(CROSS(散户,庄家) AND 散户<30,L-0.05,1);}
DRAWICON(CROSS(庄家,散户) AND 散户>82,H+0.05,2);
{参数M 14 2 100 N1 2 100 14}
{RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*10;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
目前位置:K;
技术低位:2;
技术高位:8;
主力资金: (CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*10, COLORA6E500;
大资金: (CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*10, COLORFF3399;
边界: IF(CROSS(大资金,-24),1,0), COLORFFFFFF;
J:3*K-2*D,LINETHICK0;
WR:10*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)),LINETHICK0;
LC:=REF(CLOSE,1);
RSI:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*10,LINETHICK0;}
{MA1:MA(CLOSE,M1);
MA2:MA(CLOSE,M2);
MA3:MA(CLOSE,M3);
MA4:MA(CLOSE,M4);
MA5:MA(CLOSE,M5);
MA6:MA(CLOSE,M6);}
{彩色K线}
{F:=100*(C-REF(C,1))/REF(C,1);
今小昨:=IF(C<REF(O,1) AND F<0,1,0);
P1:=今小昨;
今小前:=IF(C<REF(O,2) AND F<0,1,0);
P2:=今小前;
STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,6,0),
COLORMAGENTA;}
{STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,OPEN,CLOSE,3,0),
COLORBLUE;}
A:=DRAWLINE(LOW<=LLV(LOW,120),LOW,HHV(H,6)<=HHV(H,10),LLV(LOW,6),1), COLORBLUE ,LINETHICK2;
TY:=C;
{成本:(MA(CLOSE,60)+MA(CLOSE,70)+MA(CLOSE,90)+MA(CLOSE,108))/4,COLORRED,
LINETHICK2;}
{MA5:MA(C,5),LINETHICK1.5;
MA13:MA(C,13),LINETHICK2;
MA20:MA(C,20),LINETHICK1.5;
MA34:MA(C,34),LINETHICK2,COLORLIRED;
MA60:MA(C,60),LINETHICK1.5;
MA120:MA(C,120),LINETHICK1.5;}
{MA0:MA(C,0)COLORYELLOW ; }
K:=(C+H+L)/3;
D:=MA(K,4);
{阻力:HHV(D,55),COLORYELLOW,LINETHICK2;}
{顶部:HHV(H*0.98,55)COLORFFFFFF,LINETHICK2;}
{DRAWTEXT(REF(C,1)<D AND C>D AND D<REF(D,1),L*0.99, '←B')
COLORYELLOW,LINETHICK4 ;}
{均线}
TYP:= (HIGH + LOW +2* C)/4;
均线:=EMA(TYP,3),LINETHICK2,COLORWHITE;
均线上轨:=HHV(均线,14),LINETHICK2,COLORYELLOW;
均线下轨:=LLV(均线,14),LINETHICK2,COLORGREEN;
角度:=ATAN((均线/REF(均线,1)-1)*100)*180/3.1416;
{K线优化}
STICKLINE(角度>0,O ,C ,0.5,0 ),COLORRED;
STICKLINE(角度<0,O ,C,0.5 ,0 ),COLORCYAN;
STICKLINE(角度<0,O,C,3,0),COLORFF6600;{蓝K线持币}
STICKLINE(角度<0,O,C,2,0),COLORFF9900;
STICKLINE(角度<0,O,C,1.2,0),COLORFFCC00;
STICKLINE(角度<0,O,C,0.2,0),COLORCYAN;
STICKLINE(角度>0,O,C,3,0),COLOR000099;
STICKLINE(角度>0,O,C,2,0),COLOR0000CC;{红K线持股}
STICKLINE(角度>0,O,C,1.3,0),COLOR0000FF;
STICKLINE(角度>0,O,C,0.3,0),COLORCC66FF;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
CB:=EMA(X,13);
{买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWICON(FILTER(买=1,5),L*0.96,23);}
VV:=(C+L+H)/3;
DSA:=SMA(XMA(VV,15),2,1),LINETHICK2;
{顶部1:DSA*1.05,COLORYELLOW;
顶部2:DSA*1.1,COLORRED;}
{底部1:DSA*0.90,COLORBLUE;}
{底部2:DSA*0.91,COLORGREEN;}
{底部3:DSA*0.85,COLORGREEN;};
UU:=(C+L+H)/3;
DSSA:=SMA(XMA(UU,2),2,1),LINETHICK2;
{顶部1:DSA*1.05,COLORYELLOW;
顶部2:DSA*1.1,COLORRED;}
部:DSSA*1,COLORYELLOW;
重心:AMOUNT/VOL/100,POINTDOT,COLORYELLOW;
STICKLINE(1 ,重心 ,重心 ,1.5,1 ),COLORYELLOW,LINETHICK6;
{DRAWTEXT(1,重心,'●'),COLORWHITE; };
MA1:=MA(CLOSE,2);
{MCST:DMA(AMOUNT/(100*VOL),VOL/CAPITAL),COLORCYAN;};
201012011182086388.png
|
