相關標簽:同花順籌碼峰指標源碼 、 同花順籌碼峰指標公式 、 資金籌碼指標 源碼 、 籌碼分布指標公式源碼 、 主力籌碼指標公式源碼 、 cyq籌碼指標公式源碼 、 同花順籌碼集中度指標 、 同花順主力籌碼指標 、 資金博弈指標公式源碼 、 同花順收費指標源碼 、 同花順資金倉位源碼 、 同花順波段指標源碼 、 同花順通道指標源碼 、 同花順指標源碼大全 、 同花順資金抄底源碼 、

?

同花順資金與籌碼指標源碼

?

原理解析：
VA1賦值:100-3*(收盤價-65日內最低價的最低值)/(80日內最高價的最高值-65日內最低價的最低值)*100的20日[1日權重]移動平均+2*(收盤價-65日內最低價的最低值)/(80日內最高價的最高值-65日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VA2賦值:100-3*(開盤價-65日內最低價的最低值)/(80日內最高價的最高值-65日內最低價的最低值)*100的20日[1日權重]移動平均+2*(開盤價-65日內最低價的最低值)/(80日內最高價的最高值-65日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VA3賦值:VA1<1日前的VA2 AND 成交量(手)>1日前的成交量(手) AND 收盤價>1日前的收盤價 當滿足條件VA3ANDCOUNT(VA3,30)=1時,在15位置書寫文字,線寬為1,COLORFF00FF A賦值:以收盤價+收盤價*15/100計算的獲利盤比例*100 B賦值:以收盤價+收盤價*0/100計算的獲利盤比例*100 CC賦值:A-B D賦值:(以收盤價-收盤價*0.1/100計算的獲利盤比例-以收盤價-收盤價*15/100計算的獲利盤比例)*100 E賦值:CC<3 AND D<0.5 AND 開盤價不等于最低價 A1賦值:最低價 A2賦值:如果最低價>A1,返回0,否則返回如果最高價<A1,返回1,否則返回(A1-最低價+0.01)/(最高價-最低價+0.01) A3賦值:成交量(手)/以最低價計算的獲利盤比例 A4賦值:1日前的120日內收盤價的最高值 A5賦值:1日前的120日內收盤價的最低值 A6賦值:100*(收盤價-A5)/(A4-A5) A7賦值:A2>0 OR A2=1 A8賦值:A7 AND A3/3日前的A3>=3 AND A6<80 A9賦值:1日前的A8 OR 2日前的A8 OR 3日前的A8 OR 4日前的A8 A10賦值:A8 AND A9 A11賦值:如果A8的3日過濾,返回5,否則返回0 A12賦值:如果A10的3日過濾ORE,返回10,否則返回0 輸出資金進場日:如果A11>0,返回8,否則返回無效數,COLOR00FFFF,線寬為3,STICK 輸出資金加倉日:如果A12>0,返回15,否則返回無效數,COLORFF00FF,線寬為4,STICK 當滿足條件A11時,在8位置書寫文字 當滿足條件A12時,在17位置書寫文字 VAR1賦值:(收盤價*2+最高價+最低價)/4*10 VAR2賦值:VAR1的13日指數移動平均-VAR1的34日指數移動平均 VAR3賦值:VAR2的5日指數移動平均 VAR4賦值:2*(VAR2-VAR3)*5.5 輸出主力:VAR4,畫紅色,線寬為2 VAR5賦值:(8日內大盤的最高價的最高值-大盤的收盤價)/(8日內大盤的最高價的最高值-8日內大盤的最低價的最低值)*8 VAR6賦值:3*VAR5-2*VAR5的18日[1日權重]移動平均的5日指數移動平均 VAR7賦值:(大盤的收盤價-8日內大盤的最低價的最低值)/(8日內大盤的最高價的最高值-8日內大盤的最低價的最低值)*10 VAR8賦值:(大盤的收盤價*2+大盤的最高價+大盤的最低價)/4 VAR9賦值:VAR8的13日指數移動平均-VAR8的34日指數移動平均 VARA賦值:VAR9的3日指數移動平均 VARB賦值:(VAR9-VARA)/2 輸出大盤資金:VARB,畫綠色,線寬為2 VARE賦值:100*(收盤價-34日內收盤價的最低值)/(34日內最高價的最高值-34日內最低價的最低值)的5日簡單移動平均-20 VAR10賦值:(最高價+最低價+收盤價)/3 VAR11賦值:(VAR10-VAR10的14日簡單移動平均)/(0.015*VAR10的14日平均絕對偏差) VAR12賦值:(VAR10-VAR10的70日簡單移動平均)/(0.015*VAR10的70日平均絕對偏差) VAR13賦值:如果VAR11>=150ANDVAR11<200ANDVAR12>=150ANDVAR12<200,返回10,否則返回0 VAR14賦值:如果VAR11<=-150ANDVAR11>-200ANDVAR12<=-150ANDVAR12>-200,返回-10,否則返回VAR13 VAR15賦值:(收盤價-收盤價的11日簡單移動平均)/收盤價的11日簡單移動平均*100 VAR16賦值:100-VAR15的絕對值 VAR17賦值:如果VAR16<90,返回VAR16,否則返回100 VAR1A賦值:如果VARE>0,返回VARE,否則返回0 VAR1B賦值:如果VAR12>=200ANDVAR11>=150,返回15,否則返回如果VAR12<=-200ANDVAR11<=-150,返回-15,否則返回VAR14+60 VAR1C賦值:VAR1A>48 AND VAR1B>60 AND VAR17<100 當滿足條件VAR1CANDCOUNT(VAR1C,30)=1時,在15位置書寫文字,線寬為1,COLORFFCC66 輸出T1:(VA3 AND 統計30日中滿足VA3的天數=1)*28,COLORFFFFFF 輸出T:(統計30日中滿足A8的天數>=3 AND 統計30日中滿足A10的天數>=3)*38,畫淡藍色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

VA1:=100-3*SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1);
VA2:=100-3*SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1);
VA3:=VA1<REF(VA2,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(VA3 AND COUNT(VA3,30)=1,15,'有大資金進 關注'),LINETHICK1,COLORFF00FF;
A:=WINNER(CLOSE+CLOSE*15/100)*100;
B:=WINNER(CLOSE+CLOSE*0/100)*100;
CC:=A-B;
D:=(WINNER(CLOSE-CLOSE*0.1/100)-WINNER(CLOSE-CLOSE*15/100))*100;
E:=CC<3 AND D<0.5 AND OPEN!=LOW;
A1:=DYNAINFO(6);
A2:=IF(LOW>A1,0,IF(HIGH<A1,1,(A1-LOW+0.01)/(HIGH-LOW+0.01)));
A3:=VOL/WINNER(LOW);
A4:=REF(HHV(CLOSE,120),1);
A5:=REF(LLV(CLOSE,120),1);
A6:=100*(CLOSE-A5)/(A4-A5);
A7:=A2>0 OR A2=1;
A8:=A7 AND A3/REF(A3,3)>=3 AND A6<80;
A9:=REF(A8,1) OR REF(A8,2) OR REF(A8,3) OR REF(A8,4);
A10:=A8 AND A9;
A11:=IF(FILTER(A8,3),5,0);
A12:=IF(FILTER(A10,3) OR E,10,0);
資金進場日:IF(A11>0,8,DRAWNULL),COLOR00FFFF,LINETHICK3,STICK;
資金加倉日:IF(A12>0,15,DRAWNULL),COLORFF00FF,LINETHICK4,STICK;
DRAWTEXT(A11,8,'資金進場');
DRAWTEXT(A12,17,'資金加倉');
VAR1:=(CLOSE*2+HIGH+LOW)/4*10;
VAR2:=EMA(VAR1,13)-EMA(VAR1,34);
VAR3:=EMA(VAR2,5);
VAR4:=2*(VAR2-VAR3)*5.5;
主力:VAR4,colorred,LINETHICK2;
{0,colorwhite;}
VAR5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
VAR6:=EMA(3*VAR5-2*SMA(VAR5,18,1),5);
VAR7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
VAR8:=(INDEXC*2+INDEXH+INDEXL)/4;
VAR9:=EMA(VAR8,13)-EMA(VAR8,34);
VARA:=EMA(VAR9,3);
VARB:=(VAR9-VARA)/2;
大盤資金:VARB,colorgreen,LINETHICK2;
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR10:=(HIGH+LOW+CLOSE)/3;
VAR11:=(VAR10-MA(VAR10,14))/(0.015*AVEDEV(VAR10,14));
VAR12:=(VAR10-MA(VAR10,70))/(0.015*AVEDEV(VAR10,70));
VAR13:=IF(VAR11>=150 AND VAR11<200 AND VAR12>=150 AND VAR12<200,10,0);
VAR14:=IF(VAR11<=-150 AND VAR11>-200 AND VAR12<=-150 AND VAR12>-200,-10,VAR13);
VAR15:=(CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*100;
VAR16:=100-ABS(VAR15);
VAR17:=IF(VAR16<90,VAR16,100);
VAR1A:=IF(VARE>0,VARE,0);
VAR1B:=IF(VAR12>=200 AND VAR11>=150,15,IF(VAR12<=-200 AND VAR11<=-150,-15,VAR14))+60;
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR17<100;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,15,'大筆出貨.縮量(低位)則洗.'),LINETHICK1,COLORFFCC66;
T1:(VA3 AND COUNT(VA3,30)=1)*28,COLORFFFFFF;
T:(COUNT(A8,30)>=3 AND COUNT(A10,30)>=3)*38,colorliblue;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?