相關標簽:同花順主圖公式源碼 、 寶塔線指標 副圖 、 寶塔線主圖指標公式 、 通達信寶塔線指標源碼 、 飛狐寶塔線指標源碼 、 副圖買賣指標公式源碼 、 布林寶塔線公式源碼 、 同花順主圖指標公式 、 同花順收費指標源碼 、 同花順波段指標源碼 、 同花順通道指標源碼 、 同花順指標源碼大全 、 同花順籌指標源碼 、 同花順ddx指標源碼 、 同花順毛利率指標源碼 、

?

與錢龍的一模一樣，再次優化！看圖。。。。。。

?

?

原理解析：
MA1賦值:收盤價的5日簡單移動平均 MA2賦值:收盤價的10日簡單移動平均 MA3賦值:收盤價的20日簡單移動平均 MA4賦值:收盤價的60日簡單移動平均 MA5賦值:收盤價的120日簡單移動平均 MA6賦值:收盤價的250日簡單移動平均 VAR1賦值:收盤價>1日前的收盤價 AND 收盤價>2日前的收盤價 VAR2賦值:1日前的VAR1 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR3賦值:1日前的VAR2 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR4賦值:1日前的VAR3 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR5賦值:1日前的VAR4 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR6賦值:1日前的VAR5 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR7賦值:1日前的VAR6 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR8賦值:1日前的VAR7 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR9賦值:1日前的VAR8 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARA賦值:1日前的VAR9 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VARB賦值:1日前的VARA AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARC賦值:1日前的VARB AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 當滿足條件VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC時,在收盤價和1日前的收盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫紅色 VARD賦值:收盤價<1日前的收盤價 AND 收盤價<2日前的收盤價 VARE賦值:1日前的VARD AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARF賦值:1日前的VARE AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR10賦值:1日前的VARF AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR11賦值:1日前的VAR10 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR12賦值:1日前的VAR11 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR13賦值:1日前的VAR12 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR14賦值:1日前的VAR13 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR15賦值:1日前的VAR14 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR16賦值:1日前的VAR15 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR17賦值:1日前的VAR16 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR18賦值:1日前的VAR17 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 輸出TTT:當滿足條件VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18時,在收盤價和1日前的收盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫綠色 當滿足條件VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18時,在收盤價和1日前的收盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫綠色 VAR19賦值:1日前的VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18 AND VAR1 當滿足條件VAR19時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱. ,畫黃色 VAR1A賦值:1日前的VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC AND VARD 當滿足條件VAR1A時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫淡紅色 上1賦值:如果VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,返回收盤價和1日前的收盤價的較大值,否則返回0 上2賦值:如果VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,返回收盤價和1日前的收盤價的較大值,否則返回0 上3賦值:如果VAR19,返回1日前的收盤價和2日前的收盤價的較大值,否則返回0 上4賦值:如果VAR1A,返回1日前的收盤價和2日前的收盤價的較大值,否則返回0 中1賦值:如果VAR19,返回1日前的收盤價和2日前的收盤價的較大值,否則返回如果VAR1A,返回1日前的收盤價和2日前的收盤價的較小值,否則返回0 下1賦值:如果VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,返回收盤價和1日前的收盤價的較小值,否則返回收盤價和1日前的收盤價的較大值 下2賦值:如果VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,返回收盤價和1日前的收盤價的較小值,否則返回收盤價和1日前的收盤價的較大值 下3賦值:如果VAR19,返回1日前的收盤價和2日前的收盤價的較小值,否則返回1日前的收盤價和2日前的收盤價的較大值 下4賦值:如果VAR1A,返回1日前的收盤價和2日前的收盤價的較小值,否則返回1日前的收盤價和2日前的收盤價的較大值 輸出上:上1和上2的較大值和上3和上4的較大值的較大值,NODRAW 中賦值:中1,NODRAW 輸出下:下1和下2的較小值和下3和下4的較小值的較小值,NODRAW 漲停賦值:如果(收盤價-1日前的收盤價)*100/1日前的收盤價>=(10-0.01*100/1日前的收盤價),返回1,否則返回0 均價線賦值:成交額(元)/成交量(手),NODRAW 波動系數1賦值:如果上位于8和8*2之間,返回0.03*2,否則返回如果上位于8*2+0.01和8*3之間,返回0.03*3,否則返回如果上位于(8*3+0.01)和8*4之間,返回0.03*4,否則返回如果上<8,返回0.03,否則返回0.03*5 波動系數2賦值:如果下位于8和8*2之間,返回0.03*2,否則返回如果下位于8*2+0.01和8*3之間,返回0.03*3,否則返回如果下位于(8*3+0.01)和8*4之間,返回0.03*4,否則返回如果下<8,返回0.03,否則返回0.03*5 三平底賦值:統計2日中滿足下-1日前的下的絕對值<=波動系數2的天數=2 AND VAR19 三平頂賦值:統計2日中滿足上-1日前的上的絕對值<=波動系數1的天數=2 AND VAR1A 當滿足條件三平底時,在下*0.995位置書寫文字,畫洋紅色 N賦值:1 XOPEN賦值:(N日前的開盤價+N日前的收盤價)/2 XCLOSE賦值:收盤價 XHIGH賦值:最高價和XOPEN的較大值 XLOW賦值:最低價和XOPEN的較小值 VOLALITY賦值:XHIGH-XLOW的8日簡單移動平均 凰線賦值:XCLOSE的5日簡單移動平均+VOLALITY/2 鳳線賦值:XCLOSE的5日簡單移動平均-VOLALITY/2 BU賦值:XCLOSE上穿凰線 SEL賦值:鳳線上穿XCLOSE VAR1賦值:上次BU距今天數 VAR2賦值:上次SEL距今天數 當滿足條件1日前的VAR1>VAR2ANDVAR1=0時,在鳳線*0.99位置畫1號圖標,ALIGN1,VALIGN0 當滿足條件1日前的VAR2>VAR1ANDVAR2=0時,在凰線*1.01位置畫2號圖標,ALIGN1,VALIGN2 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色

?

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

源碼：

?

?

MA1:=MA(CLOSE,5);MA2:=MA(CLOSE,10);MA3:=MA(CLOSE,20);MA4:=MA(CLOSE,60);MA5:=MA(CLOSE,120);MA6:=MA(CLOSE,250);VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,REF(CLOSE,1),8,0),colorred;VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);ttt:STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),8,0),colorgreen;STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),8,0),colorgreen;VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),8,0) ,coloryellow;VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),8,0),colorlired;上1:=IF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,MAX(CLOSE,REF(CLOSE,1)),0);上2:=IF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,MAX(CLOSE,REF(CLOSE,1)),0);上3:=IF(VAR19,MAX(REF(CLOSE,1),REF(CLOSE,2)),0);上4:=IF(VAR1A,MAX(REF(CLOSE,1),REF(CLOSE,2)),0);中1:=IF(VAR19,MAX(REF(CLOSE,1),REF(CLOSE,2)),IF(VAR1A,MIN(REF(CLOSE,1),REF(CLOSE,2)),0));下1:=IF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,MIN(CLOSE,REF(CLOSE,1)),MAX(CLOSE,REF(CLOSE,1)));下2:=IF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,MIN(CLOSE,REF(CLOSE,1)),MAX(CLOSE,REF(CLOSE,1)));下3:=IF(VAR19,MIN(REF(CLOSE,1),REF(CLOSE,2)),MAX(REF(CLOSE,1),REF(CLOSE,2)));下4:=IF(VAR1A,MIN(REF(CLOSE,1),REF(CLOSE,2)),MAX(REF(CLOSE,1),REF(CLOSE,2)));上:MAX(MAX(上1,上2),MAX(上3,上4)),NODRAW;中:=中1,NODRAW;下:MIN(MIN(下1,下2),MIN(下3,下4)),NODRAW;//{漲停回馬槍:}漲停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0);均價線:=AMOUNT/VOL,NODRAW;波動系數1:=IF(RANGE(上,8,8*2),0.03*2,IF(RANGE(上,8*2+0.01,8*3),0.03*3,IF(RANGE(上,(8*3+0.01),8*4),0.03*4,IF(上<8,0.03,0.03*5))));波動系數2:=IF(RANGE(下,8,8*2),0.03*2,IF(RANGE(下,8*2+0.01,8*3),0.03*3,IF(RANGE(下,(8*3+0.01),8*4),0.03*4,IF(下<8,0.03,0.03*5))));三平底:=COUNT(ABS(下-REF(下,1))<=波動系數2,2)=2 AND VAR19;三平頂:=COUNT(ABS(上-REF(上,1))<=波動系數1,2)=2 AND VAR1A;DRAWTEXT(三平底,下*0.995,'*'),colormagenta;;N:=1;xopen:=(REF(O,N)+REF(C,N))/2;xclose:=CLOSE;xhigh:=MAX(HIGH,xopen);xlow:=MIN(LOW,xopen);volality:=MA(xhigh-xlow,8);凰線:=MA(xclose,5)+volality/2;鳳線:=MA(xclose,5)-volality/2;bu:=CROSS(xclose,凰線);sel:=CROSS(鳳線,xclose);var1:=BARSLAST(bu);var2:=BARSLAST(sel);DRAWICON(REF(var1,1)>var2 AND var1=0,鳳線*0.99,1),align1,valign0;DRAWICON(REF(var2,1)>var1 AND var2=0,凰線*1.01,2),align1,valign2;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?