打印本文
關閉窗口
?
?來源: www.tumamayizhan.com
金字塔資深技術： [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.tumamayizhan.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);