◆管家婆数钱◆ 源码公布 （解盘）
源码: （ 有未来函数谨慎使用！）
input:N(5,1,60),N1(11,1,100);
DRAWGBK((CLOSE = OPEN),COLORRGB(0,0,300),COLORRGB(0,100,500),1);
JQCB:=EMA(CLOSE,3);
H1:=HIGH;
HH:=HHV(HIGH,21);
L1:=LOW;
LL:=LLV(LOW,21);
IF (H1[DATACOUNT] = HH[DATACOUNT]) THEN begin
IF (L1[DATACOUNT] = LL[DATACOUNT]) THEN begin
end;
end;
顶:HH,PRECISION2,color8293;
底:LL,PRECISION2,color8900;
DSCJ1:=PEAKBARS(3,N,1);
DSCJ2:=TROUGHBARS(3,N,1);
DSCJ3:=PEAKBARS(2,N,1);
分界:MA(EMA(MAX(CLOSE,OPEN),3),(DSCJ1 + 1)),LINETHICK0,PRECISION2,colorFFB900;
点石:MA(LLV(JQCB,3),(DSCJ2 + 1)),LINETHICK0,PRECISION2,colorFF00FF;
成金:MA(HHV(JQCB,1),(DSCJ3 + 1)),LINETHICK0,PRECISION2,colorFFFF;
F:=((100 * (CLOSE - REF(CLOSE,1))) / REF(CLOSE,1));
P1:=IF(((CLOSE < REF(OPEN,1)) AND (F < 0)),1,0);
P3:=IF(((CLOSE > REF(OPEN,1)) AND (F > 0)),1,0);
P2:=IF(((CLOSE < REF(OPEN,2)) AND (F < 0)),1,0);
P4:=IF(((CLOSE > REF(OPEN,2)) AND (F > 0)),1,0);
买D5:=((((P1 = 0) AND (REF(P1,1) = 1)) AND (P2 = 0)) AND (REF(P2,1) = 1));
卖D6:=((((P3 = 0) AND (REF(P3,1) = 1)) AND (P4 = 0)) AND (REF(P4,1) = 1));
AS:=ZIG(3,3);
涨AL:=CROSS(AS,REF(AS,1));
跌AG:=CROSS(REF(AS,1),AS);
买点:=FILTER(((TROUGHBARS(3,15,1) < 4) = 1),3);
卖点:=FILTER(((PEAKBARS(3,15,1) < 4) = 1),3);
STICKLINE((OPEN >= CLOSE),HIGH,LOW,0,0),colorFFFF00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),colorFFFF00;
STICKLINE((CLOSE >= OPEN),LOW,HIGH,0,0),color5050FF;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,0),color5050FF;
STICKLINE(买点,LOW,((OPEN + CLOSE) / 2),0,0),colorFFFFFF;
STICKLINE(买点,CLOSE,((OPEN + CLOSE) / 2),7,0),colorFFFFFF;
STICKLINE(卖点,HIGH,((OPEN + CLOSE) / 2),0,0),colorFFFF;
STICKLINE(卖点,CLOSE,((OPEN + CLOSE) / 2),7,0),colorFFFF;
STICKLINE((买D5 AND 涨AL),LOW,((OPEN + CLOSE) / 2),0,0),colorFFFFFF;
STICKLINE((买D5 AND 涨AL),OPEN,((OPEN + CLOSE) / 2),7,0),colorFFFFFF;
STICKLINE((卖D6 AND 跌AG),LOW,((OPEN + CLOSE) / 2),0,0),color3EA63E;
STICKLINE((卖D6 AND 跌AG),OPEN,((OPEN + CLOSE) / 2),7,0),color3EA63E;
PARTLINE((DSCJ1 > 0),分界),colorFFB900;
PARTLINE((DSCJ2 > 0),点石),colorFF00FF;
PARTLINE((DSCJ3 > 0),成金),LINEDOT,colorFFFF;
F:=COST(5);
J:=COST(95);
M:=COST(15);
B:=COST(85);
F1:=(((J - F) / (F + J)) * 100);
M1:=(((B - M) / (B + M)) * 100);
成本集中度90:=F1;
成本集中度70:=M1;
获利盘:=(WINNER(CLOSE) * 100);
套牢盘:=(100 * (1 - WINNER(CLOSE)));
日换手率:=((VOL / CAPITAL) * 100);
TR1:=(((CLOSE * 2.5) / 100) + CLOSE);
HD:=(CLOSE - ((CLOSE * 2.5) / 100));
浮筹比:=(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) / WINNER(HHV(HIGH,0))) * 100);
AA:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
主动买盘:=IF((CLOSE > OPEN),(AA * (HIGH - LOW)),IF((CLOSE < OPEN),(AA * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));
主动卖盘:=IF((CLOSE > OPEN),(0 - (AA * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (AA * (HIGH - LOW))),(0 - (VOL / 2))));
买卖比:=(主动买盘 / 主动卖盘);
卖盘:=(VOL - 主动买盘);
卖盘大:=(((卖盘 - 主动买盘) / 卖盘) > 0.6);
买盘大:=(((主动买盘 - 卖盘) / 主动买盘) > 0.6);
WJ:=(((HIGH + LOW) + CLOSE) / 3);
VD1:=IF((HIGH = LOW),1,(HIGH - MAX(OPEN,CLOSE)));
VD2:=IF((HIGH = LOW),1,(MAX(CLOSE,OPEN) - WJ));
VD3:=IF((HIGH = LOW),1,(MIN(OPEN,CLOSE) - LOW));
VD4:=IF((HIGH = LOW),1,(WJ - MIN(CLOSE,OPEN)));
VD5:=(VOL / IF((HIGH = LOW),4,(HIGH - LOW)));
VD6:=(VD1 * VD5);
VD7:=(VD2 * VD5);
VD8:=(VD3 * VD5);
VD9:=(VD4 * VD5);
买入量:=(VD9 + VD8);
卖出量:=(VD6 + VD7);
卖量:=(VOL - 买入量);
卖量大:=(((卖量 - 买入量) / 卖量) > 0.4);
买量大:=(((买入量 - 卖量) / 买入量) > 0.4);
买入资金:=((买入量 * CLOSE) / 100);
卖出资金:=((卖出量 * CLOSE) / 100);
资金进出:=(买入资金 - 卖出资金);
买卖资金比:=(买入资金 / 卖出资金);
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,(((((((((((((((((((((((((((((((((((((('浮筹比:' + NUMTOSTR(浮筹比,0)) + '\n') + '获利盘:') + NUMTOSTR(获利盘,2)) + '\n') + '套牢盘:') + NUMTOSTR(套牢盘,2)) + '\n') + '成本集中度70:') + NUMTOSTR(成本集中度70,2)) + '\n') + '成本集中度90:') + NUMTOSTR(成本集中度90,2)) + '\n') + '买卖资金比:') + NUMTOSTR(买卖资金比,2)) + '\n') + '当日买卖比:') + NUMTOSTR(买卖比,2)) + '\n') + '当日买量:') + NUMTOSTR(买入量,2)) + '\n') + '当日卖量:') + NUMTOSTR(卖出量,2)) + '\n') + '当日买卖量:') + NUMTOSTR(VOL,2)) + '\n') + '资金进出万元:') + NUMTOSTR(资金进出,2)) + '\n') + '买入资金累计万元:') + NUMTOSTR(买入资金,2)) + '\n') + '卖出资金累计万元:') + NUMTOSTR(卖出资金,2)) + '\n')),ALIGN4,colorCCFFCC;
VG:=(MA((REF(HIGH,1) / REF(CLOSE,2)),27) * REF(CLOSE,1));
VD:=(MA((REF(LOW,1) / REF(CLOSE,2)),27) * REF(CLOSE,1));
A5:=VD[SYSPARAM(1)];
RA5:=VD[(SYSPARAM(1) - 1)];
A10:=VG[SYSPARAM(1)];
RA10:=VG[(SYSPARAM(1) - 1)];
JT5:=IF((A5 > RA5),'↑','↓');
JT10:=IF((A10 > RA10),'↑','↓');
阻力位:=IF((CLOSE > 200),(CLOSE * 1.01),(CLOSE * 1.07));
阻力位1:=IF((CLOSE < 10),(CLOSE * 1.05),阻力位);
止损位:=IF((CLOSE > 200),(CLOSE * 0.99),(CLOSE * 0.93));
止损位1:=IF((CLOSE < 10),(CLOSE * 0.95),止损位);
AA1:=(STRFIND(STKNAME,'ST',0) = 0);
K0:=IF(AA1,10,20);
A1:=((REF(CLOSE,1) / K0) + REF(CLOSE,1));
A2:=(0 - ((REF(CLOSE,1) / K0) - REF(CLOSE,1)));
SZ1:=(('阻力位：' + NUMTOSTR(阻力位,2)) + '元');
SZ2:=((' 止损位：' + NUMTOSTR(止损位,2)) + '元');
SZ3:=(('开测高：' + NUMTOSTR(VG[SYSPARAM(1)],2)) + JT10);
SZ4:=((' 开测低：' + NUMTOSTR(VD[SYSPARAM(1)],2)) + JT5);
SZ5:=(('涨停价：' + NUMTOSTR(A1,2)) + '元');
SZ6:=((' 跌停价：' + NUMTOSTR(A2,2)) + '元');
//改一下
DRAWTEXTEX(c,1,20,900, sz1),colorFF;
DRAWTEXTEX(c,1,20,900, sz2),colorFF00;
DRAWTEXTEX(c,1,20,930, sz3),colorFF;
DRAWTEXTEX(c,1,20,930, sz4),colorFF00;
DRAWTEXTEX(c,1,20,960, sz5),colorFF;
DRAWTEXTEX(c,1,20,960, sz6),colorFF00;
//{DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,SZ1),ALIGN3,LINETHICK25,colorFF;
DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,SZ2),ALIGN3,LINETHICK25,colorFF00;
DRAWTEXT((BARPOS = SYSPARAM(2)),CLOSE,SZ3),ALIGN5,LINETHICK10,colorFF;
DRAWTEXT((BARPOS = SYSPARAM(2)),CLOSE,SZ4),ALIGN5,LINETHICK10,colorFF00;
DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,SZ5),ALIGN5,LINETHICK37,colorFF;
DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,SZ6),ALIGN5,LINETHICK37,colorFF00;}
//
ZF:=(((CLOSE / REF(CLOSE,4)) - 1) * 100);
S:=(('五日涨幅:' + ' \n ') + NUMTOSTR(ZF[SYSPARAM(1)],2));
DRAWTEXT((BARPOS = SYSPARAM(1)),HIGH,S),ALIGN3;
QH:=REF(HIGH,2);
QL:=REF(LOW,2);
QO:=REF(OPEN,2);
QC:=REF(CLOSE,2);
ZO:=REF(OPEN,1);
ZC:=REF(CLOSE,1);
JYZHK:=(((((ABS((QO - QC)) / QO) < 0.02) AND ((ZO / ZC) > 1.02)) AND ((ABS((OPEN - CLOSE)) / OPEN) < 0.02)) AND (CLOSE > MA(CLOSE,30)));
JYZHV:=(VOL < REF(VOL,1));
JYZH:=(JYZHK AND JYZHV);
DRAWTEXT(JYZH,LOW,'全仓');//wu
限制:=(EMA((((((((HIGH + CLOSE) / 2) + LOW) + ((CLOSE + LOW) / 2)) / 3) - EMA(LLV((((((HIGH + CLOSE) / 2) + LOW) + ((CLOSE + LOW) / 2)) / 3),89),2)) / (EMA(HHV((((((HIGH + CLOSE) / 2) + LOW) + ((CLOSE + LOW) / 2)) / 3),21),2) - EMA(LLV((((((HIGH + CLOSE) / 2) + LOW) + ((CLOSE + LOW) / 2)) / 3),89),2))),8) * 100);
平衡:=SMA(EMA(SMA(((CLOSE + LOW) / 2),3,1),3),5,1);
DRAWICON((FILTER((((平衡 > REF(平衡,1)) AND (HHV(MA(((HIGH + CLOSE) / 2),13),10) < REF(HHV(MA(((HIGH + CLOSE) / 2),13),10),1))) AND (((CLOSE + LOW) / 2) > REF(((CLOSE + LOW) / 2),1))),5) AND (限制 < 88)),(LOW * 0.968),4),ALIGN0;
DRAWTEXT((FILTER((((平衡 > REF(平衡,1)) AND (HHV(MA(((HIGH + CLOSE) / 2),13),10) < REF(HHV(MA(((HIGH + CLOSE) / 2),13),10),1))) AND (((CLOSE + LOW) / 2) > REF(((CLOSE + LOW) / 2),1))),5) AND (限制 < 88)),(LOW * 0.98),' 追涨'),ALIGN0,colorFF00FF;
A1AA:=9;
A2AA:=(REF(CLOSE,(A1AA + 1)) < CLOSE);
DRAWTEXT(FILTER((A2AA > (0 - 0.5)),84),(HIGH * 1.05),'▼小心'),colorFF00;
VARC:=((SMA(MAX((CLOSE - REF(CLOSE,1)),0),6,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),6,1)) * 100);
DRAWICON(CROSS(82,VARC),(HIGH * 1.06),2);
VAR6:=REF(CLOSE,1);
VAR7:=((SMA(MAX((CLOSE - VAR6),0),6,1) / SMA(ABS((CLOSE - VAR6)),6,1)) * 100);
DRAWTEXT(CROSS(84,VAR7),(HIGH * 1.09),'逃顶'),colorFFFF;
DRAWTEXT(((((((((REF(CLOSE,2) / REF(OPEN,2)) < 0.95) AND (REF(CLOSE,2) < REF(CLOSE,3))) AND (REF(OPEN,1) < REF(CLOSE,2))) AND (REF(CLOSE,1) > REF(CLOSE,2))) AND (REF(CLOSE,1) > ((REF(CLOSE,2) + REF(OPEN,2)) / 2))) AND (CLOSE > REF(CLOSE,1))) AND (LLV(LOW,13) = REF(LOW,1))),(LOW * 0.96),'曙光'),colorFFFF;
DRAWTEXT(((((((REF(CLOSE,2) / REF(OPEN,2)) < 0.95) AND (REF(OPEN,1) < REF(CLOSE,2))) AND ((ABS((REF(OPEN,1) - REF(CLOSE,1))) / REF(CLOSE,1)) < 0.03)) AND ((CLOSE / OPEN) > 1.05)) AND (CLOSE > REF(CLOSE,2))),(LOW * 0.96),'早晨'),colorFFFF;
B:=(BARSCOUNT(CLOSE) = SYSPARAM(2));
D:=BARSLAST(B);
HH:=HHV(HIGH,D);
换手率:=((100 * VOL) / CAPITAL);
GJ:=IF((CLOSE = INDEXC),((((INDEXC + INDEXH) + INDEXL) + INDEXO) / 4),((AMOUNT / (VOL + 0.01)) / 100));
明阻力:=((LOW + (GJ - LOW)) + (CLOSE - LOW));
明支撑:=(LOW + (CLOSE - GJ));
今阻力:=REF(明阻力,1);
今支撑:=REF(明支撑,1);
DRAWTEXT((BARSTATUS = 2),HH,'---------------------------------- '),ALIGN2,LINETHICK0,colorFFFFFF;
DRAWTEXT(((BARSTATUS = 2) AND (CLOSE >= 今支撑)),HH*0.98,((' 今支撑=：' + NUMTOSTR(今支撑,2)) + ' ')),ALIGN2,LINETHICK103,colorFF00FF;
DRAWTEXT(((BARSTATUS = 2) AND (CLOSE < 今支撑)),HH*0.98,((' 今支撑=：' + NUMTOSTR(今支撑,2)) + ' ')),ALIGN2,LINETHICK103,colorFF;
DRAWTEXT(((BARSTATUS = 2) AND (CLOSE >= 今阻力)),HH*0.96,((' 今阻力=：' + NUMTOSTR(今阻力,2)) + ' ')),ALIGN2,LINETHICK118,colorFF;
DRAWTEXT(((BARSTATUS = 2) AND (CLOSE < 今阻力)),HH*0.96,((' 今阻力=：' + NUMTOSTR(今阻力,2)) + ' ')),ALIGN2,LINETHICK118,colorFF00;
DRAWTEXT((BARSTATUS = 2),HH*0.98,((' 明阻力=：' + NUMTOSTR(明阻力,2)) + ' ')),ALIGN2,LINETHICK118,colorFFFF;
DRAWTEXT((BARSTATUS = 2),HH*0.96,((' 明支撑=：' + NUMTOSTR(明支撑,2)) + ' ')),ALIGN2,LINETHICK103,colorFFFF;
DRAWTEXT((BARSTATUS = 2),HH*0.95,'---------------------------------- '),ALIGN2,LINETHICK93,colorFFFFFF;
DRAWTEXT((((BARSTATUS = 2) AND (VOL > REF(VOL,1))) AND (MA(VOL,5) > REF(MA(VOL,5),1))),HH*0.935,('今成交量大于昨,且有继续增' + ' ')),ALIGN2,LINETHICK83,color8285FF;
DRAWTEXT((((BARSTATUS = 2) AND (VOL < REF(VOL,1))) AND (MA(VOL,5) > REF(MA(VOL,5),1))),HH*0.935,('今成交量小于昨，但有放大迹象' + ' ')),ALIGN2,LINETHICK83,color8285FF;
DRAWTEXT((((BARSTATUS = 2) AND (VOL > REF(VOL,1))) AND (MA(VOL,5) < REF(MA(VOL,5),1))),HH*0.935,('今成交量大于昨, 但有缩小迹象' + ' ')),ALIGN2,LINETHICK83,color8285FF;
DRAWTEXT((((BARSTATUS = 2) AND (VOL < REF(VOL,1))) AND (MA(VOL,5) < REF(MA(VOL,5),1))),HH*0.935,('今成交量小于昨，且有缩小迹象' + ' ')),ALIGN2,LINETHICK83,color8285FF;
A1:=COST(95);
A2:=COST(5);
天眼通:=(((A1 - A2) * 100) / (A1 + A2));
DRAWICON((天眼通 > REF(天眼通,1)),(LOW * 0.98),8),ALIGN5;
//TR:=(((CLOSE * 2.5) / 100) + CLOSE);
//HD:=(CLOSE - ((CLOSE * 2.5) / 100));
EXPLAINEX(COST(50),'☆市场平均成本:',COST(50),2,0),colorFFFF00;
EXPLAINEX(COST(4),'☆主力平均成本:',COST(4),2,0),colorFFFF;
EXPLAINEX(COST(30),'☆控盘平均成本:',COST(30),2,0),colorFF;
EXPLAINEX(COST(75),'☆拉升平均成本:',COST(75),2,0),colorFF;
EXPLAINEX(COST(95),'☆顶部平均成本:',COST(95),2,0),colorFFFF;
EXPLAINEX(COST(0.05),'☆底部平均成本:',COST(0.05),2,0),colorFFFF;
EXPLAINEX(TR1,'★卖出价预测:',TR,2,0),colorFF00;
EXPLAINEX(HD,'★买入价预测:',HD,2,0),colorFF;
HSL:=((VOL / CAPITAL) * 100);
量能:=SUM(HSL,N1);
涨幅1:=((100 * (CLOSE - REF(CLOSE,N1))) / REF(CLOSE,N1));
EXPLAIN((HSL <= 2),'该股票少人关注，属于冷门股。');
EXPLAIN(((HSL > 2) AND (HSL < 3)),'该股票成交温和，属于备份股。');
EXPLAIN(((HSL > 3) AND (HSL < 5)),'该股票的交投越来越活跃，人们购买该股票的意愿高，属于热门股。');
EXPLAIN(((HSL > 5) AND (HSL < 8)),'该股票带量！');
EXPLAIN(((HSL > 8) AND (HSL < 15)),'该股票放量！');
EXPLAIN(((HSL > 15) AND (HSL < 25)),'该股票巨量！');
EXPLAIN((HSL >= 25),'该股票成交怪异！');
EXPLAIN(((量能 > (3 * N1)) AND (涨幅1 > (3 * N1))),'继续大涨！');
EXPLAIN(((量能 < (0.5 * N1)) AND (涨幅1 < N1)),'继续小涨！');
EXPLAIN((((量能 < (0.5 * N1)) AND (涨幅1 > (0 - N1))) AND (涨幅1 > 0)),'继续小跌！');
EXPLAIN(((量能 > (3 * N1)) AND (涨幅1 < (0 - (3 * N1)))),'继续大跌！');
EXPLAIN((((((量能 > (3 * N1)) AND (涨幅1 < N1)) OR ((量能 < (0.5 * N1)) AND (涨幅1 > (3 * N1)))) OR (((量能 > (3 * N1)) AND (涨幅1 > (0 - N1))) AND (涨幅1 < 0))) OR ((量能 < (0.5 * N1)) AND (涨幅1 < (0 - (3 * N1))))),'注意反转！');
换手％:=(((VOL / CAPITAL) * 100) * 1);
EXPLAIN(((换手％ <= 1) AND (1 = 1)),'★成交量：地量'),colorBBBBBB;
EXPLAIN(((换手％ <= 2) AND (换手％ > 1)),'★成交量：低靡'),colorBBBBBB;
EXPLAIN(((换手％ <= 3) AND (换手％ > 2)),'★成交量：温和'),colorBBBBBB;
EXPLAIN(((换手％ <= 5) AND (换手％ > 3)),'★★成交量：活跃'),colorBBBBBB;
EXPLAIN(((换手％ <= 8) AND (换手％ > 5)),'★★成交量：带量'),colorBBBBBB;
EXPLAIN(((换手％ <= 15) AND (换手％ > 8)),'★★成交量：放量'),colorBBBBBB;
EXPLAIN(((换手％ <= 25) AND (换手％ > 15)),'★★★成交量：巨量'),colorBBBBBB;
VAR1:=((LLV(LOW,5) = LLV(LOW,45)) AND (CLOSE >= (OPEN * 1.04)));
VAR2:=(CLOSE > ((REF(HIGH,1) + REF(LOW,1)) / 2));
买入提示:=(VAR1 AND VAR2);
DRAWTEXT(买入提示,(LOW - 0.28),'进\n场'),ALIGN0,colorFFFF;
VAR3:=REF(CLOSE,1);
VAR4:=((SMA(MAX((CLOSE - VAR3),0),6,1) / SMA(ABS((CLOSE - VAR3)),6,1)) * 100);
卖出提示:=CROSS(80,VAR4);
DRAWICON(买入提示,(LOW - 0.01),1);
DRAWICON(卖出提示,(HIGH + 0.1),2);
DRAWTEXT(卖出提示,(HIGH + 1.18),'清仓'),ALIGN0,colorFF;
X:=((((OPEN * 0.25) + (CLOSE * 0.45)) + (LOW * 0.15)) + (HIGH * 0.15));
Y:=((((MA(X,3) * 0.105) + (MA(X,5) * 0.215)) + (MA(X,10) * 0.315)) + (MA(X,15) * 0.365));
PARTLINE((Y > REF(Y,1)),Y),LINETHICK2,colorFFFF;
PARTLINE((Y < REF(Y,1)),Y),LINETHICK2,colorFF0000;
A:=BARSCOUNT(CLOSE);
AH:=HHV(HIGH,72);
AL:=LLV(LOW,72);
A0:=((AH - AL) / 21);
B1:=(LOW - A0);
DRAWTEXT((((A + 0) / 13) = FLOOR(((A + 0) / 13))),(B1 - (2.5 * A0)),'。时窗'),colorFFFFFF;
