[大智慧] 四度解盘和主图缺口公式 - 股票指标 - 股票之声

郎少发表于 2011-1-27 14:54

K线四度解盘和主图缺口公式源码无未来大家放心用.INPUT:M(10,3,250,3);均线:(MA(CLOSE,M) * 1),Colorred,linethick2;早晨之星:=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); 黄昏之星:=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); 长十字:=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)<REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN>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<REF(CLOSE,2); 射击之星:=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<MA(CLOSE,5); 锤头:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE<MA(CLOSE,5); 吊颈:=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 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)); 乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1); 曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND 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)<MAX(REF(CLOSE,1),REF(OPEN,1)) AND 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<CLOSE/OPEN+0.018; 三个白武士:=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)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98; 孕育线:=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)<REF(OPEN,1) AND CLOSE>OPEN; 出水芙蓉:=(OPEN<EMA(C,20) OR OPEN<EMA(C,40) OR OPEN<EMA(C,60)) AND (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(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); 下跌三部曲:= 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); 跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1); 三只乌鸦:=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); 光脚阴线:=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)<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); 倾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND O<REF(C,1) AND O>REF(O,1) AND C<REF(O,1); 解盘:=''【解盘】''+ IFs(倾盆大雨,''★倾盆大雨,见顶信号;'','''')+ IFs(大阴烛,''★大阴烛,后市向淡,发生逆转;'','''')+ IFs(好友反攻,''★好友反攻,底部反转;'','''')+ IFs(跳空缺口,''★跳空缺口,注意向上还是向下跳空;'','''')+ IFs(光脚阴线,''★光脚阴线,下跌信号;'','''')+ IFs(光头阳线,''★光头阳线,后市看涨;'','''')+ IFs(三只乌鸦,''★三只乌鸦,可能见顶回落;'','''')+ IFs(分离,''★分离,注意看涨分离和看跌分离;'','''')+ IFs(长下影,''★长下影,持续下跌后出现,有可能止跌回升;在升势末期出现,须多加留意;'','''')+ IFs(长上影,''★长上影,表明行情上档压力沉重,升势受阻;'','''')+ IFs(下跌三部曲,''★下跌三部曲,下跌信号;'','''')+ IFs(上升三部曲,''★上升三部曲,上涨信号;'','''')+ IFs(早晨之星,''★早晨之星,见底回升;'','''')+ IFs(黄昏之星,''★黄昏之星,见顶回落;'','''')+ IFs(十字星,''★十字星,有转向意味,注意股价位置在顶部还是底部;'','''')+ IFs(长十字,''★长十字,注意在顶部还是底部;'','''')+ IFs(垂死十字,''★垂死十字,下跌信号;'','''')+ IFs(早晨十字星,''★早晨十字星,上涨信号,见底回升;'','''')+ IFs(黄昏十字星,''★黄昏十字星,下跌信号,见顶回落;'','''')+ IFs(射击之星,''★射击之星,可能见顶回落,可靠性低;'','''')+ IFs(倒转锤头,''★倒转锤头,可能见底回升;'','''')+ IFs(锤头,''★锤头,可能见底回升,如有量配合,信号强烈;'','''')+ IFs(吊颈,''★吊颈,上升行情中见顶回落,顶部出现,见顶信号;'','''')+ IFs(平顶,''★平顶,温和的反转;'','''')+ IFs(穿头破脚,''★穿头破脚,顶部出现,见顶回落信号;'','''')+ IFs(乌云盖顶,''★乌云盖顶,见顶回落信号;'','''')+ IFs(曙光初现,''★曙光初现,后市见底回升;'','''')+ IFs(身怀六甲,''★身怀六甲,出现在底部,是见底回升信号;出现在顶部,是见顶回落信号;'','''')+ IFs(十字胎,''★十字胎;'','''')+ IFs(平底,''★平底,温和的反转;'','''')+ IFs(大阳烛,''★大阳烛,看涨;'','''')+ IFs(三个白武士,''★三个白武士,每日收盘价上移,表示可能见底回升;'','''')+ IFs(双飞乌鸦,''★双飞乌鸦,行情将见顶回落;'','''')+ IFs(孕育线,''★孕育线,注意股价位置;'','''')+ IFs(多方炮,''★多方炮,在底部出现有上涨意味,在中间出现有可能是上涨中继,顶部出现是复合见顶信号;'','''')+ IFs(出水芙蓉,''★出水芙蓉,见底回升;'',''''); DRAWTEXTABS(0,0,解盘); MA5:MA(C,5),COLORF00FF0; MA21:MA(C,21),COLORE66878; MA30:MA(C,30),COLORYELLOW; MA55:MA(CLOSE,55),LINETHICK1,ColorGREEN; 半年线:MA(C,120),COLOR399C7F,POINTDOT; 年线:MA(C,240),COLOR000999,POINTDOT;X1:=(C+L+H)/3; X2:=EMA(X1,6); X3:=EMA(X2,5); DRAWICON(CROSS(X2,X3),L*0.98,7); DRAWICON(CROSS(X3,X2),H*1.02,8); DRAWGBKLAST(C>0,STRIP(RGB(10,10,50),RGB(50,10,10),0));   均价:=(3*C+H+L+O)/6; VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+ 4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36; VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3; SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1; SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1; SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1; SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE<VAR1; SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);; SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2; XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2); XD2:=VAR1=VAR2 AND CLOSE>VAR1; SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)); 量能饱和度:=IF(SAT>1,1,SAT)*100; IF BARSTATUS=2 AND SZ1 THEN BEGIN DRAWTEXTABS(390,25,''调整结束短线介入''),LINETHICK2,COLORRED; END ELSE IF BARSTATUS=2 AND SZ2 THEN BEGIN DRAWTEXTABS(390,25,''上升通道走势良好''),LINETHICK2,COLORRED; END ELSE IF BARSTATUS=2 AND SZ3 THEN BEGIN DRAWTEXTABS(390,25,''股价偏离注意调整''),LINETHICK2,COLORRED; END ELSE IF BARSTATUS=2 AND SZ4 THEN BEGIN DRAWTEXTABS(390,25,''上升通道调整洗盘''),LINETHICK2,COLORGREEN; END ELSE IF BARSTATUS=2 AND SZ5 THEN BEGIN DRAWTEXTABS(390,25,''转向特征注意离场''),LINETHICK2,COLORGREEN; END ELSE IF BARSTATUS=2 AND SZ6 THEN BEGIN DRAWTEXTABS(390,25,''通道改变坚决离场''),LINETHICK2,COLORGREEN; END ELSE IF BARSTATUS=2 AND XD1 THEN BEGIN DRAWTEXTABS(390,25,''下跌通道只宜观望''),LINETHICK2,COLORGREEN; END ELSE IF BARSTATUS=2 AND XD2 THEN BEGIN DRAWTEXTABS(390,25,''短期底部准备进入''),LINETHICK2,COLORYELLOW; END; ;a:="LTFunc5@FORLT2"; s1:="LTFunc5@LT_S1"; hs:="LTFunc5@LT_HS"; ls:="LTFunc5@LT_LS"; p1:="LTFunc5@LT_P1"; upp:="LTFunc5@LT_UPP"; udd:="LTFunc5@LT_UDD"; {hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd}; 买入:p1=1 and ref(p1,1)=0,LineThick0,Precis0,ColorRed; d1:=ema(abs("ddx.ddx"),60); d2:=max("ddx.ddx"/d1+7.5,7.5); d3:=min("ddx.ddx"/d1,10); fb:=if(s1=0,hs,ls); tr0:=ifs(p1=1,''明日收盘价<''+numtostrn(udd,2)+'',出现S点\n'',''若明日收盘价>''+numtostrn(upp,2)+'',出现B点\n''); tr1:=ifs(s1=1,''明日收盘价<''+numtostrn(ls,2)+'',短线卖出机会'',''若明日收盘价>''+numtostrn(hs,2)+''短线买入机会''); tr2:=ifs(p1=1,ifs(cross(p1,0),''B点'',''持股''),ifs(cross(1,p1),''S点'',''持币'')); tr3:=ifs(s1=0,''向下,'',''向上,''); tr4:=''3.能量级别:''+numtostrn(d3,1)+''级''; bs:=''''+datestr(date)+''买卖点决策系统提示\n''+''1.BS点:''+tr2+'',''+tr0+''2.短线:''+tr3+tr1+''\n''+tr4; drawflagtext(1,fb,bs); STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff; STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack; STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff; STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff; STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff; STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff; STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff; STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff; STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,1),colorffff54; STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54; STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,1),colorffff54; drawbmp(p1=1 and ref(p1,1)=0,l,''buy1.bmp''),align1,valign0; drawbmp(p1=0 and ref(p1,1)=1,h,''sell1.bmp''),align1,valign2; drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,''bs.bmp''),align1,valign0; drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,''ss.bmp''),align1,valign2;闪:EMA(c+(h-l)*0.618,3),Color0099FF,LINETHICK0;进:EMA((o+h+l)/3,4),COLORCYAN,LINETHICK0; 预测明日买点:=EMA((o+h+l)/3,4)+((h+l)/2-ref((o+h+l)/3,3))/4; DRAWTEXTREL(800,950,''测今日低点：''+NUMTOSTRN(ref(预测明日买点,1),2 )),ColorGREEN; 预测明日卖点:=EMA(c+(h-l)*0.618,3)+(EMA(c+(h-l)*0.618,3)-进)*0.618; DRAWTEXTREL(580,950,''测今日高点：''+NUMTOSTRN(ref(预测明日卖点,1),2 )),Colorred ;gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100); I1:=0; flag1:=0; while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2) DO         IF REF(H,I1)<REF(L,I1+1) AND REF(L,I1+1)>HHV(H,I1+1)            THEN   BEGIN     FLAG1:=1;                             S1:=I1;                             I1:=BARSLAST(DISPSTATUS=1);                                          END         ELSE  I1:=I1+1;               STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),Color808080,ALIGN1,LAYER7;   DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(l,s1+1),2)+''-''+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORffffff,linethick2; I:=0; flag:=0; while I<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2) DO         IF REF(L,I)>REF(H,I+1) AND REF(H,I+1)<LLV(LOW,I+1)            THEN   BEGIN     FLAG:=1;                             S:=I;                             I:=BARSLAST(DISPSTATUS=1);                                          END         ELSE  I:=I+1;         &nbsp

页: [1]

股票之声's Archiver