相關標簽:

?

{個股+大盤K線}

?

原理解析：
C1賦值:大盤的收盤價的125日指數移動平均/收盤價的125日指數移動平均 D1賦值:大盤的開盤價/C1 D2賦值:大盤的最高價/C1 D3賦值:大盤的最低價/C1 D4賦值:大盤的收盤價/C1 輸出上證K線:當滿足條件D4>=1日前的D4時,在D3和D2位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,畫紅色 當滿足條件D4>=1日前的D4時,在D4和D1位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫紅色 當滿足條件D4<1日前的D4時,在D3和D2位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFCC66 當滿足條件D4<1日前的D4時,在D4和D1位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFFCC66 輸出主攻線: 收盤價的4日簡單移動平均,畫白色,線寬為2 輸出助攻線:主攻線的8日簡單移動平均,COLORFF00FF,線寬為2 輸出強弱勢分界:主攻線的33日指數移動平均,COLORFFCC66,線寬為2 Y賦值:(最高價+最低價)/2 AO賦值:Y的5日簡單移動平均-Y的21日簡單移動平均 DU0賦值:AO上穿0 UD0賦值:0上穿AO TDU0賦值:上次DU0距今天數 TUD0賦值:上次UD0距今天數 DU3賦值:1日前的DU0 UD3賦值:1日前的UD0 TDU3賦值:上次DU3距今天數 TUD3賦值:上次UD3距今天數 輸出劫:如果TDU3<TUD3,返回TDU3日前的2日內最高價的最高值,否則返回TUD3日前的2日內最低價的最低值,COLOR00FF00 R1賦值:Y的8日[1日權重]移動平均 R2賦值:5日前的R1 KU1賦值:如果最高價=3日內最高價的最高值,返回1,否則返回0 KD1賦值:如果最低價=3日內最低價的最低值,返回1,否則返回0 UL賦值:如果2日前的KU1=1ANDREF(KU1,1)=0ANDKU1=0,返回2日前的最高價,否則返回2+上次2日前的KU1=1ANDREF(KU1,1)=0ANDKU1=0距今天數日前的最高價 DL賦值:如果2日前的KD1=1ANDREF(KD1,1)=0ANDKD1=0,返回2日前的最低價,否則返回2+上次2日前的KD1=1ANDREF(KD1,1)=0ANDKD1=0距今天數日前的最低價 輸出上:如果最高價>=R2,返回UL,否則返回上次最高價>R2距今天數日前的UL,COLOR0066FF,POINTDOT 輸出下:如果最低價<=R2,返回DL,否則返回上次最低價<=R2距今天數日前的DL,COLORAAAE5D,POINTDOT 當滿足條件上次上-1日前的上的絕對值距今天數<上次收盤價>上ANDREF(收盤價,1)<1日前的上距今天數時,在上和上位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLOR0066FF,線寬為2,POINTDOT 當滿足條件上次下-1日前的下的絕對值距今天數<上次收盤價<下ANDREF(收盤價,1)>1日前的下距今天數時,在下和下位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLORAAAE5D,線寬為2,POINTDOT VA賦值:收盤價的4日指數移動平均上穿收盤價的17日指數移動平均 VB賦值:收盤價的6日指數移動平均>收盤價的13日指數移動平均 當滿足條件VAANDVB時,在收盤價的13日指數移動平均位置書寫文字,COLORFF00FF A賦值:收盤價的有效數據周期數 AH賦值:200日內最高價的最高值 AL賦值:200日內最低價的最低值 B0賦值:(AH-AL)/40 B1賦值:最高價+B0 B2賦值:最低價-B0 當滿足條件(A+0)/34=(A+0)/34的向下舍入時,在B2和B2-2*B0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫黃色 當滿足條件(A+0)/34=(A+0)/34的向下舍入時,在B2-2.2*B0位置書寫文字,COLORFFFFFF V1賦值:1日前的收盤價 V2賦值:收盤價-V1和0的較大值的6日[1日權重]移動平均/收盤價-V1的絕對值的6日[1日權重]移動平均*100 當滿足條件如果81上穿V2,返回1,否則返回0時,在最高價*1.03位置書寫文字,COLOR00FF00

?

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

源碼：

?

C1:=EMA(INDEXC,125)/EMA(C,125);
D1:=INDEXO/C1; D2:=INDEXH/C1;
D3:=INDEXL/C1; D4:=INDEXC/C1;
上證K線:STICKLINE(D4>=REF(D4,1),D3,D2,0,0),COLORRED;
STICKLINE(D4>=REF(D4,1),D4,D1,5,0),COLORRED;
STICKLINE(D4< REF(D4,1),D3,D2,0,0),COLORFFCC66;
STICKLINE(D4< REF(D4,1),D4,D1,5,0),COLORFFCC66;
主攻線: MA(CLOSE,4),COLORWHITE,LINETHICK2;
助攻線:MA(主攻線,8),COLORFF00FF,LINETHICK2;
強弱勢分界:EMA(主攻線,33),COLORFFCC66,LINETHICK2;
Y:=(HIGH+LOW)/2;
AO:=MA(Y,5)-MA(Y,21);
DU0:=CROSS(AO,0);
UD0:=CROSS(0,AO);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
劫:IF(TDU3<TUD3,REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3)),COLOR00FF00;
R1:=SMA(Y,8,1);
R2:=REF(R1,5);
KU1:=IF(HIGH=HHV(HIGH,3),1,0);
KD1:=IF(LOW=LLV(LOW,3),1,0);
UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1
AND REF(KU1,1)=0 AND KU1=0)));
DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1
AND REF(KD1,1)=0 AND KD1=0)));
上:IF(HIGH>=R2,UL,REF(UL,BARSLAST(HIGH>R2))),COLOR0066FF,POINTDOT;
下:IF(LOW<=R2,DL,REF(DL,BARSLAST(LOW<=R2))),COLORAAAE5D,POINTDOT;
STICKLINE(BARSLAST(ABS(上-REF(上,1)))<BARSLAST(CLOSE>上 AND REF(CLOSE,1)<REF(上,1)),上,
上,4,1),COLOR0066FF,LINETHICK2,POINTDOT;
STICKLINE(BARSLAST(ABS(下-REF(下,1)))<BARSLAST(CLOSE<下 AND REF(CLOSE,1)>REF(下,1)),下,
下,4,1),COLORAAAE5D,LINETHICK2,POINTDOT;
VA:=CROSS(EMA(CLOSE,4),EMA(CLOSE,17));
VB:=EMA(CLOSE,6)>EMA(CLOSE,13);
DRAWTEXT(VA ANDVB,EMA(CLOSE,13),'▲'),COLORFF00FF;
A:=BARSCOUNT(CLOSE);
AH:=HHV(HIGH,200);
AL:=LLV(LOW,200);
B0:=(AH-AL)/40;
B1:=HIGH+B0;
B2:=LOW-B0;
STICKLINE((A+0)/34=FLOOR((A+0)/34),B2,B2-2*B0,4,0),COLORYELLOW;
DRAWTEXT((A+0)/34=FLOOR((A+0)/34),B2-2.2*B0,'時間窗'),COLORFFFFFF;
V1:=REF(CLOSE,1);
V2:=SMA(MAX(CLOSE-V1,0),6,1)/SMA(ABS(CLOSE-V1),6,1)*100;
DRAWTEXT(IF(CROSS(81,V2),1,0),HIGH*1.03,'●'),COLOR00FF00;

{同圖顯示大盤K線};<!--++ plugin_code qcomic begin--><!--++ plugin_code qcomic end-->

?

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

?