源码
{公称名称: 私募机构建仓区域}
input:N(9,1,100),M1(3,1,100),M2(3,1,100);
EXPLAIN(CLOSE,'清风斜阳 QQ 82052669'),colorFFFF;
A01:=DYNAINFO(7);
A02:=MA(((AMOUNT / VOL) / 100),(VOL / CAPITAL));
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
A07:=(DMA(A06,(VOL / CAPITAL)) * 100);
A08:=IF((A02 > A01),(100 - A07),A07);
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
FILLRGN((A09 > 0),0,A09),colorFF00FF;
黄金线选股:IF(((CROSS(A09,0.009) AND (OPEN <> LOW)) AND (CLOSE <> LOW)),888,0),LINETHICK0,colorFF00FF;
私募机构黄金线:A09,LINETHICK2,colorFFFF;
DRAWTEXT(CROSS(A09,0.009),4,'-----注意'),colorFF00;
DRAWICON(CROSS(A09,0.009),4,1);
EXPLAINICON(CROSS(A09,0.009),4);
EXPLAIN(CROSS(A09,0.009),'请密切注意了！
彩虹在眼前！
有机构在开始吸筹了！
出现信号后首次带量上攻是最佳买点！'),colorFF;
EXPLAIN((CLOSE > 0),'用法说明如下'),colorFF00;
EXPLAIN((CLOSE > 0),'盘面出现股价正在不断下跌!
而私募机构黄金线却在不断上升！
并且出现红色区域！
说明有主流资金在打这只股票的主意!
意味着有主流资金在低位不断买入入！
需要积极关注，密切注意！
RSV:=(((CLOSE - LLV(LOW,N)) / (HHV(HIGH,N) - LLV(LOW,N))) * 100);
K:SMA(RSV,M1,1);
D:SMA(K,M2,1);
J: ((3 * K) - (2 * D));
PARTLINE((K > D),K),colorFF00FF;
PARTLINE((K < D),K),colorFFFF00;
PARTLINE((J > D),J),LINETHICK2,colorFF;
PARTLINE((J < D),J),LINETHICK2,colorFF00;
VAR5:=IF((CLOSE >= OPEN),((VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN)))) * (HIGH - LOW)),(0 - ((VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN)))) * ((HIGH - CLOSE) + (OPEN - LOW)))));
VAR6:=IF((CLOSE < OPEN),((VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN)))) * ((HIGH - OPEN) + (CLOSE - LOW))),(0 - ((VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN)))) * (HIGH - LOW))));
EXPLAINEX(1,'机构日增减仓% =',((VAR5 / CAPITAL) * 100),2,0),colorFF;
EXPLAINEX(1,'散户日增减仓% =',((VAR6 / CAPITAL) * 100),2,1),colorFFFF00;
EXPLAINEX(1,'机构短期仓位% =',SUM(((VAR5 / CAPITAL) * 100),N),2,0),colorFF;
EXPLAINEX(1,'散户短期仓位% =',SUM(((VAR6 / CAPITAL) * 100),N),2,0),colorFFFF00;
VAR1:=(EMA(CLOSE,34) - EMA(CLOSE,5));
VAR2:=EMA(VAR1,5);
趋势: ((0 - 3) * (VAR1 - VAR2)),COLORSTICK;
长期趋势: (EMA(VAR1,10) * (0 - 1));
趋势;
EXPLAIN((趋势 > 0),'※※当前综合评价※※
短期新趋势处于上升当中，
投资者持有为主，密切关注
'),colorFF;
EXPLAIN((趋势 < 0),'※※当前综合评价※※
短期新趋势处于下降当中，
投资者观望为主，多看少动
'),colorFFFF;
EXPLAIN(CROSS(趋势,0),'◎◎◎考虑买入
'),colorFF0000;
EXPLAIN(CROSS(0,趋势),'◎◎◎考虑卖出
'),colorFF;
VAR11:=MA((VOL / (HIGH - LOW)),4);
VAR33:=ABS((CLOSE - OPEN));
VAR44:=(VOL / (HIGH - LOW));
EXPLAIN(((VAR44 < VAR11) AND (VAR33 < MA(VAR33,4))),'资金暂时无入场意愿，
量能萎缩中
'),colorFFFF;
EXPLAIN(((VAR44 < VAR11) AND (VAR33 > MA(VAR33,4))),'场内资金运作行为，
谨慎操作
'),colorFFFF;
EXPLAIN(((VAR44 > VAR11) AND (VAR33 < MA(VAR33,4))),'多空双方激烈争夺中，
胜负难以预料
'),colorFF;
EXPLAIN(((VAR44 > VAR11) AND (VAR33 > MA(VAR33,4))),'场外资金操作意愿强烈，
密切跟踪它们的流向
'),colorFF;
TRA:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),14);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),14);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),14);
PDI:=((DMP * 100) / TRA);
MDI:=((DMM * 100) / TRA);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),6);
ADXR:=((ADX + REF(ADX,6)) / 2);
EXPLAIN(CROSS(PDI,MDI),'PDI线从下向上突破MDI线，
显示有新多头进场，为买进信号
'),color5500;
EXPLAIN(CROSS(MDI,PDI),'PDI线从上向下跌破MDI线，
显示有新空头进场，为卖出信号
'),colorFF;
EXPLAIN((ADX > REF(ADX,1)),'平均动向值持续高于前一日，
行情将维持原趋势
'),colorFF;
EXPLAIN(((ADX < REF(ADX,1)) AND (ADX < 20)),'平均动向值递减，降到20以下，且横向行进时，
市场气氛为盘整
'),colorFF0000;
EXPLAIN(((((ADX < REF(ADX,1)) AND (REF(ADX,1) < REF(ADX,2))) AND (REF(ADX,2) > REF(ADX,3))) AND (REF(ADX,3) > REF(ADX,4))),'平均动向值从上升倾向转为下降时，
表明行情即将反转
'),color10FF10;
