阴阳乾坤－－由大机构阴阳乾坤改写的大智慧指标(源码 主图 帖图)

{阴阳乾坤}
A1:=1;
 MID:EMA(CLOSE,17)*A1,LINETHICK1,colorFFFFFF;
 UPPER:MID+2*STD(CLOSE,17),LINETHICK1;
 LOWER:MID-2*STD(CLOSE,17),LINETHICK1,colorFFFF80;
 UPPERO:MID+3*STD(CLOSE,17),LINETHICK1;
 LOWERO:MID-3*STD(CLOSE,17),LINETHICK1,colorFFFF80;
 DRAWICON(CROSS(LOW,LOWERO),LOW,1),ALIGN0;
 DRAWICON(CROSS(HIGH,UPPERO),HIGH,2),ALIGN2;
 DRAWTEXT(CROSS(LOWERO,LOW),LOW-0.01,''),ALIGN1;
 DRAWTEXT(CROSS(LOWERO,LOW),LOW-0.01,''),ALIGN1;
 LOCK:=IF(CURRENTDATE<1160101,1,0);
 {VAR1:MD(CLOSE,20);
 PARTLINE(VAR1>REF(VAR1,2),VAR1),LINETHICK2,colorFF00FF;}
 {PARTLINE(VAR1=REF(VAR1,2),VAR1),LINETHICK2,colorFF0000;}
 {PARTLINE(VAR1  M1:=MA(CLOSE,5);
 M2:=MA(CLOSE,10);
 M3:=MA(CLOSE,20);
 M4:=MA(CLOSE,60);
 M5:=MA(CLOSE,120);
 PM3:=MA(CLOSE,30);
 DRAWICON(M1>M2
 AND M2>M3 AND M2>M4 AND M2>M5 AND M2>PM3 AND REF(M1,1)  REF(M2,1)  REF(PM3,1)  {BB:=BARPOS=SYSPARAM(1);
 VARIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
 FM:=MONTH;
 FD:=DAY;
 WD:=WEEKDAY;
 P:=SYSPARAM(1);
 STR1:='今天是：'+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日,
 '+WDAY[WD[P]+1];
 EXPLAIN(BARPOS=P,STR1),colorFF;
 EXPLAIN(1,STKLABEL+STKNAME+' 所属板块:'+BLKNAME),colorFFFF80;
 EXPLAIN(CLOSE>0,'〓
K 线形态分析 〓 '),colorFFFFFF;}
 {大智慧K线自动解盘
:}
早晨之星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(OPEN,1)  ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND CLOSE/OPEN>1.05 AND
 CLOSE>REF(CLOSE,2);
黄昏之星:=REF(CLOSE,2)/REF(OPEN,2)>1.03 AND
 REF(OPEN,1)>REF(CLOSE,2) AND
 ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND CLOSE/OPEN<0.97 AND
 CLOSE 长十字:=CLOSE=OPEN AND HIGH/LOW
 >1.03;
垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND
 CLOSE<>HIGH;
早晨十字星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND
 REF(OPEN,1)1.05
 AND CLOSE>REF(CLOSE,2);
黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2)>1.05 AND
 REF(OPEN,1)>REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN<0.95
 AND CLOSE 射击之星:=MIN(OPEN,CLOSE)=LOW AND
 HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND
 CLOSE>MA(CLOSE,5);
倒转锤头:=MIN(OPEN,CLOSE)=LOW AND
 HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE 锤头:=HIGH =
 MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND
 CLOSE 吊颈:=HIGH = MAX(OPEN,CLOSE) AND
 HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND
 CLOSE>MA(CLOSE,5);
穿头破脚:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND
 CLOSE/OPEN<0.96 AND CLOSEREF(CLOSE,1)) OR
 (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND
 CLOSE>REF(OPEN,1) AND
 OPEN 乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND
 CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND
 CLOSE 曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND
 CLOSE/OPEN>1.03 AND OPEN  CLOSE>REF(CLOSE,1);
身怀六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1)>0.04
 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND
 MAX(CLOSE,OPEN)  MIN(CLOSE,OPEN)>MIN(REF(CLOSE,1),REF(OPEN,1));
十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1)>0.04
 AND CLOSE=OPEN AND CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE >
 MIN(REF(CLOSE,1),REF(OPEN,1));
平顶:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;
平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001
 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.001);
大阳烛:=CLOSE/OPEN>1.05
 AND HIGH/LOW 三个白武士:=REF(CLOSE,2)>REF(OPEN,2) AND
 REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN AND REF(CLOSE,1)>REF(CLOSE,2)
 AND CLOSE>REF(CLOSE,1);
双飞乌鸦:=REF(CLOSE,1)  CLOSE 孕育线:=REF(CLOSE,2)>REF(OPEN,2) AND
 (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100 AND
 REF(OPEN,1)>=REF(CLOSE,1) AND
 (REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND
 REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND
 (CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1)
 AND
 (MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
多方炮:=REF(CLOSE,2)>REF(OPEN,2)
 AND REF(CLOSE,1)OPEN;
出水芙蓉:=(OPEN  OR OPEN  (C>MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60)))) AND (V/MA(V,30)>1.2 AND
 C/REF(C,1)>1.049);
上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND
 REF(CLOSE,3)  REF(CLOSE,1)  REF(LOW,4)  REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
 REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND
 CLOSE>REF(CLOSE,4);
下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND
 REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND
 REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)  REF(LOW,4)  REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
 REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND
 CLOSE 跳空缺口:=HIGH  LOW>REF(HIGH,1);
三只乌鸦:=REF(CLOSE,2)  REF(CLOSE,1)  AND CLOSE 光脚阴线:=LOW=CLOSE AND
 HIGH<>LOW;
光头阳线:=HIGH=CLOSE AND
 HIGH<>LOW;
分离:=OPEN=REF(OPEN,1) AND
 (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
十字星:=CLOSE=OPEN
 AND HIGH<>LOW;
大阴烛:=OPEN/CLOSE > 1.05 AND HIGH/LOW <
 OPEN/CLOSE+0.018;
好友反攻:=(REF(CLOSE,1)OPEN AND
 ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002) OR (REF(CLOSE,1)>REF(OPEN,1) AND
 CLOSE  ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002);
倾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND
 OREF(O,1) AND C  if DISPSTATUS=2 then
 begin;
 var1000:='.';
 if 倾盆大雨 then var1000:=var1000+'★倾盆大雨,见顶信号;';
if
大阴烛 then var1000:=var1000+'★大阴烛,后市向淡,发生逆转;';
if 好友反攻 then
 var1000:=var1000+'★好友反攻,底部反转;';
if 跳空缺口 then
 var1000:=var1000+'★跳空缺口,注意向上还是向下跳空;';
if 光脚阴线 then
 var1000:=var1000+'★光脚阴线,下跌信号;';
IF 光头阳线 then
 var1000:=var1000+'★光头阳线,后市看涨;';
IF 三只乌鸦 then
 var1000:=var1000+'★三只乌鸦,可能见顶回落;';
IF 分离 then
 var1000:=var1000+'★分离,注意看涨分离和看跌分离;';
IF 长下影 then
 var1000:=var1000+'★长下影,持续下跌后出现,有可能止跌回升;在升势末期出现,须多加留意;';
IF 长上影 then
 var1000:=var1000+'★长上影,表明行情上档压力沉重,升势受阻;';
IF 下跌三部曲 then
 var1000:=var1000+'★下跌三部曲,下跌信号;';
IF 上升三部曲 then
 var1000:=var1000+'★上升三部曲,上涨信号;';
IF 早晨之星 then
 var1000:=var1000+'★早晨之星,见底回升;';
IF 黄昏之星 then
 var1000:=var1000+'★黄昏之星,见顶回落;';
IF 十字星 then
 var1000:=var1000+'★十字星,有转向意味,注意股价位置在顶部还是底部;';
IF 长十字 then
 var1000:=var1000+'★长十字,注意在顶部还是底部;';
IF 垂死十字 then
 var1000:=var1000+'★垂死十字,下跌信号;';
IF 早晨十字星 then
 var1000:=var1000+'★早晨十字星,上涨信号,见底回升;';
IF 黄昏十字星 then
 var1000:=var1000+'★黄昏十字星,下跌信号,见顶回落;';
IF 射击之星 then
 var1000:=var1000+'★射击之星,可能见顶回落,可靠性低;';
IF 倒转锤头 then
 var1000:=var1000+'★倒转锤头,可能见底回升;';
IF 锤头 then
 var1000:=var1000+'★锤头,可能见底回升,如有量配合,信号强烈;';
IF 吊颈 then
 var1000:=var1000+'★吊颈,上升行情中见顶回落,顶部出现,见顶信号;';
IF 平顶 then
 var1000:=var1000+'★平顶,温和的反转;';
IF 穿头破脚 then
 var1000:=var1000+'★穿头破脚,顶部出现,见顶回落信号;';
IF 乌云盖顶 then
 var1000:=var1000+'★乌云盖顶,见顶回落信号;';
IF 曙光初现 then
 var1000:=var1000+'★曙光初现,后市见底回升;';
IF 身怀六甲 then
 var1000:=var1000+'★身怀六甲,出现在底部,是见底回升信号;出现在顶部,是见顶回落信号;';
IF 十字胎 then
 var1000:=var1000+'★十字胎;';
IF 平底 then var1000:=var1000+'★平底,温和的反转;';
IF 大阳烛
then var1000:=var1000+'★大阳烛,看涨;';
IF 三个白武士 then
 var1000:=var1000+'★三个白武士,每日收盘价上移,表示可能见底回升;';
IF 双飞乌鸦 then
 var1000:=var1000+'★双飞乌鸦,行情将见顶回落;';
IF 孕育线 then
 var1000:=var1000+'★孕育线,注意股价位置;';
IF 多方炮 then
 var1000:=var1000+'★多方炮,在底部出现有上涨意味,在中间出现有可能是上涨中继,顶部出现是复合见顶信号;';
IF 出水芙蓉 then
 var1000:=var1000+'★出水芙蓉,见底回升;';
end;
 TIPTEXT(DISPSTATUS=2,0,var1000);
 A001:=CLOSE-REF(CLOSE,6);
 A002:=MA(A001,6);
 A003:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 A004:=SMA(A003,3,1);
 A005:=SMA(A004,3,1);
 A006:=EMA(3*A004-2*A005,2);
 A007:=(HIGH+LOW+CLOSE)/3;
 A008:=(A007-MA(A007,14))/(0.015*AVEDEV(A007,14))/2;
 A009:=(A008+EMA((-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))+100)/100,3)*200-100)/2;
 A010:=A009-REF(A009,14);
 A011:=A009-REF(A009,26);
 A012:=(A009+A010+A011)/3;
 KKM:=EMA(A012,4);
 A013:=HHV(HIGH,34);
 A014:=(2*CLOSE+HIGH+LOW)/4;
 A015:=LLV(LOW,34);
 A016:=EMA((A014-A015)/(A013-A015)*100,13);
 A017:=EMA(0.667*REF(A016,1)+0.333*A016,2);
 KKMD:=A016-A017>1
 AND A016<30 AND A017<30;
 KKML:=A016-A017<0 AND A016>80 AND
 A017>80 AND
 REF(A016-A017,1)>0;
 KKMQ:=COUNT(A016-A017>0,2)=2;
 KKAL:=A016-A017<0;
 {生命线:=MA(CLOSE,20);
取舍线:=MA(CLOSE,10);
 EXPLAINICON(KKMD,4);
 EXPLAINICON(KKAL,1);
 EXPLAIN(KKMD,'最佳买入时机');
EXPLAIN(KKML,'最佳卖出时机');
EXPLAIN(KKMQ,'持仓区');
EXPLAIN(KKAL,'空仓区');
EXPLAIN(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),'该股强于大盘');
EXPLAIN(CLOSE/REF(CLOSE,1),'该股强于大盘');
EXPLAIN(CROSS(MA(CLOSE,5),MA(CLOSE,10)),'可出手');
EXPLAIN(CROSS(MA(CLOSE,10),MA(CLOSE,5)),'收手了');
EXPLAIN(KKM>EMA(KKM,4)
 AND KKM>REF(KKM,1),'快速介入');
EXPLAIN(KKM>EMA(KKM,4) AND
 KKM EXPLAIN(KKM  KKM>REF(KKM,1),'有防御能力');
EXPLAIN(KKM  KKM R:=REF(CLOSE,1)/CLOSE;
 QY:=VOL;
 QTT:=QY*R;
 TL:=FILTER(VOL=HHV(VOL,20),20);
 DL:=FILTER(VOL=LLV(VOL,20),20);
 XD:=FILTER(LOW=LLV(LOW,20),20);
 XG:=FILTER(HIGH=HHV(HIGH,20),20);
 AQ标准攻击量:=QTT*1.15;
 HQ危险成交量:=QTT*1.5;
 LQ防守量:=QTT*0.75;
 AHQ平均高量:=(AQ标准攻击量+HQ危险成交量)/2;
 ALQ平均低量:=(AQ标准攻击量+LQ防守量)/2;
市场实际量能:=QY;
 EXPLAINEX(HQ危险成交量,'解盘：次日攻击危险量=',HQ危险成交量,0,0),colorFF;
 EXPLAINEX(AQ标准攻击量,'解盘：次日攻击标准量=',AQ标准攻击量,0,0),coloryellow;
 EXPLAINEX(LQ防守量,'解盘：次日攻击防守量=',LQ防守量,0,0),colorFF00;
 EXPLAINEX(TL,'解盘：今日为20日最大量=',VOL,0,0),colorFF;
 EXPLAINEX(DL,'解盘：今日为20日最小量=',VOL,0,0),colorFF00;
 EXPLAINEX(XD,'解盘：今日为20日最低价格=',LOW,2,0),colorFF00;
 EXPLAINEX(XG,'解盘：今日为20日最高价格=',LOW,2,0),colorFF;
 PT:=REF(HIGH,1)-REF(LOW,1);
 CDP:=(HIGH+LOW+2*CLOSE)/4;
 AH:=CDP+PT;
 AL:=CDP-PT;
 NH敏感阻力:=2*CDP-LOW;
 NL:=2*CDP-HIGH;
 EXPLAINEX(AH,'解盘：次日重大阻力价位=',AH,2,0),colorFF00;
 EXPLAINEX(NH敏感阻力,'解盘：次日敏感阻力区域=',NH敏感阻力,2,0),colorFFFF;
 EXPLAINEX(CDP,'解盘：次日关键均衡价位=',CDP,2,0),colorFFFFFF;
 EXPLAINEX(NL,'解盘：次日重要支撑区域=',NL,2,0),colorFFFF80;
 EXPLAINEX(AL,'解盘：次日关键支撑价位=',AL,2,0),colorFF;
 EXPLAINICON(CLOSE>0,'szczxh'),ALIGN1;
 VAR0:=REF(CLOSE,1)-REF(OPEN,1);
 VAR1:=REF(OPEN,1);
 VAR2:=CLOSE>=VAR1*1.05;
 VAR3:=CLOSE>=2*VAR0/3*VAR1
 AND
 CLOSE<=VAR1*1.05;
 VAR4:=CLOSE  EXPLAINEX(VAR2,'解盘：个股目前态势：超级强势。涨幅
%f
 %',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00FF;
 EXPLAINEX(VAR3,'解盘：个股目前态势：强势。涨幅
%f
 %',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF;
 EXPLAINEX(VAR4,'解盘：个股目前态势：弱势。涨幅
%f
 %',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00;
 B1:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100<-12;
 B3:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100>15;
 B:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100;
 EXPLAINEX(B<-18
 AND
 CLOSE/OPEN>1.06,'解盘：抢反弹!负乖离偏大,小单进场。此刻30日乖离率=',B,2,1),colorFF;
 EXPLAINEX(B>40
 AND
 CLOSE/REF(CLOSE,1)<1.08,'解盘：高抛!正乖离偏大,按照短线技术系统高抛:',B,2,0),colorFF00;
 EXPLAINEX(NOT(B<-18
 AND CLOSE/OPEN>1.06) OR NOT(B>40 AND
 CLOSE/REF(CLOSE,1)<1.08),'解盘：此刻30日乖离率=',B,2,0),colorFFFF;}
 {阳线上下影}
STICKLINE(CLOSE>=OPEN,C,H,0,0),
 colorRED;
 STICKLINE(CLOSE>=OPEN,O,L,0,0),
 colorRED;
 {阴线上下影}
STICKLINE(CLOSE  Color00EC00;
 STICKLINE(CLOSE  Color00EC00;
 {阳K线}
STICKLINE(CLOSE>=OPEN,C,O,8,0),Color0000A1;
 STICKLINE(CLOSE>=OPEN,C,O,6,0),Color0000B5;
 STICKLINE(CLOSE>=OPEN,C,O,5,0),Color0000C5;
 STICKLINE(CLOSE>=OPEN,C,O,4,0),Color0000D4;
 STICKLINE(CLOSE>=OPEN,C,O,2.5,0),Color0000EC;
 STICKLINE(CLOSE>=OPEN,C,O,1,0),Color0000FF;
 {阴K线}
STICKLINE(CLOSE  STICKLINE(CLOSE  STICKLINE(CLOSE  STICKLINE(CLOSE  STICKLINE(CLOSE  LC:=REF(CLOSE,1);
 RSI:=((SMA(MAX(CLOSE
 - LC,0),6,1))/(SMA(ABS(CLOSE -
 LC),6,1)))*(100);
 DRAWTEXT(CROSS(82,RSI),HIGH,' 顶'),COlorffcc66;
 DRAWTEXT(CROSS(63,RSI),HIGH,' 卖'),COlorffcc66;
 Y1:=REF(EMA(DMA((((HIGH + LOW) + (CLOSE * 2)) /
 4.15),0.9),3),1);
 DRAWtext(CROSS(CLOSE,Y1),LOW,'买'),Coloryellow;