【原】大智慧K线观察电子股评主图指标公式源码编程思路破译

编程思路破译

N:=9;

M1:=3;

M2:=3;

MA5:MA(C,5),PRECIS2;

MA10:MA(C,10),PRECIS2;

MA20:=MA(C,20);

MA40:MA(C,40),PRECIS2;

MA60:MA(C,60),PRECIS2;

MA125:MA(C,125),PRECIS2;

MA250:MA(C,250),PRECIS2;

BIAS:=(C-MA20)/MA20*100;

SHOPEN:=OPEN;

SHHIGH:=HIGH;

SHLOW:=LOW;

SHCLOSE:=CLOSE;

SHAMOUNT:=AMOUNT;

SHVOL:=VOL;

J12:=(HIGH - ((HIGH - LOW) / 3));

J23:=(LOW + ((HIGH - LOW) / 3));

T1:=(((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1);

T2:=((((CLOSE > J23) AND (CLOSE < J12)) AND (OPEN > J23)) AND (OPEN < J12));

T3:=((CLOSE >= J12) AND (OPEN <= J23));

T4:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE > J12));

T5:=(((OPEN <= J23) AND (CLOSE <= J12)) AND (CLOSE >= J23));

T6:=((CLOSE <= J23) AND (OPEN >= J12));

T7:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE < J23));

T8:=(((OPEN >= J12) AND (CLOSE <= J12)) AND (CLOSE >= J23));

T9:=(((SHAMOUNT / SHVOL) / 100) > REF(HIGH,1));

T10:=(((SHAMOUNT / SHVOL) / 100) < REF(LOW,1));

IF DISPSTATUS=2 THEN BEGIN;

VAR1000:='.';

IF T1>0 THEN VAR1000:=VAR1000+'☆极端行情,在未来的几日内有85%的机会变更方向。';

IF T2>0 THEN VAR1000:=VAR1000+'☆中性行情,多空双方都未能取得当日行情主动性的控制权';

IF T3>0 THEN VAR1000:=VAR1000+'☆爬升行情,整个交易期间都有买方主导。';

IF T4>0 THEN VAR1000:=VAR1000+'☆爬升行情,信息较少,但收盘期间是买方主导,其他未知。';

IF T5>0 THEN VAR1000:=VAR1000+'☆爬升行情,买方把收盘价拉升到开盘价之上,卖方却也主导一段行情,但不知道是谁主导最后的行情。';

IF T6>0 THEN VAR1000:=VAR1000+'☆漂流行情,整个交易期间都有卖方主导。';

IF T7>0 THEN VAR1000:=VAR1000+'☆漂流行情,信息最少,但收盘期间是卖方主导,其他未知。';

IF T8>0 THEN VAR1000:=VAR1000+'☆漂流行情,卖方把收盘价压至到开盘价之下,买方却也主导一段行情,但不知道是谁主导最后的行情。';

IF T9>0 THEN VAR1000:=VAR1000+'☆上涨趋势。';

IF T10>0 THEN VAR1000:=VAR1000+'☆下跌趋势。';

IF MA20>=MA60 AND CROSS(MA40,MA60) THEN VAR1000:=VAR1000+'☆形成季托，待股价回落到20天均线或40天均线时介入，20天均价为:'+MA20+' 。';

IF BIAS>9.5 AND (C-REF(C,1))/REF(C,1)*100<9.8 THEN VAR1000:=VAR1000+'☆短线涨幅过大，有整理要求。';

IF MA20>=MA60 AND H>=MA20 AND L<=MIN(MA40,MA60) AND C>O AND C>REF(C,1) THEN VAR1000:=VAR1000+'☆芙蓉出水，趋势向好。';

IF BIAS<-18 AND (C-REF(C,1))/REF(C,1)*100>-9.8 THEN VAR1000:=VAR1000+'☆股价严重超跌，有爆发要求。';

IF BIAS<-7 AND ALL(CLOSE<OPEN,5) THEN VAR1000:=VAR1000+'☆连收五阴，超跌有反弹要求。';

IF ABS(HIGH-REF(HIGH,1))/HIGH<0.001 THEN VAR1000:=VAR1000+'☆平顶，-该高点有一定阻力。';

IF ABS(LOW-REF(LOW,1))/LOW<0.001 AND ABS(REF(LOW,1)-REF(LOW,2))/REF(LOW,1)<=0.00 THEN VAR1000:=VAR1000+'☆平底，该低点有一定支撑。';

IF CLOSE=OPEN AND HIGH<>CLOSE AND LOW<>CLOSE AND HIGH/LOW > 1.03 THEN VAR1000:=VAR1000+'☆ 长十字，多空激争 前途未明。';

IF OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 THEN VAR1000:=VAR1000+'☆ 大阴烛，今日空方有绝对优势。';

IF REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98 THEN VAR1000:=VAR1000+'☆双飞乌鸦，多头力竭，行情走软。';

IF (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 THEN VAR1000:=VAR1000+'☆长下影，下档支撑强或空方试探进攻。';

IF (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 THEN VAR1000:=VAR1000+'☆长上影，上档阻力大或多方试探进攻。';

IF CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH THEN VAR1000:=VAR1000+'☆垂死十字，在顶部时重要 表强力多头开始疲软。';

IF HIGH=CLOSE AND HIGH<>LOW THEN VAR1000:=VAR1000+'☆光头阳线，今日尾盘多方气盛，行情可能延续到明天。';

IF (HIGH<REF(LOW,1) OR LOW>REF(HIGH,1)) THEN VAR1000:=VAR1000+'☆跳空缺口，当日未补，有与跳空同向进行，上涨欲望强烈，三日内为回补观察期。';

IF LOW=CLOSE AND HIGH<>LOW THEN VAR1000:=VAR1000+'☆赤脚阴线，尾盘空方胜。 注意股价下跌延续至次日。';

IF CLOSE=OPEN AND HIGH<>CLOSE AND LOW<>CLOSE AND HIGH <>CLOSE THEN VAR1000:=VAR1000+'☆十字星，警告信号。原趋势停顿或反转，依上下影线长度判后市。';

IF CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 THEN VAR1000:=VAR1000+'☆大阳烛，上升行情中意味行情剧烈向上攀升；下跌行情中意味行情剧烈向上反弹。';

IF REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1)AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2) THEN

VAR1000:=VAR1000+'☆早晨十字，如同晨星。 从看空平衡到看涨转强；左右跳空曰弃婴 。';

IF REF(CLOSE,4)/REF(OPEN,4)>1.03 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,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND 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) THEN VAR1000:=VAR1000+'☆上升三部曲，空方卖压被吸纳。 趋势易顺势走涨。';

IF (REF(HIGH,2) -REF(O,2))/REF(HIGH,2)<=0.0003 AND (C-LOW)/O<=0.0003 AND REF(C,2)<REF(O,2) AND REF(C,2)>REF(O,1) AND REF(C,1)>O AND REF(C,1)<REF(O,1) AND REF(HIGH,1)-REF(O,1)>0 AND REF(LOW,1)-REF(C,1)<0 AND HIGH-O>0 AND REF(C,2)-REF(LOW,2)>0 THEN VAR1000:=VAR1000+'☆三胎乌鸦，多头走势被扭转。黑K价愈深量愈大，跳空愈大，反转信号愈强。';

IF ((REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002) OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)) THEN

VAR1000:=VAR1000+'☆友好反攻，阴(阳)线结合，极线多方跳低(高)后反弹有企稳迹象 。';

IF CLOSE<>OPEN AND MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) THEN

VAR1000:=VAR1000+'☆射击之星，如伴大量上遇阻力，有短期见顶可能，股价转疲。';

IF REF(CLOSE,1)-REF(OPEN,1)<0 AND CLOSE-OPEN>0 AND OPEN-REF(CLOSE,1)<0 AND CLOSE<REF(OPEN,1) AND CLOSE>REF(CLOSE,1) AND CLOSE>(REF(CLOSE,1)+REF(OPEN,1))/2 THEN

VAR1000:=VAR1000+'☆贯穿线，多头力道的反扑或是空单回补力道。长黑之后开低收在前天1/2之上，为多头反转信号。';

IF ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1)) THEN

VAR1000:=VAR1000+'☆身怀六甲，阴(阳)怀阳(阴)，怪异的走势，显示该股行情可能转向。 若量由大转缩，下跌趋势更明确。';

IF (REF(C,1)-REF(O,1)<0 AND C-O>0 AND C>REF(O,1) AND O<REF(C,1)) THEN

VAR1000:=VAR1000+'☆多头阳线吞噬，红包黑。反转趋势需量能配合量。 ';

IF ((REF(C,2)-REF(O,2)>0 AND (ABS(REF(C,2)-REF(O,2)))/(ABS(REF(C,3)-REF(O,3)))>2.4 AND ABS(C-O)>3 AND ABS(REF(C,2)-REF(O,2))>(ABS(REF(C,1)-REF(O,1))) AND REF(C,1)-REF(O,1)>0 AND C-O<0 AND REF(O,1) >REF(C,2) AND O<REF(O,1) AND C<REF(C,2) AND C>REF(O,2)) OR (REF(C,2)-REF(O,2)>0 AND (ABS(REF(C,2)-REF(O,2)))/(ABS(REF(C,3)-REF(O,3)))>2.4 AND ABS(C-O)>3 AND (ABS(REF(C,2)-REF(O,2)))>(ABS(REF(C,1)-REF(O,1))) AND REF(C,1)-REF(O,1)<0 AND C-O<0 AND REF(C,1) >REF(C,2) AND C<REF(C,2) AND C>REF(O,2) AND O<REF(C,1))) THEN

VAR1000:=VAR1000+'☆夜星，从看多平衡到看空转弱，转空。 ';

IF 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)) THEN

VAR1000:=VAR1000+'☆十字胎，似身怀六甲，转向可能性更大，量缩观望为宜 。';

IF REF(C,1)<REF(O,1) AND C-O>0 AND C>REF(H,1) AND O<REF(L,1) AND REF(O,1)>REF(MAX(O,C),2) AND REF(C,1)>REF(MIN(O,C),2) AND REF(MAX(O,C),2)>REF(MAX(O,C),3) THEN

VAR1000:=VAR1000+'☆ 双人殉情 ，在上升趋势中最后之空头吞噬，也就是所谓的不见长红不回头。 ';

IF (REF(C,1)-REF(O,1)>0 AND C-O<0 AND C<REF(O,1) AND O>REF(C,1)) THEN

VAR1000:=VAR1000+'☆阴线吞噬，黑包红，向空反转。 ';

IF REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1) THEN VAR1000:=VAR1000+'☆曙光，与乌云盖顶相反，行情将演化为V型反转或止跌横盘趋势 。';

IF (REF(C,1)-REF(O,1)<0 AND C-O>0 AND C<REF(O,1) AND O>REF(C,1)) THEN

VAR1000:=VAR1000+'☆多头孕育线，阴育阳。多头反转可能。';

IF (REF(C,1)-REF(O,1)>0 AND (ABS(REF(C,1)-REF(O,1)))/(ABS(REF(C,2)-REF(O,2)))>2.4 AND C-O<0 AND C>REF(O,1) AND REF(C,1)-O>2) THEN

VAR1000:=VAR1000+'☆空头孕育线，阳育阴。看空 。';

IF (REF(C,1)-REF(O,1)<0 AND C-O<0 AND C>REF(C,1) AND O<REF(O,1) AND O-C <6) THEN

VAR1000:=VAR1000+'☆空头孕育线，阴育阴。看空。';

IF 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) THEN

VAR1000:=VAR1000+'☆三只乌鸦，强烈转空趋势。三黑K价越深量越大越易下跌。';

IF 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,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND 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<REF(CLOSE,4) THEN

VAR1000:=VAR1000+'☆下跌三部曲，多方弱势不堪一击，趋势易顺势走跌。';

IF REF(CLOSE,4)/REF(OPEN,4)>1.02 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND REF(CLOSE,4)<=REF(CLOSE,3) AND REF(HIGH,2)<REF(HIGH,3) AND REF(LOW,2)>=REF(OPEN,4) AND REF(HIGH,1)<REF(CLOSE,4) AND REF(LOW,1)>REF(OPEN,4) AND CLOSE/OPEN>1.01 AND OPEN>=REF(OPEN,1) AND CLOSE>=REF(HIGH,3) THEN

VAR1000:=VAR1000+'☆连续型态之执垫，比上升三法更具多头意义。';

IF REF(O,1)/REF(C,1) > 1.05 AND REF(H,1)/REF(L,1) < REF(O,1)/REF(C,1)+0.018 AND C>O AND O<REF(L,1) AND C=REF(L,1) THEN

VAR1000:=VAR1000+'☆颈上线，下降趋势。若第二天大量，维持原趋势可能星大增。';

IF (REF(C,1)-REF(O,1)>0 AND (ABS(REF(C,1)-REF(O,1)))/(ABS(REF(C,2)-REF(O,2)))>2.5 AND C-O<0 AND C>REF(O,1) AND C<(REF(CLOSE,1)+REF(OPEN,1))/2 AND O>REF(C,1)) THEN

VAR1000:=VAR1000+'☆乌云罩顶，上涨遇重大阻力。空头聚力。';

IF (REF(C,1)-REF(O,1)>0 AND C-O<0 AND C<REF(O,1) AND O>REF(C,1)) THEN

VAR1000:=VAR1000+'☆最后吞噬，在下降趋势中为一黑一红组合；多头吞噬，在上升趋势中为一红一黑组合，空头吞噬。';

IF REF(OPEN,1)<>REF(CLOSE,1) AND 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) THEN

VAR1000:=VAR1000+'☆晨星，多方势盛 变盘信号';

IF MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5) THEN VAR1000:=VAR1000+'☆ 倒转槌头 -高位抛压 低位多空争执';

IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) THEN VAR1000:=VAR1000+'☆槌头，下影线有多头意义。在下降趋势之后看涨。注意反弹卖压 。';

IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) THEN VAR1000:=VAR1000+'☆吊颈线，高档看跌。';

IF ((REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(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))) THEN

VAR1000:=VAR1000+'☆ 穿头破脚 -若第一根K为阴(阳) 表强劲上涨(下跌)力量。';

IF REF(OPEN,1)<>REF(CLOSE,1) AND 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<REF(CLOSE,2) THEN

VAR1000:=VAR1000+'☆黄昏之星，空方势盛。反转信号，跳空成弃婴。';

IF 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 THEN VAR1000:=VAR1000+'☆二阳夹一阴，必须从后续的走势来研判。';

IF OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0 THEN

VAR1000:=VAR1000+'☆ 分离 -两日开盘相同 一阴一阳 变盘前彻底整理。';

IF ((O>C AND OPEN>MA(C,5) AND OPEN>MA(C,10) AND O>MA(C,20) AND CLOSE<MA(C,5) AND CLOSE<MA(C,10) AND CLOSE<MA(C,20)) OR (O<C AND OPEN<MA(C,5) AND OPEN<MA(C,10) AND O<MA(C,20) AND CLOSE>MA(C,5) AND CLOSE>MA(C,10) AND CLOSE>MA(C,20))) THEN VAR1000:=VAR1000+'☆断头铡刀(出水芙蓉) -一根大阴(阳)线切断了三根均线 如果改变了其后均线的排列为空头(多头)排列 后势看空(多) 。';

END;

TIPTEXT(DISPSTATUS=2,0,VAR1000);

{可调节KDJ：压力支撑线参数 N=1 100 9,M1=1 100 3,M2=1 100 3}

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;

RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;

K12:=SMA(RSV12,3,1);

D12:=SMA(K12,3,1);

J12:=3*K12-2*D12;

RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;

K24:=SMA(RSV24,3,1);

D24:=SMA(K24,3,1);

J24:=3*K24-2*D24;

压力位:IF(CROSS(J24,J),H,REF(H,BARSLAST(CROSS(J24,J)))),PRECIS2,COLORYELLOW,LINETHICK1,POINTDOT;

支撑位:IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24)))),PRECIS2,COLOR77AAFF,LINETHICK1,POINTDOT;