相關標簽:大智慧量價共振指標 、 大智慧量價macd指標 、 大智慧量價籌公式 、 通達信量價圖指標公式 、 通達信量價趨勢副圖 、 量價背離主圖公式指標 、 大智慧指標公式大全 、 大智慧成交量指標公式 、 大智慧散戶線指標公式 、 大智慧背離指標公式 、 大智慧黃金趨勢指標 、 大智慧指標公式下載 、 大智慧ene指標公式 、 大智慧指標公式源碼 、 量價啟動指標公式 、
?
原理解析: </texta輸出INPUT:K(3,0,50) DRAWGBKLAST(日期>900101,STRIP(自定色,自定色,0)) 0,COLORFF9900 JV賦值:(成交量(手)-1日前的成交量(手))/1日前的成交量(手)*100 JVH賦值:JV的K日累和的K日指數移動平均 PARTLINE(JVH,(JVH>1日前的JVH)-1,自定色,1,自定色 ),線寬為2,LAYER4 當滿足條件數據位置狀態=2時,在0位置書寫文字,ALIGN0,COLOR00FFFF,線寬為2,LAYER0 X賦值:上次DISPSTATUS=1距今天數+1 AHX賦值:HHVALL(X日內JVH的最高值) VERTLINE(JVH=AHX,4),COLOR00FFFF,LAYER0 當滿足條件JV>0時,在JV和0位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR000055,LAYER7 當滿足條件JV>0時,在JV和0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR000077,LAYER7 當滿足條件JV>0時,在JV和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR000099,LAYER7 當滿足條件JV>0時,在JV和0位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0000CC,LAYER7 當滿足條件JV>0時,在JV和0位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000FF,LAYER7 當滿足條件JV<0時,在JV和0位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR005500,LAYER7 當滿足條件JV<0時,在JV和0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR007700,LAYER7 當滿足條件JV<0時,在JV和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR009900,LAYER7 當滿足條件JV<0時,在JV和0位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00CC00,LAYER7 HS賦值:成交量(手)/當前流通股本(手)*100 當滿足條件JVANDHS>2時,在-10位置書寫文字,ALIGN1,COLOR00FFFF,線寬為1,LAYER5 如果數據位置狀態=2ANDC<200ANDHS,返回?,否則返回? THENDRAWTEXTABS(450,5, '■可視'+NUMTOSTRN(X,0)+'天累計換手 ' +NUMTOSTRN(HS的X日累和,1)+'%, 平均換手 ' +NUMTOSTRN(HS的X日累和/X,1)+'%: ' ),COLOR00FFFF,線寬為3 DRAWRECTABS(3,0 ,315 ,150 , 自定色),COLOR00FFFF,線寬為2,LAYER0 W1賦值:如果(成交量(手)-1日前的成交量(手))>0ANDABS(收盤價-1日前的收盤價)/1日前的收盤價*100<0.1,返回1,否則返回0 如果數據位置狀態=2ANDC<200ANDW1,返回?,否則返回? THENDRAWTEXTABS(0,5,' ◢'+W1+'◣ '),COLOR0000FF,線寬為2,LAYER0 輸出DRAWTEXTABS(0,5,' 【加倉】:-- 1.量增價平,轉陽信號。'),COLOR0000FF,線寬為2,LAYER0 W2賦值:如果(成交量(手)-1日前的成交量(手))>0AND(收盤價-1日前的收盤價)>0,返回2,否則返回0 如果數據位置狀態=2ANDC<200ANDW2,返回?,否則返回? THENDRAWTEXTABS(0,22,' ◢'+W2+'◣ '),COLOR0055FF,線寬為2,LAYER0 輸出DRAWTEXTABS(0,22,' 【買入】:-- 2.量增價升,買入信號。'),COLOR0055FF,線寬為2,LAYER0 W3賦值:如果成交量(手)-1日前的成交量(手)的絕對值/1日前的成交量(手)*100<0.1AND(收盤價-1日前的收盤價)>0,返回3,否則返回0 如果數據位置狀態=2ANDC<200ANDW3,返回?,否則返回? THENDRAWTEXTABS(0,39,' ◢'+W3+'◣ '),COLOR0077FF,線寬為2 輸出DRAWTEXTABS(0,39,' 【加倉】:-- 3.量平價升,持續買入。'),COLOR0077FF,線寬為2,LAYER0 W4賦值:如果(成交量(手)-1日前的成交量(手))<0AND(收盤價-1日前的收盤價)>0,返回4,否則返回0 如果數據位置狀態=2ANDC<200ANDW4,返回?,否則返回? THENDRAWTEXTABS(0,56,' ◢'+W4+'◣ '),COLOR0099FF,線寬為2 輸出DRAWTEXTABS(0,56,' 【持有】:-- 4.量減價升,繼續持有。'),COLOR0099FF,線寬為2,LAYER0 W5賦值:如果(成交量(手)-1日前的成交量(手))<0ANDABS(收盤價-1日前的收盤價)/1日前的收盤價*100<0.1,返回5,否則返回0 如果數據位置狀態=2ANDC<200ANDW5,返回?,否則返回? THENDRAWTEXTABS(0,76,' ◢'+W5+'◣ '),COLOR00FF00,線寬為2,LAYER0 輸出DRAWTEXTABS(0,76,' 【警戒】:-- 5.量減價平,警戒信號。'),COLOR00FF00,線寬為2,LAYER0 W6賦值:如果(成交量(手)-1日前的成交量(手))<0AND(收盤價-1日前的收盤價)<0,返回6,否則返回0 如果數據位置狀態=2ANDC<200ANDW6,返回?,否則返回? THENDRAWTEXTABS(0,93,' ◢'+W6+'◣ '),COLORFFDD00,線寬為2,LAYER0 輸出DRAWTEXTABS(0,93,' 【賣出】:-- 6.量減價跌,賣出信號。'),COLORFFDD00,線寬為2,LAYER0 W7賦值:如果成交量(手)-1日前的成交量(手)的絕對值/1日前的成交量(手)*100<0.1AND(收盤價-1日前的收盤價)>0,返回7,否則返回0 如果數據位置狀態=2ANDC<200ANDW7,返回?,否則返回? THENDRAWTEXTABS(0,110,' ◢'+W7+'◣ '),COLORFFCC00,線寬為2,LAYER0 輸出DRAWTEXTABS(0,110,' 【賣出】:-- 7.量平價跌,繼續賣出。'),COLORFFCC00,線寬為2,LAYER0 W8賦值:如果(成交量(手)-1日前的成交量(手))>0AND(收盤價-1日前的收盤價)<0,返回8,否則返回0 如果數據位置狀態=2ANDC<200ANDW8,返回?,否則返回? THENDRAWTEXTABS(0,127,' ◢'+W8+'◣ '),COLORFF9900,線寬為2,LAYER0 輸出DRAWTEXTABS(0,127,' 【觀望】:-- 8.量增價跌,棄賣觀望。'),COLORFF9900,線寬為2,LAYER0 CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1)) 輸出WARNING('HTTP://www.kzuj.com.cn',CURRENTTIME>180000 AND (CXH=1 OR CXH=6)) DRAWTEXTREL(10 ,10 ,'指標公式') rea></p> <br /> <p>?</p> <p><span style="color: #ffffff">?來源:程序化99( www.kzuj.com.cn )</span></p> <p><span style="color: #ff0000"><b>源碼:</b></span></p> <p>?</p> <p>{量價增減}<br /> input:k(3,0,50);<br /> DRAWGBKlast(DATE>900101,strip(RGB(40,0,40),RGB(0,0,0),0));0,ColorFF9900;<br /> JV:=(V-REF(V,1))/REF(V,1)*100;<br /> JVH:=EMA(SUM(JV,k),k);<br /> PARTLINE(JVH,(JVH>REF(JVH,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),LINETHICK2,LAYER4;<br /> DRAWTEXT(BARSTATUS=2,0,' 換手:'),ALIGN0,COLOR00ffFF,LINETHICK2,LAYER0;X:=BARSLAST(DISPSTATUS=1)+1;<br /> ahx:=hhvall(hhv(JVH,X));<br /> VERTLINE(JVH=ahx,4),COLOR00FFFF,LAYER0;<br /> STICKLINE(JV>0,JV,0,5,0),Color000055,LAYER7;<br /> STICKLINE(JV>0,JV,0,4,0),Color000077,LAYER7;<br /> STICKLINE(JV>0,JV,0,3,0),Color000099,LAYER7;<br /> STICKLINE(JV>0,JV,0,2,0),Color0000CC,LAYER7;<br /> STICKLINE(JV>0,JV,0,1,0),Color0000FF,LAYER7;<br /> STICKLINE(JV<0,JV,0,5,0),Color005500,LAYER7;<br /> STICKLINE(JV<0,JV,0,4,0),Color007700,LAYER7;<br /> STICKLINE(JV<0,JV,0,3,0),Color009900,LAYER7;<br /> STICKLINE(JV<0,JV,0,2,0),Color00CC00,LAYER7;<br /> HS:=vol/capital*100;<br /> DRAWTEXT(JV and HS>2 ,-10,''+NUMTOSTRN(HS,0)+'' ),ALIGN1,color00FFff,linethick1,LAYER5;<br /> IF (BARSTATUS=2 and c<200 and HS) THEN<br /> DRAWTEXTABS(450,5, '■可視'+NUMTOSTRN(X,0)+'天累計換手 ' +NUMTOSTRN(SUM(HS,X),1)+'%, 平均換手 ' +NUMTOSTRN(SUM(HS,X)/X,1)+'%: ' ),COLOR00ffFF,LINETHICK3;<br /> DRAWRECTABS(3,0 ,315 ,150 , rgb(0,0,80)),color00FFFF,LINETHICK2,LAYER0;<br /> W1:=IF((V-REF(V,1))>0 AND ABS(C-REF(C,1))/REF(C,1)*100<0.1,1,0);<br /> IF (BARSTATUS=2 and c<200 and W1) THEN<br /> DRAWTEXTABS(0,5,' ◢'+W1+'◣ '),color0000FF,LINETHICK2,LAYER0;<br /> DRAWTEXTABS(0,5,' 【加倉】:-- 1.量增價平,轉陽信號。'),color0000FF,LINETHICK2,LAYER0;W2:=IF((V-REF(V,1))>0 and (C-REF(C,1))>0,2,0);<br /> IF (BARSTATUS=2 and c<200 and W2) THEN<br /> DRAWTEXTABS(0,22,' ◢'+W2+'◣ '),color0055FF,LINETHICK2,LAYER0;<br /> DRAWTEXTABS(0,22,' 【買入】:-- 2.量增價升,買入信號。'),color0055FF,LINETHICK2,LAYER0;W3:=IF(ABS(V-REF(V,1))/REF(V,1)*100<0.1 and (C-REF(C,1))>0,3,0);<br /> IF (BARSTATUS=2 and c<200 and W3) THEN<br /> DRAWTEXTABS(0,39,' ◢'+W3+'◣ '),color0077FF,LINETHICK2;<br /> DRAWTEXTABS(0,39,' 【加倉】:-- 3.量平價升,持續買入。'),color0077FF,LINETHICK2,LAYER0;W4:=IF((V-REF(V,1))<0 and (C-REF(C,1))>0,4,0);<br /> IF (BARSTATUS=2 and c<200 and W4) THEN<br /> DRAWTEXTABS(0,56,' ◢'+W4+'◣ '),color0099FF,LINETHICK2;<br /> DRAWTEXTABS(0,56,' 【持有】:-- 4.量減價升,繼續持有。'),color0099FF,LINETHICK2,LAYER0;W5:=IF((V-REF(V,1))<0 AND ABS(C-REF(C,1))/REF(C,1)*100<0.1,5,0);<br /> IF (BARSTATUS=2 and c<200 and W5) THEN<br /> DRAWTEXTABS(0,76,' ◢'+W5+'◣ '),color00FF00,LINETHICK2,LAYER0;<br /> DRAWTEXTABS(0,76,' 【警戒】:-- 5.量減價平,警戒信號。'),color00FF00,LINETHICK2,LAYER0;W6:=IF((V-REF(V,1))<0 and (C-REF(C,1))<0,6,0);<br /> IF (BARSTATUS=2 and c<200 and W6) THEN<br /> DRAWTEXTABS(0,93,' ◢'+W6+'◣ '),colorFFDD00,LINETHICK2,LAYER0;<br /> DRAWTEXTABS(0,93,' 【賣出】:-- 6.量減價跌,賣出信號。'),colorFFDD00,LINETHICK2,LAYER0;W7:=IF(ABS(V-REF(V,1))/REF(V,1)*100<0.1 and (C-REF(C,1))>0,7,0);<br /> IF (BARSTATUS=2 and c<200 and W7) THEN<br /> DRAWTEXTABS(0,110,' ◢'+W7+'◣ '),colorFFCC00,LINETHICK2,LAYER0;<br /> DRAWTEXTABS(0,110,' 【賣出】:-- 7.量平價跌,繼續賣出。'),colorFFCC00,LINETHICK2,LAYER0;W8:=IF((V-REF(V,1))>0 and (C-REF(C,1))<0,8,0);<br /> IF (BARSTATUS=2 and c<200 and W8) THEN<br /> DRAWTEXTABS(0,127,' ◢'+W8+'◣ '),colorFF9900,LINETHICK2,LAYER0;<br /> DRAWTEXTABS(0,127,' 【觀望】:-- 8.量增價跌,棄賣觀望。'),colorFF9900,LINETHICK2,LAYER0;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));<br /> WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));<br /> DRAWTEXTREL(10 ,10 ,'指標公式');<br /> <br /> ?</p> <p>?</p> <p><strong>公式導入教程: 【<a data-cke-saved-href="/2012/05/16/991.shtml" href="/2012/05/16/991.shtml" target="_blank" title="通達信公式源碼導入方法教程">通達信公式源碼導入方法教程</a>】 【<a data-cke-saved-href="/2012/05/16/992.shtml" href="/2012/05/16/992.shtml" target="_blank" title="同花順公式源碼導入方法教程">同花順公式源碼導入方法教程</a>】 【<a data-cke-saved-href="/2012/05/25/1672.shtml" href="/2012/05/25/1672.shtml" target="_blank" title="大智慧新一代公式源碼導入方法教程">大智慧新一代公式源碼導入方法教程</a>】 </strong></p> <p><img alt="" border="0" data-cke-saved-src="/UploadFiles/Article/2012/12/201212012011408343.png" src="/UploadFiles/Article/2012/12/201212012011408343.png" style="font-size: medium; font-family: FONT; color: rgb(0,0,0)" /></p> <p>?</p>