您現在的位置：程序化交易>> 股票公式>> 大智慧>> 大智慧公式>>正文內容

大智慧2“羸富解盤”公式公式指標源碼[大智慧公式]

作者：大智慧來源：cxh99.com 發布時間：2012年07月14日點擊數：　【收藏到本網的會員中心】

相關標簽: 大智慧指標公式源碼、大智慧選股公式源碼、大智慧公式源碼、大智慧漲速公式源碼、大智慧超贏公式源碼、均線解盤公式源碼、大智慧波段王源碼指標、大智慧分時指標源碼、 cpmm指標源碼大智慧、

大智慧2“羸富解盤”主圖，不含未來函數。

源碼：
input. n(5,0,999,1),n1(10,0,999,1),n2(20,0,999,1),n3(30,0,999,1); A74:=MA(CLOSE,20); A75:=(CLOSE > MA(CLOSE,5)); A76:=(MA(CLOSE,5) > MA(CLOSE,10)); A77:=(CLOSE > MA(CLOSE,10)); A78:=(MA(CLOSE,5) > MA(CLOSE,20)); A79:=(CLOSE > MA(CLOSE,20)); A710:=REF(A74,1); A711:=(A74 > A710); AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10))) + IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10))); DSLX:=(CLOSE / INDEXC); DSLX1:=MA(DSLX,5); DSLX2:=MA(DSLX,10); V1:=MA(VOL,5); V2:=MA(VOL,10);T := BARSLAST(DISPSTATUS=1)+1; T := BARSLAST(DISPSTATUS=1)+1; HHg := HHV(H, T); ddg := LLV(L, T); {Hk := LL-HH; G12 := LL-HK*1.55; } IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(12,70,' 該股的量能，有明顯走強跡象，可以考慮中線進場參與，倉位在2/3左右。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(12,70,' 該股雖然走勢趨強，但量能還顯不足，可以考慮短線進場，倉位在1/2左右。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(12,70,' 該股量價配合良好，但相對其它股票并沒有明顯走強，可以考慮短線進場，倉位1/2左右。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(12,70,' 該股形態尚可，但量能不足，股票也未完全走強，可以短線參與，倉位1/3左右。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(12,70,' 該股形態變壞，但走勢相對其它股票尚可，重倉者減持大半，清倉者可以觀望。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(12,70,' 該股隨大盤一起下跌，程明顯縮量走勢，考慮到大盤風險，減持或清倉。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(12,70,' 該股放量下跌，走勢明顯偏弱，離場觀望。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(12,70,'該股縮量下跌，走勢偏弱，離場觀望。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(12,70,' 該股形態良好，強勢明顯，量能充足，可以繼續持有。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(12,70,' 該股上行趨勢不變，強勢依然，但量能開始轉弱，注意風險。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(12,70,'該股仍然具備上漲潛力，但股性偏弱，可考慮減倉。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(12,70,'該股走勢趨弱，量能不足，減持大部分籌碼。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(12,70,'該股形態不佳，注意成交量的變化，但目前不適合參與。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(12,70,' 該股趨勢不明，股價偏弱，注意量能變化，目前不宜參與。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(12,70,' 該股有走強跡象，但量能不足，趨勢不明，不適合操作。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(12,70,' 該股走勢太弱，沒有參與價值。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN DRAWTEXTABS(12,70,'大盤量能，有明顯走強跡象，可以考慮中線進場參與，倉位在2/3 左右， '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN DRAWTEXTABS(12,70,'如前期經過一輪下跌，此時為最佳買點，但如果前期有過一段漲幅則介入需謹慎。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN DRAWTEXTABS(12,70,' 大盤雖然走勢趨強，但量能還顯不足，如果前期經過一輪下跌， '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN DRAWTEXTABS(12,70,'可以考慮短線進場，倉位在1/2 左右，一旦量能放大可以加倉買入。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN DRAWTEXTABS(12,70,'大盤形態走壞，重倉者可以減去大部分倉位。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN DRAWTEXTABS(12,70,'大盤縮量調整，注意風險，短線清倉觀望。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN DRAWTEXTABS(12,70,'大盤走勢良好，量能，可以繼續持有強勢股。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN DRAWTEXTABS(12,70,'大盤形態良好，但量能稍顯不足，隨時準備減倉。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN DRAWTEXTABS(12,70,'大盤趨勢不明，注意成交量變化，目前不適宜進場。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) THEN DRAWTEXTABS(12,70,'大盤趨勢向下，量能萎縮，不適合進場。 '),COLOR00FF00,LINETHICK3; var100:=' 所屬板塊:'; if inblock('電力')=1 then var100:=var100+' 電力'; if inblock('電腦')=1 then var100:=var100+' 電腦'; if inblock('電器')=1 then var100:=var100+' 電器'; if inblock('電子信息')=1 then var100:=var100+' 電子信息'; if inblock('房地產')=1 then var100:=var100+' 房地產'; if inblock('紡織服裝')=1 then var100:=var100+' 紡織服裝'; if inblock('鋼鐵')=1 then var100:=var100+' 鋼鐵'; if inblock('工程建筑')=1 then var100:=var100+' 工程建筑'; if inblock('供水供氣')=1 then var100:=var100+' 供水供氣'; if inblock('化工')=1 then var100:=var100+' 化工'; if inblock('化纖')=1 then var100:=var100+' 化纖'; if inblock('機械')=1 then var100:=var100+' 機械'; if inblock('建材')=1 then var100:=var100+' 建材'; if inblock('交通工具')=1 then var100:=var100+' 交通工具'; if inblock('交通設施')=1 then var100:=var100+' 交通設施'; if inblock('教育傳媒')=1 then var100:=var100+' 教育傳媒'; if inblock('金融')=1 then var100:=var100+' 金融'; if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店'; if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油'; if inblock('釀酒食品')=1 then var100:=var100+' 釀酒食品'; if inblock('農林牧漁')=1 then var100:=var100+' 農林牧漁'; if inblock('其他行業')=1 then var100:=var100+' 其他行業'; if inblock('汽車')=1 then var100:=var100+' 汽車'; if inblock('汽配')=1 then var100:=var100+' 汽配'; if inblock('商業連鎖')=1 then var100:=var100+' 商業連鎖'; if inblock('石化')=1 then var100:=var100+' 石化'; if inblock('通信')=1 then var100:=var100+' 通信'; if inblock('外貿')=1 then var100:=var100+' 外貿'; if inblock('醫藥')=1 then var100:=var100+' 醫藥'; if inblock('儀電儀表')=1 then var100:=var100+' 儀電儀表'; if inblock('有色金屬')=1 then var100:=var100+' 有色金屬'; if inblock('運輸物流')=1 then var100:=var100+' 運輸物流'; if inblock('造紙印刷')=1 then var100:=var100+' 造紙印刷'; if inblock('安徽')=1 then var100:=var100+' 安徽'; if inblock('北*京')=1 then var100:=var100+' 北*京'; if inblock('福建')=1 then var100:=var100+' 福建'; if inblock('甘肅')=1 then var100:=var100+' 甘肅'; if inblock('廣東')=1 then var100:=var100+' 廣東'; if inblock('廣西')=1 then var100:=var100+' 廣西'; if inblock('貴州')=1 then var100:=var100+' 貴州'; if inblock('海南')=1 then var100:=var100+' 海南'; if inblock('河北')=1 then var100:=var100+' 河北'; if inblock('河南')=1 then var100:=var100+' 河南'; if inblock('黑龍江')=1 then var100:=var100+' 黑龍江'; if inblock('湖北')=1 then var100:=var100+' 湖北'; if inblock('湖南')=1 then var100:=var100+' 湖南'; if inblock('吉林')=1 then var100:=var100+' 吉林'; if inblock('江蘇')=1 then var100:=var100+' 江蘇'; if inblock('江西')=1 then var100:=var100+' 江西'; if inblock('遼寧')=1 then var100:=var100+' 遼寧'; if inblock('內蒙古')=1 then var100:=var100+' 內蒙古'; if inblock('寧夏')=1 then var100:=var100+' 寧夏'; if inblock('青海')=1 then var100:=var100+' 青海'; if inblock('山東')=1 then var100:=var100+' 山東'; if inblock('山西')=1 then var100:=var100+' 山西'; if inblock('陜西')=1 then var100:=var100+' 陜西'; if inblock('上海')=1 then var100:=var100+' 上海'; if inblock('深圳')=1 then var100:=var100+' 深圳'; if inblock('四川')=1 then var100:=var100+' 四川'; if inblock('天津')=1 then var100:=var100+' 天津'; if inblock('***')=1 then var100:=var100+' ***'; if inblock('新*疆')=1 then var100:=var100+' 新*疆'; if inblock('云南')=1 then var100:=var100+' 云南'; if inblock('浙江')=1 then var100:=var100+' 浙江'; if inblock('重慶')=1 then var100:=var100+' 重慶'; if inblock('3G')=1 then var100:=var100+' 3G'; if inblock('H股')=1 then var100:=var100+' H股'; if inblock('QFII持股')=1 then var100:=var100+' QFII持股'; if inblock('ST')=1 then var100:=var100+' ST'; if inblock('奧*運')=1 then var100:=var100+' 奧*運'; if inblock('創投')=1 then var100:=var100+' 創投'; if inblock('次新股')=1 then var100:=var100+' 次新股'; if inblock('大盤')=1 then var100:=var100+' 大盤'; if inblock('股權改革')=1 then var100:=var100+' 股權改革'; if inblock('股權投資')=1 then var100:=var100+' 股權投資'; DD:=FINANCE2(35); SS:=FINANCE2(37); GG:=FINANCE2(3); TH:=DYNAINFO(39); DRAWTEXTABS(8,30,'總股本:'+NUMTOSTRn(DD,0)+'萬股' +' 流通A股:'+NUMTOSTRn(SS,0)+'萬股'+'市盈率:'+NUMTOSTRn(TH,2)+' 倍'+' 每股收益:'+NUMTOSTRn(GG,3)+' 元'),ColorFFFFDD; DRAWTEXTABS(8,50,var100+' '),ColorFFDE00; SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100); DRAWTEXTREL(12,5,'量能飽和度：'+NUMTOSTRN(SAT,0)),LINETHICK3,Color8000FF; AA10:MA(CLOSE,8),color0000FF; AA12:MA(CLOSE,12),color0000FF; BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10); BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10); MA13:=MA(CLOSE,13); FILLRGN(AA10,AA12,(((AA12 <= AA10) AND (BB12 >= 1)) AND (BB10 >= 1))),Color0098FF; FILLRGN(AA10,AA12,(((AA12 >= AA10) AND (BB10 <= 1)) AND (BB10 <= 1))),color00FF00; x1:=(C+L+H)/3; bb13:=atan(ema(x1,13)-ref(ema(x1,13),1))*3.1416*10; ema8:=ema(c,8); DRAWTEXT(filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10), ema8,'∠45上升 '),colorwhite; 壓力:MA(REF(HHV(C,30),1),2),Color9DFFFF; 支撐:MA(REF(LLV(C,30),1),2),ColorABFF46; AA1:=AMOUNT/V; BB1:=L<AA1*0.9; CC1:=(C-REF(C,1))/REF(C,1)*100>1.2; DD1:=L<MA(C,5)*0.921; EE1:=V<MA(V,5)*1.5; FF1:=BB1 AND CC1 AND DD1 AND EE1; DRAWTEXT(ff1,(LOW* 0.99),'老鼠倉'),Color4080FF; A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1); 黑馬線:=EMA(A51,5); A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100; 趨勢線:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2)); DRAWTEXT(CROSS(趨勢線,0)AND 黑馬線<40,(HIGH* 0.97),'▲大黑馬'),COLORYELLOW; LC:=REF(CLOSE,1); RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100); FF:=EMA(CLOSE,3); MA15:=EMA(CLOSE,21); DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'B'),Coloryellow; DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),Colorgreen; VAR2:=LLV(LOW,27); VAR3:=HHV(HIGH,34); VAR4:=EMA((CLOSE-Var2)/(Var3-Var2)*4,4)*25; 注意買:=IF((Var4<10),80,100); RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; 超跌:=IF(J<0,10,0); BDDD:=LLV(J,2)=LLV(J,8); 買入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0); DRAWTEXT(買入 AND 注意買=100 AND 超跌=0,low,'短線'),Color8000FF; MTM:=C-REF(C,1); DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6); 買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0); DRAWTEXT(filter(買=1,5),LOW- 0.03,'拉升'),ColorFFDE00;DRAWTEXTREL(10,880,'www.kzuj.com.cn'),coloryellow; DRAWTEXTREL(999,999,'<span style="display:none;"><a data-cke-saved-href=" http://www.kzuj.com.cn" href=" http://www.kzuj.com.cn" title="大智慧程序化交易">大智慧程序化交易</a></span>');

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