相關標簽:

?

JGMR:="TDB.TDB"/100;
JGMC:="TDS.TDS"/100;
JGDX:=(JGMR-JGMC);
特大買入:=JGMR;
特大賣出:=JGMC;
特大凈買:=JGDX;
DHMR:="DDB.DDB"/100;
DHMC:="DDS.DDS"/100;
DHDX:=(DHMR-DHMC);
大單買入:=DHMR+特大買入;
大單賣出:=DHMC+特大賣出;
大單凈買:=大單買入-大單賣出;
ZHMR:="ZDB.ZDB"/100;
ZHMC:="ZDS.ZDS"/100;
ZHDX:=(ZHMR-ZHMC);
中單買入:=ZHMR+大單買入;
中單賣出:=ZHMC+大單賣出;
中單凈買:=中單買入-中單賣出;
小單買入:=1-中單買入;
小單賣出:=1-中單賣出;
小單凈買:=小單買入-小單賣出;

DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
a1:=(IF((DATE <= 1341231),1,0)) * (IF((CURRENTDATE <= 1341231),1,0));
a2:=1 - 中單買入;
a3:=1 - 中單賣出;
a4:=特大買入;
a5:=特大賣出;
a6:=大單買入;
a7:=大單賣出;
資金進出比:((("order2" - "order1") / CAPITAL) * 2000) * a1,color3d;
小股民:((((a2 - a3) * VOL) / CAPITAL) * 500) * a1,linethick0,ColorFF7400;
a8:=中單買入 - a6;
a9:=中單賣出 - a7;
中戶:((((a9 - a8) * VOL) / CAPITAL) * 500) * a1,linethick0,ColorFF7400;
大戶:((((a6 - a7) * VOL) / CAPITAL) * 500) * a1,linethick0,colorRed;
a4:=特大買入;
a5:=特大賣出;
機構:((((a4 - a5) * VOL) / CAPITAL) * 500) * a1,linethick0,colorYellow;
STICKLINE((小股民 <= 0),0,(0 - 小股民),6,0),Color3B3BFF;
STICKLINE((小股民 >= 0),0,(0 - 小股民),6,0),ColorFFDD00;
STICKLINE((大戶 >= 0),0,大戶,4,0),colorRed;
STICKLINE((大戶 < 0),0,大戶,4,0),ColorFF6F00;
STICKLINE((機構 <= 0),0,機構,2,0),ColorFF0000;
STICKLINE((機構 >= 0),0,機構,2,0),colorYellow;
a10:=EMA((((((SUM(a6,2)) - (SUM(a7,2))) * VOL) / CAPITAL) * 500),3);
DRAWTEXT((((((SUM(大戶,2)) > 3) AND (大戶 > 1)) OR (大戶 > 1.5)) OR (機構 > 0.7)),-1,'增'),colorRed;
DRAWTEXT((((((SUM(大戶,2)) > 3) AND (大戶 > 1)) OR (大戶 > 1.5)) OR (機構 > 0.7)),-1.5,'倉'),colorRed;
a11:=(大戶 > 0.03) OR (資金進出比 > 0);
連續增倉天數:LAST((a11 > 0)) * a1,linethick0;
周倉量:((SUM(((a6 * VOL) - (a7 * VOL)),5)) / CAPITAL) * 100,linethick1,colorYellow;


月倉量:((SUM(((a6 * VOL) - (a7 * VOL)),20)) / CAPITAL) * 100,linethick2,colorMagenta;
a12:=((CLOSE - (LLV(LOW,9))) / ((HHV(HIGH,9)) - (LLV(LOW,9)))) * 100;
a13:=SMA(a12,3,1);
a14:=SMA(a13,3,1);
a15:=CROSS(a13,a14);
a16:=CROSS(a14,a13);
a17:=CLOSE - (REF(CLOSE,1));
a18:=(100 * (EMA((EMA(a17,9)),9))) / (EMA((EMA(ABS(a17),9)),9));
a19:=MA(a18,5);
a20:=CROSS(a19,a18);
a21:=CROSS(a18,a19);
a22:=((SMA((MAX(a17,0)),5,1)) / (SMA(ABS(a17),5,1))) * 100;
a23:=((CLOSE - (MA(CLOSE,25))) / (MA(CLOSE,25))) * 100;
a24:=((CLOSE - CYC(13)) / CYC(13)) * 100;
a25:=((REF(HIGH,1)) + (REF(LOW,1))) / 2;
a26:=(MA(CLOSE,20)) + (2 * (STD(CLOSE,20)));
a27:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
a28:=((EMA((MA(a27,3)),3)) + (WMA(a27,5))) / 2;
a29:=REF(a28,1);
a30:=BARSCOUNT(CLOSE);
a31:=IF((a30 = 1),0,(((a28 - a29) / a29) * 100));

DRAWTEXT((((((a22 >= 90) AND (a23 >= 13)) AND (大戶 <= -0.7)) AND (a13 > 80)) AND (CLOSE < OPEN)),2.5,'▼2/3倉出');
DRAWTEXT((((((REF(大戶,1)) >= (HHV(大戶,10))) AND (大戶 >= (LLV(大戶,10)))) AND ((REF(大戶,1)) > 2.5)) AND (大戶 < -2.5)),1.5,'◤反下'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXT((((((a31 >= 4) AND (a23 >= 25)) AND (大戶 <= -0.3)) AND (a13 >= 80)) AND (CLOSE < OPEN)),2,'▼1/3倉出');
DRAWTEXT(((((a31 >= 4.5) AND (a23 >= 16)) AND (大戶 <= -0.7)) AND (a22 >= 80)),1.5,'▼1/3倉出');
DRAWTEXT((((((a31 >= 4) AND (a23 >= 28)) AND (大戶 <= 0)) AND (a22 >= 90)) AND (a13 >= 90)),1.5,'▼1/3倉出');
DRAWTEXT((((a31 >= 6) AND (大戶 <= 0)) AND (CLOSE < OPEN)),1.5,'▼出局');
a32:=(((HIGH - LOW) / (REF(CLOSE,1))));
a33:=(COUNT(((a32 < 0.05) AND (a32 > 0)),3)) = 3;
a34:=a33 AND (連續增倉天數 > 2);
a35:=((HHV(HIGH,3)) - (LLV(LOW,3))) / (REF(CLOSE,3));
DRAWTEXT(((a33 AND ((連續增倉天數 > 3) OR (a10 > 3))) AND ((COUNT((CLOSE > (REF(CLOSE,1))),3)) >= 3)),1.5,'◆出擊');
a36:=SUM(大戶,3);
a37:=(a35 < 0.07) AND ((連續增倉天數 > 2) AND (a36 > 2.2));
DRAWTEXT(a37,2,'◆阻擊');
a38:=(CLOSE < (REF(CLOSE,1))) AND (((小股民 < -2) OR (大戶 > 1)) OR (機構 > 0.7));
DRAWTEXT(a38,2.5,'洗'),Color00F0FF;
DRAWTEXT(a38,2,'盤'),Color00F0FF;
DRAWTEXT(((a16 AND (大戶 < -0.3)) AND (a22 > 85)),2,'↓賣'),Color00F0FF;
DRAWTEXT(((a24 < -12) AND ((大戶 >= 0.7) OR ((機構 > 0.6) AND (大戶 >= 0.1)))),3.5,'↑進'),colorMagenta;
STICKLINE(((((大戶 < -5) AND ((CLOSE > OPEN) OR (CLOSE < OPEN))) AND (a13 >= 80)) AND (a23 > 10)),0,大戶,5,0),Color009A00;
STICKLINE(((大戶 < -2) AND (a31 > 3)),(((0 AND (a14 >= 80)) AND (a23 > 17)) AND (a22 > 80)),大戶,5,0),Color00E000;
STICKLINE(((((大戶 < -1.5) AND (a31 > 3.5)) AND (a23 > 10)) AND (a22 > 70)),0,大戶,5,0),COLORGREEN;{http://www.kzuj.com.cn}
STICKLINE((((大戶 < 1) AND (a31 < -3.5)) AND (a22 < 20)),0,大戶,5,0),colorMagenta;
DRAWTEXT(((((大戶 > 1) AND (機構 > 0.3)) AND (ANY((a22 > 85),3))) AND (a22 < 50)),-2.5,'↑買進'),colorMagenta;
DRAWTEXT(((((a23 > 20) OR (a24 > 10)) AND ((大戶 < -2) OR (機構 < -1))) AND (CROSS((MA(CLOSE,5)),CLOSE))),2,'減倉'),Color01FF00;
a32:=((((CLOSE / (REF(CLOSE,1))) - 1) * 100));
STICKLINE((((大戶 > 1) AND (機構 > 0.2)) AND (a32 < -3)),0,大戶,5,0),colorMagenta;
DRAWTEXT((((a16 AND a19) AND (大戶 < 0)) AND (a23 > 8)),-2.5,'↓出貨'),Color005400;
DRAWTEXT(((a15 AND a21) AND ((大戶 >= 0.7) OR (機構 > 0.4))),1.5,'增倉'),ColorFF0000;
DRAWTEXT((((a35 <= 0.1) AND (LAST((大戶 >= 0.25)) > 2)) AND (a23 < 17)),3.5,'☆拉升'),Color3354FF;
DRAWTEXT(((LAST(((大戶 > (REF(大戶,1))) AND (大戶 > 0))) > 2) AND (a23 < 17)),3,'☆推升'),Color00B5FF;
DRAWTEXT(((CROSS(a22,20)) AND (連續增倉天數 >= 2)),4.3,'買'),ColorFF00DB;
DRAWTEXT(((((a31 < -4) AND (大戶 > 0)) AND (a24 < -13)) AND (a23 < -15)),2,'↑吃貨'),ColorFF00DB;
DRAWTEXT(((((a31 < -2) AND (大戶 > 0)) AND (a24 < -18)) AND (a23 < -15)),1.5,'↑進場'),ColorFF00DB;
DRAWTEXT((((((a15 OR a21) AND (連續增倉天數 >= 2)) AND (a23 < 12)) AND (LAST((a31 > -3)) > 5)) AND ((大戶 + (REF(大戶,1))) >= 0.7)),1,'Θ起漲'),ColorFF4398;
DRAWTEXTREL(10,900,'㊣神牛快贏㊣'),linethick1,COLOR00EEff;{程序化交易 www.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?