相關標簽:主力籌碼指標公式源碼 、 籌碼大底指標源碼 、 莊家籌碼指標公式源碼 、 控盤籌碼公式指標源碼 、 籌碼峰主圖指標公式 、 籌碼突破主圖指標公式 、 籌碼平鋪主圖指標公式 、 主力主圖指標公式源碼 、 macd主圖指標源碼公式 、 籌碼分布主圖指標公式 、 籌碼峰值主圖指標公式 、 現貨支撐壓力指標源碼 、 麥克支撐壓力指標源碼 、 支撐壓力買賣指標源碼 、

?

?

原理解析：
DRAWGBKLAST(收盤價, STRIP(自定色 ,自定色,1)) W賦值:上次DISPSTATUS=1距今天數 顯示天數賦值:6 開始賦值:430%之字轉向的前1個波谷位置 顯示條件賦值:若數據位置狀態=2則將最近如果顯示天數=0,返回開始+1,否則返回顯示天數周期置為1 輸出DRAWTEXTABS(5,45,'■目前可見K線:'+NUMTOSTRN(W+1,0)+'天'),COLOR006600 輸出DRAWTEXTABS(2,1, '【所屬板塊】: '+BKNAME),COLOR006600 輸出輸出輸出DRAWTEXTABS(2,14,'【報 告 期】: '+FINANCE2(1)+' 【每股收益】: '+NUMTOSTRN(FINANCE2(3),2)+'元'+' 【市盈率】:'+NUMTOSTRN(市盈(動),1)+'倍 '),COLOR006600 輸出輸出DRAWTEXTABS(2,28,'【流通 A股】: '+NUMTOSTRN(FINANCE2(37)/10000,2)+'億'+' 【總 股 本】: '+NUMTOSTRN(FINANCE2(35)/10000,2)+'億 '+'【市值】 '+NUMTOSTRN(筆漲跌/100000000,2)+'億'),COLOR006600 SVAR0賦值:FINANCE2(37) / 1000000 * 100 輸出輸出DRAWTEXTABS(5,65, STKLABEL+' '+品種名稱+' 現價:'+收盤價+' 漲幅:'+NUMTOSTRN((收盤價-1日前的收盤價)/1日前的收盤價*100,2)),COLOR555555,線寬為2 輸出現價: 如果開盤價=0,返回收盤價,否則返回現價,COLOR555555,POINTDOT 賦值:"那時的阿P@FMLCREATE" 賦值:"那時的阿P@VHL" 賦值:"那時的阿P@VHK" 賦值:"那時的阿P@FMLPARAMREAD" ( 0,0,0,4 ) 賦值:"那時的阿P@FMLPARAMREAD" ( 0,0,0,6 ) 賦值:"那時的阿P@FMLPARAMREAD" ( 0,0,0,8 ) 賦值:"那時的阿P@FMLPARAMREAD" ( 0,0,0,9 ) 賦值: "那時的阿P@FMLPARAMREAD" ( 0,0,0, 10 ) 賦值:"那時的阿P@FMLPARAMREAD" ( 0,0,0, 11 ) 賦值:"那時的阿P@FMLPARAMREAD" ( 0,0,0, 12 ) 賦值:"那時的阿P@FMLPARAMREAD" ( 0,0,0, 13 ) 賦值:"那時的阿P@FMLPARAMREAD" ( 0,0,0, 15 ) 賦值:"那時的阿P@FMLPARAMREAD"( 0,0,0, 16 ) 賦值: "那時的阿P@FMLPARAMREAD" ( 0,0,0, 17 ) 賦值: "那時的阿P@FMLPARAMREAD" ( 0,0,0, 18 ) MM賦值:如果HL=1,返回BX,否則返回AX MM1賦值:如果HL=1,返回BX1,否則返回AX1 下跌趨勢1賦值:HL=0 ANDC<1日前的最高價 OR (收盤價>1日前的最高價 AND 收盤價<AXX1) 上升趨勢1賦值:HL=1 ANDC>1日前的最低價 OR (收盤價<1日前的最低價 AND 收盤價>BXX1) 下跌趨勢2賦值:KK=0 上升趨勢2賦值:KK=1 上升趨勢賦值:上升趨勢1 OR 上升趨勢2 下跌趨勢賦值:下跌趨勢1 OR 下跌趨勢2 當滿足條件顯示條件AND下跌趨勢時,在AXX1和AXX1+AXX1*0.00001位置之間畫柱狀線,寬度為30,1不為0則畫空心柱.,COLORFF8800,線寬為1, DOTLINE,LAYER2 當滿足條件顯示條件AND上升趨勢時,在BXX1和BXX1-BXX1*0.00001位置之間畫柱狀線,寬度為30,1不為0則畫空心柱.,COLORFF00FF,線寬為1, DOTLINE,LAYER2 輸出轉折:(MM+MM1)/2,COLOR00AAAA,線寬為0 PARTLINE(轉折,收盤價>=轉折,自定色,收盤價<轉折,自定色),LAYER0 N賦值:100 V0賦值:"XWUS@CMBL"(N,5) V1賦值:"XWUS@CMBL"(N,10) V2賦值:"XWUS@CMBL"(N,15) V3賦值:"XWUS@CMBL"(N,20) V4賦值:"XWUS@CMBL"(N,25) V5賦值:"XWUS@CMBL"(N,30) V6賦值:"XWUS@CMBL"(N,35) V7賦值:"XWUS@CMBL"(N,40) V8賦值:"XWUS@CMBL"(N,45) V9賦值:"XWUS@CMBL"(N,50) POLYLINE(V0>0,V0),COLOR008364,LAYER7 POLYLINE(V1>0,V1),COLOR008364,LAYER7 POLYLINE(V2>0,V2),COLOR008364,LAYER7 POLYLINE(V3>0,V3),COLOR008364,LAYER7 POLYLINE(V4>0,V4),COLOR008364,LAYER7 POLYLINE(V5>0,V5),COLOR008364,LAYER7 POLYLINE(V6>0,V6),COLOR008364,LAYER7 POLYLINE(V7>0,V7),COLOR008364,LAYER7 POLYLINE(V8>0,V8),COLOR008364,LAYER7 POLYLINE(V9>0,V9),COLOR008364,LAYER7 當滿足條件數據位置狀態=2ANDV0>0ANDV1>0時,在(V0+V1)/2和(V0+V1)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 當滿足條件數據位置狀態=2ANDV1>0ANDV2>0時,在(V1+V2)/2和(V1+V2)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 當滿足條件數據位置狀態=2ANDV2>0ANDV3>0時,在(V2+V3)/2和(V2+V3)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 當滿足條件數據位置狀態=2ANDV3>0ANDV4>0時,在(V3+V4)/2和(V3+V4)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 當滿足條件數據位置狀態=2ANDV4>0ANDV5>0時,在(V4+V5)/2和(V4+V5)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 當滿足條件數據位置狀態=2ANDV5>0ANDV6>0時,在(V5+V6)/2和(V5+V6)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 當滿足條件數據位置狀態=2ANDV6>0ANDV7>0時,在(V6+V7)/2和(V6+V7)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 當滿足條件數據位置狀態=2ANDV7>0ANDV8>0時,在(V7+V8)/2和(V7+V8)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 當滿足條件數據位置狀態=2ANDV8>0ANDV9>0時,在(V8+V9)/2和(V8+V9)/2位置之間畫柱狀線,寬度為22,0不為0則畫空心柱.,COLOR888888,LAYER4 CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1)) 輸出WARNING('HTTP://m.kzuj.com.cn',CURRENTTIME>180000 AND (CXH=1 OR CXH=6)) DRAWTEXTREL(10 ,10 ,'指標公式')

?

?來源:程序化99（ m.kzuj.com.cn ）

源碼：

?

?

DRAWGBKlast(c, strip(RGB(0,20,0) ,RGB(00,40,0),1));W:=BARSLAST(DISPSTATUS=1);顯示天數:=6;開始:=TROUGHBARS(4,30,1 );顯示條件:=BACKSET(BARSTATUS=2 ,if(顯示天數=0, 開始+1,顯示天數));DRAWTEXTABS(5,45,'■目前可見K線:'+NUMTOSTRN(W+1,0)+'天'),COLOR006600;DRAWTEXTABS(2,1, '【所屬板塊】: '+BKNAME),Color006600;DRAWTEXTABS(2,14,'【報 告 期】: '+FINANCE2(1)+' 【每股收益】: '+NUMTOSTRN(FINANCE2(3),2)+'元'+' 【市盈率】:'+NUMTOSTRN(DYNAINFO(39),1)+'倍 '),COLOR006600;DRAWTEXTABS(2,28,'【流通 A股】: '+NUMTOSTRN(FINANCE2(37)/10000,2)+'億'+' 【總 股 本】: '+NUMTOSTRN(FINANCE2(35)/10000,2)+'億 '+'【市值】 '+NUMTOSTRN(DYNAINFO(57)/100000000,2)+'億'),Color006600;SVAR0:=FINANCE2(37) / 1000000 * 100 ;DRAWTEXTABS(5,65, STKLABEL+' '+STKNAME+' 現價:'+C+' 漲幅:'+NUMTOSTRN((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,2)),Color555555,LINETHICK2;現價: if (DYNAINFO(4)=0,C,DYNAINFO(7)),color555555,POINTDOT;{--------------------以下設置轉折線---------------------------}Create :="那時的阿P@FmlCreate";HL :="那時的阿P@VHL";KK :="那時的阿P@VHK";ax :="那時的阿P@FmlParamRead" ( 0,0,0,4 ) ;bx :="那時的阿P@FmlParamRead" ( 0,0,0,6 ) ;ax1 :="那時的阿P@FmlParamRead" ( 0,0,0,8 ) ;bx1 :="那時的阿P@FmlParamRead" ( 0,0,0,9 ) ;axx1 := "那時的阿P@FmlParamRead" ( 0,0,0, 10 ) ;bxx1 :="那時的阿P@FmlParamRead" ( 0,0,0, 11 ) ;hh :="那時的阿P@FmlParamRead" ( 0,0,0, 12 ) ;ll :="那時的阿P@FmlParamRead" ( 0,0,0, 13 ) ;arh :="那時的阿P@FmlParamRead" ( 0,0,0, 15 ) ;arl :="那時的阿P@FmlParamRead"( 0,0,0, 16 ) ;axxx1 := "那時的阿P@FmlParamRead" ( 0,0,0, 17 ) ;bxxx1 := "那時的阿P@FmlParamRead" ( 0,0,0, 18 ) ;mm:=if(hl=1,bx,ax);mm1:=if(hl=1,bx1,ax1);下跌趨勢1:=hl=0 andc<ref(h,1) or (c>ref(h,1) and C<axx1);上升趨勢1:=hl=1 andc>ref(L,1) or (c<ref(L,1) and C>bxx1);下跌趨勢2:=kk=0;上升趨勢2:=kk=1;上升趨勢:=上升趨勢1 OR 上升趨勢2;下跌趨勢:=下跌趨勢1 OR 下跌趨勢2;stickline(顯示條件 AND 下跌趨勢,axx1,axx1+axx1*0.00001,30,1),colorFF8800,linethick1, DOTLINE,LAYER2;stickline(顯示條件 AND 上升趨勢,bxx1,bxx1-bxx1*0.00001,30,1),colorFF00ff,linethick1, DOTLINE,LAYER2;轉折:(mm+mm1)/2,color00aaaa,linethick0;PARTLINE(轉折,C>=轉折,RGB(255,255,0),C<轉折,RGB(0,0,255)),LAYER0;{--------------------以下設置籌碼支撐壓力---------------------------}N:=100;V0:="XWUS@CMBL"(n,5);V1:="XWUS@CMBL"(n,10);V2:="XWUS@CMBL"(n,15);V3:="XWUS@CMBL"(n,20);V4:="XWUS@CMBL"(n,25);V5:="XWUS@CMBL"(n,30);V6:="XWUS@CMBL"(n,35);V7:="XWUS@CMBL"(n,40);V8:="XWUS@CMBL"(n,45);V9:="XWUS@CMBL"(n,50);POLYLINE(V0>0,V0),Color008364,LAYER7{,color888888};POLYLINE(V1>0,V1),Color008364,LAYER7{,color888888};POLYLINE(V2>0,V2),Color008364,LAYER7{,color888888};POLYLINE(V3>0,V3),Color008364,LAYER7{,color888888};POLYLINE(V4>0,V4),Color008364,LAYER7{,color888888};POLYLINE(V5>0,V5),Color008364,LAYER7{,color888888};POLYLINE(V6>0,V6),Color008364,LAYER7{,color888888};POLYLINE(V7>0,V7),Color008364,LAYER7{,color888888};POLYLINE(V8>0,V8),Color008364,LAYER7{,color888888};POLYLINE(V9>0,V9),Color008364,LAYER7{,color888888};STICKLINE(BARSTATUS=2 AND V0>0 AND V1>0,(V0+V1)/2,(V0+V1)/2,22,0),color888888,LAYER4;STICKLINE(BARSTATUS=2 AND V1>0 AND V2>0,(V1+V2)/2,(V1+V2)/2,22,0),color888888,LAYER4;STICKLINE(BARSTATUS=2 AND V2>0 AND V3>0,(V2+V3)/2,(V2+V3)/2,22,0),color888888,LAYER4;STICKLINE(BARSTATUS=2 AND V3>0 AND V4>0,(V3+V4)/2,(V3+V4)/2,22,0),color888888,LAYER4;STICKLINE(BARSTATUS=2 AND V4>0 AND V5>0,(V4+V5)/2,(V4+V5)/2,22,0),color888888,LAYER4;STICKLINE(BARSTATUS=2 AND V5>0 AND V6>0,(V5+V6)/2,(V5+V6)/2,22,0),color888888,LAYER4;STICKLINE(BARSTATUS=2 AND V6>0 AND V7>0,(V6+V7)/2,(V6+V7)/2,22,0),color888888,LAYER4;STICKLINE(BARSTATUS=2 AND V7>0 AND V8>0,(V7+V8)/2,(V7+V8)/2,22,0),color888888,LAYER4;STICKLINE(BARSTATUS=2 AND V8>0 AND V9>0,(V8+V9)/2,(V8+V9)/2,22,0),color888888,LAYER4;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://m.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');

?

?

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

?