相關標簽:

?

原理解析：
F1賦值:收盤價25%的之字轉向 價差25賦值:如果(F1>1日前的F1),返回-6,否則返回100,畫黃色 當滿足條件價差25>-80時,在價差25和0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR663300,線寬為1 A1賦值:2日前的收盤價 A2賦值:收盤價-A1和0的較大值的7日[1日權重]移動平均/收盤價-A1的絕對值的7日[1日權重]移動平均*100 A3賦值:日期 <= 1070615 A4賦值:1日前的最低價 A5賦值:最低價-A4的絕對值的3日[1日權重]移動平均/最低價-A4和0的較大值的3日[1日權重]移動平均*100 A6賦值:如果收盤價*1.3,返回A5*10,否則返回A5/10的3日指數移動平均 A7賦值:29日內最低價的最低值 A8賦值:37日內A6的最高值 A9賦值:如果收盤價的90日簡單移動平均,返回1,否則返回0 A10賦值:如果最低價<=A7,返回(A6+A8*2)/2,否則返回0的3日指數移動平均/1688*A9 A11賦值:如果A10>100,返回100,否則返回A10 當滿足條件A11時,在0和A11位置之間畫柱狀線,寬度為4,1不為0則畫空心柱. * A3,COLORF00FF0 CCT賦值:總量 AAA賦值: CCT=0的350日過濾 當滿足條件AAA時,在10位置書寫文字,COLORFF00FF VAR1賦值:((收盤價+最低價)/2-13日內最低價的最低值)/(13日內(最高價+收盤價)/2的最高值-13日內最低價的最低值)*100的3日指數移動平均的7日[1日權重]移動平均-(13) RSV賦值:((13日內最高價的最高值-收盤價)/(13日內最高價的最高值-13日內最低價的最低值)*100)-70 RSV1賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 FATK賦值:RSV1的5日[1日權重]移動平均 輸出趨勢線:FATK的5日[1日權重]移動平均,線寬為2,COLOR00D300 輸出紫快線:(7*(收盤價-13日內最低價的最低值)/(13日內最高價的最高值-13日內最低價的最低值)*30的4日[1日權重]移動平均-3*(收盤價-13日內最低價的最低值)/(13日內最高價的最高值-13日內最低價的最低值)*30的4日[1日權重]移動平均的3日[1日權重]移動平均-(收盤價-13日內最低價的最低值)/(13日內最高價的最高值-13日內最低價的最低值)*30的4日[1日權重]移動平均的3日[1日權重]移動平均的2日[1日權重]移動平均),線寬為2,COLORBB24DB 突破賦值:1日前的收盤價的13日指數移動平均畫洋紅色,NODRAW A1X賦值:(收盤價的13日指數移動平均-突破)/突破*100,NODRAW 輸出出擊:如果A1X>=0,返回上次A1X上穿0距今天數+1日前的收盤價的13日指數移動平均,否則返回無效數畫黃色,NODRAW 輸出休假:如果A1X<0,返回上次0上穿A1X距今天數+1日前的收盤價的13日指數移動平均,否則返回無效數畫藍色,NODRAW 輸出持幣:如果A1X<0,返回突破,否則返回無效數畫綠色,NODRAW 輸出主力:以收盤價計算的獲利盤比例*100的5日指數移動平均,畫紅色,線寬為1 輸出散戶:(以收盤價*1.1計算的獲利盤比例-以收盤價*0.9計算的獲利盤比例)*100的5日指數移動平均,畫黃色,NODRAW 輸出吸籌:A11,畫淡藍色 輸出獲利盤%:以收盤價計算的獲利盤比例*100,NODRAW,COLOR00FFFF 輸出B13:當滿足條件(收盤價3%的之字轉向>1日前的收盤價3%的之字轉向)AND(1日前的收盤價3%的之字轉向<=2日前的收盤價3%的之字轉向)AND(2日前的收盤價3%的之字轉向<=3日前的收盤價3%的之字轉向)時,在-2位置畫1號圖標 輸出S13:當滿足條件(收盤價3%的之字轉向<1日前的收盤價3%的之字轉向)AND(1日前的收盤價3%的之字轉向>=2日前的收盤價3%的之字轉向)AND(2日前的收盤價3%的之字轉向>=3日前的收盤價3%的之字轉向)時,在95位置畫15號圖標 輸出B3紅綠燈:當滿足條件收盤價4%的之字轉向上穿1日前的收盤價4%的之字轉向時,在5位置書寫文字,畫綠色 輸出B6:當滿足條件收盤價8%的之字轉向上穿1日前的收盤價8%的之字轉向時,在10位置書寫文字,畫綠色 輸出B9:當滿足條件收盤價12%的之字轉向上穿1日前的收盤價12%的之字轉向時,在15位置書寫文字,畫綠色 輸出B12:當滿足條件收盤價16%的之字轉向上穿1日前的收盤價16%的之字轉向時,在20位置書寫文字,畫綠色 輸出B15:當滿足條件收盤價20%的之字轉向上穿1日前的收盤價20%的之字轉向時,在25位置書寫文字,畫綠色 輸出S15:當滿足條件1日前的收盤價20%的之字轉向上穿收盤價20%的之字轉向時,在67位置書寫文字,畫綠色 輸出S12:當滿足條件1日前的收盤價16%的之字轉向上穿收盤價16%的之字轉向時,在72位置書寫文字,畫綠色 輸出S9:當滿足條件1日前的收盤價12%的之字轉向上穿收盤價12%的之字轉向時,在77位置書寫文字,畫綠色 輸出S6:當滿足條件1日前的收盤價8%的之字轉向上穿收盤價8%的之字轉向時,在82位置書寫文字,畫綠色 輸出S3:當滿足條件1日前的收盤價4%的之字轉向上穿收盤價4%的之字轉向時,在88位置書寫文字,畫綠色 CA1賦值:如果趨勢線>80ANDS13,返回1,否則返回0 CA2賦值:如果紫快線<6ANDA2<10ANDB13,返回1,否則返回0 DDA賦值:' 短跌' 當滿足條件CA1時,在95位置書寫文字,畫綠色 DDB賦值:' 短漲' 當滿足條件CA2時,在-2位置書寫文字,畫綠色 當滿足條件出擊ANDISLASTBAR時,在50位置書寫文字,畫紅色 當滿足條件休假ANDISLASTBAR時,在50位置書寫文字,畫黃色 當滿足條件獲利盤%>=98ANDISLASTBAR時,在70位置書寫文字,畫黃色 當滿足條件吸籌>=18ANDISLASTBAR時,在70位置書寫文字,畫黃色 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色

?

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

源碼：

?

F1:=ZIG(3,25);
價差25:=IF((F1> REF(F1,1)),-6,100),COLORYELLOW;
STICKLINE(價差25>-80 , 價差25,0 ,4,0),COLOR663300,LINETHICK1;A1:=REF(CLOSE,2);
A2:=SMA(MAX(CLOSE-A1,0),7,1)/SMA(ABS(CLOSE-A1),7,1)*100;
A3:=DATE <= 1070615;
A4:=REF(LOW,1);
A5:=SMA(ABS(LOW-A4),3,1)/SMA(MAX(LOW-A4,0),3,1)*100;
A6:=EMA(IF(CLOSE*1.3,A5*10,A5/10),3);
A7:=LLV(LOW,29);
A8:=HHV(A6,37);
A9:=IF(MA(CLOSE,90),1,0);
A10:=EMA(IF(LOW<=A7,(A6+A8*2)/2,0),3)/1688*A9;
A11:=IF(A10>100,100,A10);
STICKLINE(A11,0,A11,4,1) * A3,COLORF00FF0;CCT:=DYNAINFO(8);
AAA:= FILTER(CCT=0,350) ;
DRAWTEXT(AAA,10,'此股今日未開盤,不能分析'),COLORFF00FF;
VAR1:=SMA(EMA(((C+L)/2-LLV(L,13))/(HHV((H+C)/2,13)-LLV(L,13))*100,3),7,1)-(13);
RSV:=((HHV(HIGH,13)-CLOSE)/(HHV(HIGH,13)-LLV(LOW,13))*100)-70;
RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
FATK:=SMA(RSV1,5,1);
趨勢線:SMA(FATK,5,1),LINETHICK2,COLOR00D300;
紫快線:(7*SMA((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*30,4,1)-3*SMA(SMA((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*30,4,1),3,1)-SMA(SMA(SMA((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*30,4,1),3,1),2,1)),LINETHICK2,COLORBB24DB;
突破:=REF(EMA(C,13),1)COLORMAGENTA,NODRAW;
A1X:=(EMA(C,13)-突破)/突破*100,NODRAW;
出擊:IF(A1X>=0,REF(EMA(C,13),BARSLAST(CROSS(A1X,0))+1),DRAWNULL)COLORYELLOW,NODRAW;
休假:IF(A1X<0,REF(EMA(C,13),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLORBLUE,NODRAW;
持幣:IF(A1X<0,突破,DRAWNULL)COLORGREEN,NODRAW;主力:EMA(WINNER(C)*100,5),COLORRED,LINETHICK1;
散戶:EMA((WINNER(C*1.1)-WINNER(C*0.9))*100,5),COLORYELLOW,NODRAW;
吸籌:A11,COLORLIBLUE;獲利盤%:WINNER(CLOSE)*100,NODRAW,COLOR00FFFF;B13:DRAWICON((ZIG(3,3)>REF(ZIG(3,3),1)) AND (REF(ZIG(3,3),1)<=REF(ZIG(3,3),2)) AND (REF(ZIG(3,3),2)<=REF(ZIG(3,3),3)),-2,1) ;
S13:DRAWICON((ZIG(3,3)<REF(ZIG(3,3),1)) AND (REF(ZIG(3,3),1)>=REF(ZIG(3,3),2)) AND (REF(ZIG(3,3),2)>=REF(ZIG(3,3),3)),95,15);B3:DRAWTEXT(CROSS(ZIG(3,4),REF(ZIG(3,4),1)),5,'20'),COLORGREEN;
B6:DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),10,'40'),COLORGREEN;
B9:DRAWTEXT(CROSS(ZIG(3,12),REF(ZIG(3,12),1)),15,'60'),COLORGREEN;
B12:DRAWTEXT(CROSS(ZIG(3,16),REF(ZIG(3,16),1)),20,'80'),COLORGREEN;
B15:DRAWTEXT(CROSS(ZIG(3,20),REF(ZIG(3,20),1)),25,'100'),COLORGREEN;
S15:DRAWTEXT(CROSS(REF(ZIG(3,20),1),ZIG(3,20)),67,'-100'),COLORGREEN;
S12:DRAWTEXT(CROSS(REF(ZIG(3,16),1),ZIG(3,16)),72,'-80'),COLORGREEN;
S9:DRAWTEXT(CROSS(REF(ZIG(3,12),1),ZIG(3,12)),77,'-60'),COLORGREEN;
S6:DRAWTEXT(CROSS(REF(ZIG(3,8),1),ZIG(3,8)),82,'-40'),COLORGREEN;
S3:DRAWTEXT(CROSS(REF(ZIG(3,4),1),ZIG(3,4)),88,'-20'),COLORGREEN;
CA1:=IF( 趨勢線>80 AND S13,1,0);
CA2:=IF( 紫快線<6 AND A2<10 AND B13,1,0);
DDA:=' 短跌';
DRAWTEXT(CA1,95,DDA),COLORGREEN;
DDB:=' 短漲';
DRAWTEXT(CA2,-2,DDB),COLORGREEN;DRAWTEXT(出擊 AND ISLASTBAR,50,' 短線出擊'),COLORRED;
DRAWTEXT(休假 AND ISLASTBAR,50,' 短線休假'),COLORYELLOW;
DRAWTEXT(獲利盤%>=98 AND ISLASTBAR,70,' 獲利想走'),COLORYELLOW;
DRAWTEXT(吸籌>=18 AND ISLASTBAR,70,' 適當吸籌'),COLORYELLOW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?