相關標簽:

?

頂底類指標，買入分批，賣出參考BIAS，廢話不多說。

?

?

原理解析：
N賦值:10 F賦值:25 VAR1賦值:9日內最高價的最高值-9日內最低價的最低值 VAR2賦值:9日內最高價的最高值-收盤價 VAR3賦值:收盤價-9日內最低價的最低值 VAR4賦值:VAR2/VAR1*100-70 VAR5賦值:(收盤價-60日內最低價的最低值)/(60日內最高價的最高值-60日內最低價的最低值)*100 VAR6賦值:(最高價+最低價+開盤價+收盤價)/4 VAR7賦值:VAR3/VAR1*100的3日[1日權重]移動平均 VAR8賦值:34日內最低價的最低值 VAR9賦值:VAR7的3日[1日權重]移動平均-VAR4的9日[1日權重]移動平均 VARA賦值:如果VAR9>100,返回VAR9-100,否則返回0 VARB賦值:34日內最高價的最高值 VARC賦值:(VAR6-VAR8)/(VARB-VAR8)*100的13日指數移動平均 VARD賦值:0.667*1日前的VARC+0.333*VARC的2日指數移動平均 VARE賦值:收盤價-1日前的收盤價和0的較大值/收盤價的8日[1日權重]移動平均/大盤的收盤價-1日前的大盤的收盤價的絕對值/大盤的收盤價的8日[1日權重]移動平均*100-25 VARF賦值:VARE的3日簡單移動平均 VAR10賦值:1日前的VARF 輸出生命線:VARD的N日指數移動平均, COLORFFAA00 VAR11賦值:(收盤價-F日內最低價的最低值)/(F日內最高價的最高值-F日內最低價的最低值)*100 K賦值:VAR11的3日[1日權重]移動平均 D賦值:K的3日[1日權重]移動平均 輸出紅燈亮買: 當滿足條件VARC上穿VARDANDVARC>VARDANDVARC<18時,在36和0位置之間畫柱狀線,寬度為1,0不為0則畫空心柱., 畫紅色 輸出見紅:如果VARC>18,返回0,否則返回如果VARC上穿VARDANDVARC>VARDANDVARC<18,返回37,否則返回0,COLOR3355FF 輸出浪尖: 當滿足條件VARD上穿VARCANDVARC<VARDANDVARC>60時,在90和100位置之間畫柱狀線,寬度為12,1不為0則畫空心柱.,畫藍色 如果VARC<79,返回100,否則返回如果VARD上穿VARCANDVARD>79ANDVARC>79,返回70,否則返回100,COLOR00FF00 //////當滿足條件VARC-VARD<0時,在VARC和VARD位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR00FF00 KAR1賦值:3*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均-2*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 KAR2賦值:(收盤價-26日內最低價的最低值)/(26日內最高價的最高值-26日內最低價的最低值)*100 KAR3賦值:KAR2的3日[1日權重]移動平均的3日[1日權重]移動平均 KAR4賦值:KAR3的5日指數移動平均 KAR5賦值:26日內最低價的最低值 KAR6賦值:34日內最高價的最高值 KAR7賦值:(收盤價-KAR5)/(KAR6-KAR5)*4的4日指數移動平均*25 KAR8賦值:100-KAR1 KAR9賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 KAR10賦值:KAR9的3日[1日權重]移動平均 KAR11賦值:KAR10的3日[1日權重]移動平均 KAR12賦值:3*KAR10-2*KAR11的3日指數移動平均 KAR13賦值:(-1)*(KAR8的1日指數移動平均-50)+50 KAR14賦值:100*(14日內最高價的最高值-收盤價)/(14日內最高價的最高值-14日內最低價的最低值)的6日指數移動平均 輸出底部:當滿足條件KAR4上穿10ANDKAR4>10時,在50和0位置之間畫柱狀線,寬度為10,0不為0則畫空心柱.,畫黃色 輸出建倉: 如果(KAR7<10),返回18,否則返回0, COLORCC00FF TIPTEXT(ISNULL(1日后的&收盤價),0,' m.weiqiv.net.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

?來源:程序化99（ m.weiqiv.net.cn ）

源碼：

?

?

n:=10;
f:=25;
Var1:=HHV(HIGH,9)-LLV(LOW,9);
Var2:=HHV(HIGH,9)-CLOSE;
Var3:=CLOSE-LLV(LOW,9);
Var4:=Var2/Var1*100-70;
Var5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
Var6:=(HIGH+LOW+OPEN+CLOSE)/4;
Var7:=SMA(Var3/Var1*100,3,1);
Var8:=LLV(LOW,34);
Var9:=SMA(Var7,3,1)-SMA(Var4,9,1);
VarA:=IF(Var9>100,Var9-100,0);
VarB:=HHV(HIGH,34);
VarC:=EMA((Var6-Var8)/(VarB-Var8)*100,13);
VarD:=EMA(0.667*REF(VarC,1)+0.333*VarC,2);
VarE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(ABS(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25;
VarF:=MA(VarE,3);
Var10:=REF(VarF,1);
生命線:EMA(VarD,N), colorFFAA00;
Var11:=(CLOSE-LLV(LOW,F))/(HHV(HIGH,F)-LLV(LOW,F))*100;
K:=SMA(Var11,3,1);
D:=SMA(K,3,1);
紅燈亮買: STICKLINE(CROSS(VarC,VarD) AND VarC>VarD AND VarC<18,36,0,1,0), colorred;
見紅:IF(VarC>18,0,IF(CROSS(VarC,VarD) AND VarC>VarD AND VarC<18,37,0)),COLOR3355FF;
浪尖: STICKLINE(CROSS(VarD,VarC) AND VarC<VarD AND VarC>60,90,100,12,1),colorblue;
IF(VarC<79,100,IF(CROSS(VarD,VarC) AND VarD>79 AND VarC>79,70,100)),COLOR00ff00;//{燈塔脈沖}
//{
//賣: STICKLINE(FILTER(CROSS(VarD,VarC),10) AND VarD>79 AND VarC>79,100,95,4,0),colorgreen;{畫綠色倒燈樁}
//{
STICKLINE(VarC-VarD>0,VarC,VarD,8,1),COLOR0000FF;//{多頭行情顯出紅柱狀}
STICKLINE(VarC-VarD<0,VarC,VarD,8,0),COLOR00FF00;//{空頭行情顯出綠色柱狀}
kar1:=3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
kar2:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;
kar3:=SMA(SMA(kar2,3,1),3,1);
kar4:=EMA(kar3,5);
kar5:=LLV(LOW,26);
kar6:=HHV(HIGH,34);
kar7:=EMA((CLOSE-kar5)/(kar6-kar5)*4,4)*25;
kar8:=100-kar1;
kar9:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
kar10:=SMA(kar9,3,1);
kar11:=SMA(kar10,3,1);
kar12:=EMA(3*kar10-2*kar11,3);
kar13:=(-1)*(EMA(kar8,1)-50)+50;
kar14:=EMA(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),6);
底部:STICKLINE(CROSS(kar4,10) AND kar4>10,50,0,10,0),coloryellow;
建倉: IF((kar7<10),18,0), colorcc00ff;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' m.weiqiv.net.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?