[PEL] 复制代码
DRAWGBK(C>0, RGB(50,0,50),RGB(30,0,120),1);
中:50,COLORYELLOW;
VAR1中:=LLV(LOW,13);
VAR2:=HHV(HIGH,13);
VAR3:=SMA((CLOSE-VAR1中)/(VAR2-VAR1中)*100,5,1);
VAR4:=SMA((VAR2-CLOSE)/(VAR2-VAR1中)*100,5,1);
//DRAWBAND(VAR3,RGB(115,30,150),50,RGB(0,100,100));
主力:VAR3,COLORMAGENTA,LINETHICK1;
散户:VAR4,COLORGREEN,LINETHICK1;
VAR5:=SMA(MAX(CLOSE-REF(CLOSE,1),0),5,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),5,1)*100;
操作:EMA(VAR5,3),LINETHICK2,COLORYELLOW;
{操作变色:IF(操作>REF(操作,1),操作,DRAWNULL),LINETHICK2,COLORMAGENTA;}
STICKLINE(C,90,90,1,0),COLOR3C3CFF;
STICKLINE(C,50,50,1,0),COLORYELLOW;
STICKLINE(C,10,10,1,0),COLORCYAN;
DRAWICON(CROSS(操作,中),中,34);{买入红箭头};
DRAWTEXT(CROSS(操作,中),中-0.1,' '),COLORYELLOW;
N1:=9;N2:=5;N:=21;
XIAO1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
XIAO2:=SMA(ABS(LOW-XIAO1),13,1)/SMA(MAX(LOW-XIAO1,0),10,1);
XIAO3:=EMA(XIAO2,10);
XIAO4:=LLV(LOW,33);
XIAO5:=EMA(IF(LOW<=XIAO4,XIAO3,0),3),COLORSTICK;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,3,0),COLOR000055 ;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,2.6,0) ,COLOR000077;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,2.1,0) ,COLOR000099;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,1.5,0 ),COLOR0000BB;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,0.9,0) ,COLOR0000DD;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,0.3,0 ),COLOR0000FF;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,3,0),COLOR005500;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,2.6,0),COLOR007700;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,2.1,0),COLOR009900;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,1.5,0),COLOR00BB00;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,0.9,0),COLOR00DD00;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,0.3,0),COLOR00FF00;
【私募进场】:IF(XIAO5>REF(XIAO5,1),XIAO5,0),COLORRED,NODRAW;
【私募洗盘】:IF(XIAO5<REF(XIAO5,1),XIAO5,0),COLORGREEN,NODRAW;
B1:=(HHV(H,9)-C)/(HHV(H,9)-LLV(LOW,9))*100- 70;
B2:=SMA(B1,9,1)+100;
B3:=(C-LLV(L,9))/(HHV(H,9)- LLV(L,9))*100;
B4:=SMA(B3,3,1);
B5:=SMA(B4,3,1)+100;
B6:=B5-B2;
观望期:=IF(B6>60,B6-60,0);
T1:=STICKLINE(REF(观望期,1)<观望期,观望期,REF(观望期,1),9,0,COLORYELLOW);
T2:=STICKLINE(REF(观望期,1)>观望期,观望期,REF(观望期,1),9,0,COLORCYAN);{趋势背景}
TAI1:=MA(C,1)/MA(REF(C,13),8)*100;
TAI2:=MA(FORCAST(TAI1,21),3);
TAI3:=REF(TAI1,1);
TAI4:=REF(TAI1,2);
邰1:=LLV(LOW,8);
邰2:=HHV(HIGH,13);
＃股市黑客＃:= EMA((CLOSE-邰1)/(邰2-邰1)*100,5),COLORRED,LINETHICK3;{输出后是趋势背景}
※升跌临界※:= EMA(0.667*REF(＃股市黑客＃,1)+0.333*＃股市黑客＃,2),COLORGREEN,LINETHICK3;{输出后是趋势背景}
VAR1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));
VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR10:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR11:=(REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR12:=(REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR13:=(REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR14:=(REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR15:=(REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR16:=(REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR17:=(REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR18:=(REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9),COLORFFFF00;
MACD:=(DIFF-DEA)*2,COLORSTICK;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
￥①:IF(REF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04 AND 观望期=0 AND C>REF(C,1),1),44,0),LINETHICK3,COLORLIRED;{进}
￥②:IF(REF("KDJ.J",1)<0 AND "KDJ.J">0 AND TAI1>=TAI2 AND TAI3>TAI4,34,0),LINETHICK3,COLORBROWN;{进}
￥③:IF(REF(＃股市黑客＃,1)<=13&&CROSS(＃股市黑客＃,※升跌临界※)&& REF(MA(C,55),1)>REF(MA(C,55),2)&&(VAR19 OR REF(VAR19,1)),33,0),COLORMAGENTA,LINETHICK3;
￥④:IF(底背离,45,0),LINETHICK3,COLORYELLOW;
DRAWTEXT(底背离,37,'←￥④MACD底背离'),COLORWHITE;
DRAWICON(底背离,45,1),COLORYELLOW;
DRAWICON(REF(＃股市黑客＃,1)<=13&&CROSS(＃股市黑客＃,※升跌临界※)&& REF(MA(C,55),1)>REF(MA(C,55),2)&&(VAR19 OR REF(VAR19,1)),35,1);
DRAWICON(REF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04 AND 观望期=0 AND C>REF(C,1),1),46,1);
DRAWICON(REF("KDJ.J",1)<0 AND "KDJ.J">0 AND TAI1>=TAI2 AND TAI3>TAI4,36,1),COLORYELLOW;
{DRAWTEXT_FIX(C>O,0.01,0.9,0,'WWW.CXH99.COM'),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'<SPAN STYLE="DISPLAY:NONE;"><A DATA-CKE-SAVED- >程序化交易模型</A></SPAN>'),COLORRED;};
DRAWTEXT(REF(＃股市黑客＃,1)<=13&&CROSS(＃股市黑客＃,※升跌临界※)&& REF(MA(C,55),1)>REF(MA(C,55),2)&&(VAR19 OR REF(VAR19,1)),28,'←￥③背离临界'),COLORMAGENTA;
DRAWTEXT(REF("KDJ.J",1)<0 AND "KDJ.J">0 AND TAI1>=TAI2 AND TAI3>TAI4,32,'←￥②KDJ背离'),COLORBROWN;
DRAWTEXT(REF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04 AND 观望期=0 AND C>REF(C,1),1),37,'←￥①背离中'),COLORLIRED;
主力成本:EMA(MA(CLOSE,3),13),NODRAW,COLORAAAAFF;
短期支撑:LLV(HIGH,30),NODRAW,COLORAAAAFF;
换手率:VOL/CAPITAL*100,NODRAW,COLORFF8888;
五日均换手率:SUM(100*V/CAPITAL,5)/5,NODRAW,COLORAAAAFF;
十日均换手率:SUM(100*V/CAPITAL,10)/10,NODRAW,COLORAAAAFF;
量:=IF(C>200,VOL/1000000,VOL/1),LINETHICK0,COLOREEEEFF;
地量:=换手率<1,COLORFF6600;
低靡:=C=C AND 换手率>=1 AND 换手率<2,COLOR008364;
温和:=C=C AND 换手率>=2 AND 换手率<3,COLORFFFFFF;
活跃:=C=C AND 换手率>=3 AND 换手率<5,COLOR208FFF;
带量:=C=C AND 换手率>=5 AND 换手率<8,COLORYELLOW;
放量:=C=C AND 换手率>=8 AND 换手率<15,COLORFF00FF;
巨量:=C=C AND 换手率>=15 AND 换手率<25,COLORRED;
怪异:=C=C AND 换手率>=25,COLORE66878;
{地量 AND ISLASTBAR AND PERIOD=5,60,'成交地量'}
DRAWTEXTEX(地量 AND ISLASTBAR AND PERIOD=5,0, 0.28,0.10,'成交地量'),COLORGREEN;
DRAWTEXTEX(低靡 AND ISLASTBAR AND PERIOD=5,0,0.28,0.10,'成交低靡'),COLORCYAN;
DRAWTEXTEX(温和 AND ISLASTBAR AND PERIOD=5,0,0.28,0.10,'成交温和'),COLORFFFFFF;
DRAWTEXTEX(活跃 AND ISLASTBAR AND PERIOD=5,0,0.28,0.10,'成交活跃'),COLOR208FFF;
DRAWTEXTEX(带量 AND ISLASTBAR AND PERIOD=5,0,0.28,0.10,'成交带量'),COLORYELLOW;
DRAWTEXTEX(放量 AND ISLASTBAR AND PERIOD=5,0,0.28,0.10,'成交放量'),COLORFF00FF;
DRAWTEXTEX(巨量 AND ISLASTBAR AND PERIOD=5,0,0.28,0.10,'成交巨量'),COLORRED;
DRAWTEXTEX(怪异 AND ISLASTBAR AND PERIOD=5,0,0.28,0.10,'成交怪异'),COLORE66878;
VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/OPENMINUTES(TIME),DRAWNULL),NODRAW;
V换手率:=VVOL/CAPITAL*100,NODRAW,COLORYELLOW;
{V量:=IF(C>200,VOL/1000000,VOL/1),LINETHICK0,COLOREEEEFF;}
V地量:=V换手率<1,COLORFF6600;
V低靡:=C=C AND V换手率>=1 AND V换手率<2,COLOR008364;
V温和:=C=C AND V换手率>=2 AND V换手率<3,COLORFFFFFF;
V活跃:=C=C AND V换手率>=3 AND V换手率<5,COLOR208FFF;
V带量:=C=C AND V换手率>=5 AND V换手率<8,COLORYELLOW;
V放量:=C=C AND V换手率>=8 AND V换手率<15,COLORFF00FF;
V巨量:=C=C AND V换手率>=15 AND V换手率<25,COLORRED;
V怪异:=C=C AND V换手率>=25,COLORE66878;
DRAWTEXTEX(V地量 AND ISLASTBAR AND OPENMINUTES(TIME)<240 AND OPENMINUTES(TIME)>5, 0,0.7,0.10,'预测地量'),COLORFF6600;
DRAWTEXTEX(V低靡 AND ISLASTBAR AND OPENMINUTES(TIME)<240 AND OPENMINUTES(TIME)>5,0,0.7,0.10,'预测低靡'),COLOR008364;
DRAWTEXTEX(V温和 AND ISLASTBAR AND OPENMINUTES(TIME)<240 AND OPENMINUTES(TIME)>5,0,0.7,0.10,'预测温和'),COLORFFFFFF;
DRAWTEXTEX(V活跃 AND ISLASTBAR AND OPENMINUTES(TIME)<240 AND OPENMINUTES(TIME)>5,0,0.7,0.10,'预测活跃'),COLOR208FFF;
DRAWTEXTEX(V带量 AND ISLASTBAR AND OPENMINUTES(TIME)<240 AND OPENMINUTES(TIME)>5,0,0.7,0.10,'预测带量'),COLORYELLOW;
DRAWTEXTEX(V放量 AND ISLASTBAR AND OPENMINUTES(TIME)<240 AND OPENMINUTES(TIME)>5,0,0.7,0.10,'预测放量'),COLORFF00FF;
DRAWTEXTEX(V巨量 AND ISLASTBAR AND OPENMINUTES(TIME)<240 AND OPENMINUTES(TIME)>5,0,0.7,0.10,'预测巨量'),COLORRED;
DRAWTEXTEX(V怪异 AND ISLASTBAR AND OPENMINUTES(TIME)<240 AND OPENMINUTES(TIME)>5,0,0.7,0.10,'预测怪量'),COLORMAGENTA;
个股6日:=(C-MA(C,6))/MA(C,6);
个股12日:=(C-MA(C,12))/MA(C,12);
个股24日:=(C-MA(C,24))/MA(C,24);
大盘6日:=(INDEXC-MA(INDEXC,6))/MA(INDEXC,6);
大盘12日:=(INDEXC-MA(INDEXC,12))/MA(INDEXC,12);
大盘24日:=(INDEXC-MA(INDEXC,24))/MA(INDEXC,24);
大盘:=(大盘6日 + 大盘12日 + 大盘24日)/3;
个股:=(个股6日 + 个股12日 + 个股24日)/3;
DRAWTEXTEX(个股>大盘 AND ISLASTBAR,0,0.14,0.10,'强于大盘',COLORYELLOW);
DRAWTEXTEX(个股<大盘 AND ISLASTBAR,0,0.14,0.10,'弱于大盘',COLORGREEN);
DRAWTEXTEX(个股>0 AND ISLASTBAR,0,0.21,0.10,'走势较强',COLORYELLOW);
DRAWTEXTEX(个股<0 AND ISLASTBAR,0,0.21,0.10,'走势较弱',COLORGREEN);
DRAWTEXTEX(1,0,0.00,0.10,'友谊看盘：',COLORYELLOW);
DRAWTEXTEX(1,0,0.00,0.00,'所属代码名称：',COLORYELLOW);
DRAWTEXTEX(1,0,0.09,0.00,STKLABEL,COLORCYAN);
DRAWTEXTEX(1,0,0.15,0,'所属行业：',COLORYELLOW);
DRAWTEXTEX(1,0,0.215,0,HYBLOCK,COLORCYAN);
DRAWTEXTEX(1,0,0.26,0,'所属地区：',COLORYELLOW);
DRAWTEXTEX(1,0,0.33,0,DYBLOCK,COLORCYAN);
DRAWTEXTEX(1,0,0.40,0,'所属概念：',COLORYELLOW);
DRAWTEXTEX(1,0,0.48,0,GNBLOCK,COLORCYAN);
{显示年月日星期几}
D1:=YEAR AND MONTH AND DAY;
AAA1:=STRCAT(NUMTOSTR(YEAR,0),'年');
AAA2:=STRCAT(NUMTOSTR(MONTH,0),'月');
AAA3:=STRCAT(NUMTOSTR(DAY,0),'日');
AAA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AAA:=STRCAT(STRCAT(STRCAT(AAA1,AAA2),STRCAT(AAA3,AAA4)),'】');
DRAWTEXTEX(D1,0,0.65,0.0,AAA,COLORCYAN);
今总成交亿:=AMOUNT/100000000,COLORFF00FF,NODRAW;
成交:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
今总流入亿:=IF(CLOSE>OPEN,成交*(HIGH-LOW),IF(CLOSE<OPEN,成交*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2))/100000000,COLORRED,NODRAW;
今总流出亿:=IF(CLOSE>OPEN,0-成交*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-成交*(HIGH-LOW),0-AMOUNT/2))/100000000,COLOR00FF00,NODRAW;
今净流入亿:=今总流入亿+今总流出亿,COLORYELLOW,NODRAW;
今总成交:=STRCAT(STRCAT(' 今总成交: ',NUMTOSTR(今总成交亿,2)),'亿');
今总流入:=STRCAT(STRCAT(' 今总流入: ',NUMTOSTR(今总流入亿,2)),'亿');
今总流出:=STRCAT(STRCAT(' 今总流出: ',NUMTOSTR(今总流出亿,2)),'亿');
今净流入:=STRCAT(STRCAT(' 今净流入: ',NUMTOSTR(今净流入亿,2)),'亿');
今资金流:=STRCAT('今资金流: ',STRCAT(STRCAT(STRCAT(STRCAT(今总成交,今总流入),今总流出), 今净流入),0));
DRAWTEXTEX(ISLASTBAR,0,0.00,0.05,今资金流,COLORYELLOW);
发表于 2021-11-7 09:24
发表于 2021-11-7 18:08
楼主