相關標簽:飛龍在天指標 、 益盟蛟龍出海公式 、 跟著主力進出選股公式 、 如何用公式選股 、 九天射日選股公式 、 一招短線選股法 、 股票中蛟龍出水 、 蛟龍出海k線 、 雙重底選股公式 、 尾盤選股技巧 、 大黑馬選股 、 通達信公式 、

?

蛟龍出海

原理解析：
A賦值:(3*收盤價+最低價+開盤價+最高價)/6 B賦值:0 BEGINB賦值:B+(20-I)*I日前的A END B賦值:B/210 輸出D1:B的3日簡單移動平均,COLORFF 輸出D2:B的5日簡單移動平均,COLORFF 輸出D3:B的21日簡單移動平均,COLORFFFF 輸出D4:B的34日簡單移動平均,COLORFFFF FILLRGN(D1>D2,D1,D2),COLORFF FILLRGN(D1<D2,D1,D2),COLORFFFF00 FILLRGN(D3>D4,D3,D4),COLORFF FILLRGN(D3>D4 AND (統計上次D3上穿D4距今天數日中滿足收盤價<D3和D4的較小值的天數)>=3 OR D3>D4 AND (統計上次D3上穿D4距今天數日中滿足收盤價>D3和D4的較小值的天數)=0,D3,D4),COLORFFFF00 FILLRGN(D3<D4,D3,D4),COLORFFFF00 VAR1賦值:如果收盤價>1日前的收盤價,返回99,否則返回0 VAR2賦值:如果收盤價/1日前的收盤價>1.04ANDHIGH/收盤價<1.01ANDVAR1>0,返回91,否則返回0 當滿足條件VAR2>89時,在最低價*0.99位置書寫文字,COLORFF VV2賦值:1日前的收盤價 VV3賦值:(收盤價-VV2的6日[1日權重]移動平均)/(收盤價-VV2的絕對值的6日[1日權重]移動平均)*100 當滿足條件1日前的VV3>81ANDVV3<80時,在最高價位置畫2號圖標 當滿足條件1日前的VV3>81ANDVV3<80時,在最高價位置書寫文字,COLORFFFF VF1賦值:收盤價的60日簡單移動平均-收盤價的5日簡單移動平均/3.2 當滿足條件如果收盤價<VF1ANDVOL/240>成交量(手)的5日簡單移動平均/240ANDCLOSE>=1日前的收盤價*1.08ANDCLOSE<收盤價的13日簡單移動平均*1.3,返回1,否則返回0時,在最低價位置書寫文字,COLORFF VARA賦值:(收盤價-29日前的開盤價)/29日前的開盤價*100 VARB賦值:0.667*1日前的VARA+0.333*VARA的5日指數移動平均 當滿足條件如果成交量(手)>=1.3*成交量(手)的5日簡單移動平均ANDCOUNT(VARA>=VARBANDVARA<-17,3)ANDREF(最低價,1)=120日內最低價的最低值,返回1,否則返回0時,在最低價位置書寫文字 VARR1賦值:(收盤價-1日前的收盤價和0的較大值的6日[1日權重]移動平均)/(收盤價-1日前的收盤價的絕對值的6日[1日權重]移動平均)*100 當滿足條件82上穿VARR1時,在最高價位置畫2號圖標 當滿足條件82上穿VARR1時,在最高價位置書寫文字,COLORFFFF VAR1賦值:(最高價+最低價+開盤價+2*收盤價)/5 VAR2賦值:1日前的VAR1 VAR3賦值:(VAR1-VAR2和0的較大值的10日[1日權重]移動平均)/(VAR1-VAR2的絕對值的10日[1日權重]移動平均)*100 HY3賦值:如果(統計5日中滿足VAR3<20的天數)>=1AND(統計10日中滿足VAR1=10日內VAR1的最低值的天數)>=1ANDCLOSE>=開盤價*1.038ANDVOL>成交量(手)的5日簡單移動平均*1.2,返回1,否則返回0 當滿足條件HY3時,在最低價位置書寫文字,COLORFFFFFF R1賦值:以收盤價*0.9計算的獲利盤比例*100*收盤價的3日簡單移動平均 資金比賦值:(如果R1>5,返回R1,否則返回0)/2 資金均量賦值:資金比的5日簡單移動平均 VAR01賦值:1日前的收盤價 VAR02賦值:(如果收盤價>VAR01,返回成交量(手),否則返回0的26日累和)/(如果收盤價<VAR01,返回成交量(手),否則返回0的26日累和)*100 股價比賦值:VAR02的5日指數移動平均 EXPLAIN(1=1,'【資金分析】'),COLORFFFF EXPLAIN(股價比<40,'該股處在底部區 '),COLORFFCC66 EXPLAIN(股價比>=40 AND 股價比<80,'該股處在低位區 '),COLORFFCC66 EXPLAIN(股價比>=80 AND 股價比<160,'該股處在盤整區 '),COLORFFCC66 EXPLAIN(股價比>=160,'該股處在獲利區 '),COLORFFCC66 EXPLAIN(資金比>10 AND 資金比>資金均量,'有增量資金進入 '),COLORFFCC66 EXPLAIN(資金比>10 AND 資金比<1日前的資金比 AND 資金比<資金均量,'存量資金減量 '),COLORFFCC66 EXPLAIN(1=1,'【股價預測】'),COLORFFFF VAR011賦值:(收盤價+最高價+最低價)/3 VAR012賦值:最高價-最低價 VAR014賦值:VAR011+VAR012 VAR015賦值:VAR011-VAR012 VAR016賦值:2*VAR011-最低價 VAR017賦值:2*VAR011-最高價 明日轉賦值:2日前的收盤價*2-5日前的收盤價

?

?來源:程序化99（ www.weiqiv.net.cn ）

源碼：

?

?

A:=(3*CLOSE+LOW+OPEN+HIGH)/6;
B:=0;
FOR I=0 TO 19 DO BEGIN
B:=B+(20-I)*REF(A,I);
END;
B:=B/210;
D1:MA(B,3),colorFF;
D2:MA(B,5),colorFF;
D3:MA(B,21),colorFFFF;
D4:MA(B,34),colorFFFF;
FILLRGN(D1>D2,D1,D2),colorFF;
FILLRGN(D1<D2,D1,D2),colorFFFF00;
FILLRGN(D3>D4,D3,D4),colorFF;
FILLRGN(D3>D4 AND (COUNT(CLOSE<MIN(D3,D4),BARSLAST(CROSS(D3,D4))))>=3 OR D3>D4 AND (COUNT(CLOSE>MIN(D3,D4),BARSLAST(CROSS(D3,D4))))=0,D3,D4),colorFFFF00;
FILLRGN(D3<D4,D3,D4),colorFFFF00;
VAR1:=IF(CLOSE>REF(CLOSE,1),99,0);
VAR2:=IF(CLOSE/REF(CLOSE,1)>1.04 AND HIGH/CLOSE<1.01 AND VAR1>0,91,0);
DRAWTEXT(VAR2>89,LOW*0.99,'短線'),colorFF;
VV2:=REF(CLOSE,1);
VV3:=(SMA(CLOSE-VV2,6,1))/(SMA(ABS(CLOSE-VV2),6,1))*100;
DRAWICON(REF(VV3,1)>81 AND VV3<80,HIGH,2);
DRAWTEXT(REF(VV3,1)>81 AND VV3<80,HIGH,'拜拜↓'),colorFFFF;
VF1:=MA(CLOSE,60)-MA(CLOSE,5)/3.2;
DRAWTEXT(IF(CLOSE<VF1 AND VOL/240>MA(VOL,5)/240 AND CLOSE>=REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW,'☆'),colorFF;
VARA:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
VARB:=EMA(0.667*REF(VARA,1)+0.333*VARA,5);
DRAWTEXT(IF(VOL>=1.3*MA(VOL,5) AND COUNT(VARA>=VARB AND VARA<-17,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'買入');
VARR1:=(SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1))/(SMA(ABS(CLOSE-REF(CLOSE,1)),6,1))*100;
DRAWICON(CROSS(82,VARR1),HIGH,2);
DRAWTEXT(CROSS(82,VARR1),HIGH,'▲風險↓'),colorFFFF;
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VAR2:=REF(VAR1,1);
VAR3:=(SMA(MAX(VAR1-VAR2,0),10,1))/(SMA(ABS(VAR1-VAR2),10,1))*100;
HY3:=IF((COUNT(VAR3<20,5))>=1 AND (COUNT(VAR1=LLV(VAR1,10),10))>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0);
DRAWTEXT(HY3,LOW,'▲買入'),colorFFFFFF;
R1:=MA(WINNER(CLOSE*0.9)*100*CLOSE,3);
資金比:=(IF(R1>5,R1,0))/2;
資金均量:=MA(資金比,5);
VAR01:=REF(CLOSE,1);
VAR02:=(SUM(IF(CLOSE>VAR01,VOL,0),26))/(SUM(IF(CLOSE<VAR01,VOL,0),26))*100;
股價比:=EMA(VAR02,5);
EXPLAIN(1=1,'【資金分析】'),colorFFFF;
EXPLAIN(股價比<40,'該股處在底部區;'),colorFFCC66;
EXPLAIN(股價比>=40 AND 股價比<80,'該股處在低位區;'),colorFFCC66;
EXPLAIN(股價比>=80 AND 股價比<160,'該股處在盤整區;'),colorFFCC66;
EXPLAIN(股價比>=160,'該股處在獲利區;'),colorFFCC66;
EXPLAIN(資金比>10 AND 資金比>資金均量,'有增量資金進入;'),colorFFCC66;
EXPLAIN(資金比>10 AND 資金比<REF(資金比,1) AND 資金比<資金均量,'存量資金減量;'),colorFFCC66;
EXPLAIN(1=1,'【股價預測】'),colorFFFF;
VAR011:=(CLOSE+HIGH+LOW)/3;
VAR012:=HIGH-LOW;
VAR014:=VAR011+VAR012;
VAR015:=VAR011-VAR012;
VAR016:=2*VAR011-LOW;
VAR017:=2*VAR011-HIGH;
明日轉:=REF(CLOSE,2)*2-REF(CLOSE,5);
EXPLAINEX(VOL>0,'【明天生命】=',明日轉,1,0),colorFFFFFF;EXPLAIN(綠燈,'［綠燈］＋實計交易量增加。＋MFI促進指數增加。'),colorFF;
EXPLAIN(衰退,'［衰退］－實計交易量減少。－MFI促進指數減少。'),colorFF00;
EXPLAIN(偽裝,'［偽裝］－實計交易量減少。＋MFI促進指數增加。'),color9900;
EXPLAIN(蟄伏,'［蟄伏］＋實計交易量增加。－MFI促進指數減少。'),colorFFFF;
EXPLAIN(賣盤大,'主動賣盤大于主動買盤60％以上;'),color9900;
EXPLAIN(買盤大,'主動買盤大于主動賣盤60％以上;'),colorFFFF;
EXPLAIN(賣量大,'☆賣出量大于買入量40％以上;'),color9900;
EXPLAIN(買量大,'☆買入量大于賣出量40％以上;'),colorFFFF;
EXPLAIN(1=1,'【控盤情況】'),colorFFFF;
EXPLAINEX(1=1,'當日主動買賣盤(手)=',VOL,2,0),colorFF;TJ2:=IF(大陰燭 AND TJTS,'大陰燭,后市向淡,發生逆轉‖','');
TJ3:=IF(好友反攻 AND TJTS,'好友反攻,跌勢已盡,要展開一段反彈行情‖','');
TJ4:=IF(跳空缺口 AND TJTS,'跳空缺口,突破長期盤整,向上跳空,上漲行情開始;向下跳空,下跌行情開始‖','');
TJ5:=IF(光腳陰線 AND TJTS,'光腳陰線,下跌信號‖','');
TJ6:=IF(光頭陽線 AND TJTS,'光頭陽線,多方積極上攻態勢,后市看漲‖','');
TJ7:=IF(三只烏鴉 AND TJTS,'三只烏鴉站枝頭,可能見頂回落‖','');
TJ8:=IF(分離 AND TJTS,'分離,注意看漲分離和看跌分離‖','');
TJ9:=IF(長下影 AND TJTS,'長下影,持續下跌后出現,有可能止跌回升;在升勢末期出現,須多加留意‖','');
TJ10:=IF(長上影 AND TJTS,'長上影,表明行情上檔壓力沉重,升勢受阻‖','');
TJ11:=IF(下跌三部曲 AND TJTS,'下跌三部曲,下跌信號‖','');
TJ12:=IF(上升三部曲 AND TJTS,'上升三部曲,上漲信號‖','');
TJ13:=IF(早晨之星 AND TJTS,'早晨之星,見底回升‖','');
TJ14:=IF(黃昏之星 AND TJTS,'黃昏之星,見頂回落‖','');
TJ15:=IF(十字星 AND TJTS,'十字星,重要的警告信號,原趨勢停頓或反轉‖','');
TJ16:=IF(長十字 AND TJTS,'長十字,重要的警告信號,原趨勢停頓或反轉‖','');
TJ17:=IF(垂死十字 AND TJTS,'垂死十字,下跌信號‖','');
TJ18:=IF(早晨十字星 AND TJTS,'早晨十字星,上漲信號,見底回升‖','');
TJ19:=IF(黃昏十字星 AND TJTS,'黃昏十字星,趨勢停頓或反轉,下跌信號,見頂回落‖','');
TJ20:=IF(射擊之星 AND TJTS,'射擊之星,出現在短期的上升趨勢,表明市場頂部就在眼前,可能見頂回落,可靠性低‖','');
TJ21:=IF(倒轉錘頭 AND TJTS,'倒轉錘頭構成一個看漲信號,可能見底回升‖','');
TJ22:=IF(錘頭 AND TJTS,'錘頭,可能見底回升,如有量配合,信號強烈‖','');
TJ23:=IF(吊頸 AND TJTS,'吊頸,上升行情中見頂回落,頂部出現,見頂信號‖','');
TJ24:=IF(平頂 AND TJTS,'平頂,意味行情摸高見頂,股價行將反轉。但反轉下跌力度較小‖','');
TJ25:=IF(穿頭破腳 AND TJTS,'穿頭破腳,頂部出現,見頂回落信號‖','');
TJ26:=IF(烏云蓋頂 AND TJTS,'烏云蓋頂,見頂回落信號‖','');
TJ27:=IF(曙光初現 AND TJTS,'曙光初現,行情將演化為V型反轉或止跌橫盤趨勢。后市見底回升‖','');
TJ28:=IF(身懷六甲 AND TJTS,'身懷六甲,出現在底部,是見底回升信號;出現在頂部,是見頂回落信號‖','');
TJ29:=IF(十字胎 AND TJTS,'十字胎‖','');
TJ30:=IF(平底 AND TJTS,'平底,行情探低見底,股價行將反轉上升,但力度較小‖','');
TJ31:=IF(大陽燭 AND TJTS,'大陽燭,在上升行情中出現,則意味著行情劇烈地向上攀升。在下跌行情中出現,則意味著行情劇烈地向上反彈‖','');
TJ32:=IF(三個白武士 AND TJTS,'三個白武士,每日收盤價上移,表示可能見底回升‖','');
TJ33:=IF(雙飛烏鴉 AND TJTS,'雙飛烏鴉,行情開始疲軟將見頂回落‖','');
TJ34:=IF(孕育線 AND TJTS,'孕育線,注意股價位置‖','');
TJ35:=IF(多方炮 AND TJTS,'多方炮,在底部出現有上漲可能,在中間出現有可能是上漲中繼,頂部出現是復合見頂信號‖','');
TJ36:=IF(出水芙蓉 AND TJTS,'出水芙蓉,陽線穿過20、40、60日季均線,上攻勢頭初現‖','');
TJ:='【Ｋ線形態】'+TJ1+TJ2+TJ3+TJ4+TJ5+TJ6+TJ7+TJ8+TJ9+TJ10+TJ11+TJ12+TJ13+TJ14+TJ15+TJ16+TJ17+TJ18+TJ19+TJ20+TJ21+TJ22+TJ23+TJ24+TJ25+TJ26+TJ27+TJ28+TJ29+TJ30+TJ31+TJ32+TJ33+TJ34+TJ35+TJ36;
DRAWTEXT(SYSPARAM(2)=BARSCOUNT(CLOSE),CLOSE,TJ),ALIGN5,colorFFFF00;

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?