相關標簽:

?

?

?

原理解析：
填充背景 MA6賦值:收盤價的6日簡單移動平均 MA18賦值:收盤價的18日簡單移動平均 輸出MA3:(3)*(MA18) - (2)*(MA6),線寬為2,POINTDOT,COLORD39D91 輸出MA4:(3)*(MA6) - (2)*(MA18),線寬為2,POINTDOT,COLORFF00 輸出M1:((收盤價+最低價)/(2)的2日指數移動平均)/(2.98)的3日累和,POINTDOT,COLOR00CCFF 輸出M21:M1的21日指數移動平均,COLORFF00FF 輸出M30:收盤價的30日簡單移動平均,線寬為1,COLORFF VAR1賦值:(2)*((8日內(收盤價+最低價)/(2)的最低值)*(1.1)的13日簡單移動平均) - (收盤價+最低價)/(2)的3日指數移動平均 - ((收盤價 + 最低價)/(2))*(0.1) VAR2賦值:如果(((收盤價+最低價)/(2)的3日指數移動平均-VAR1)*(5)>0),返回(((收盤價+最低價)/(2)的3日指數移動平均-VAR1)*(5)的2乘冪)/(10),否則返回(((-1))*(((收盤價+最低價)/(2)的3日指數移動平均-VAR1)*(5)的2乘冪))/(10) VAR3賦值:如果(VAR2>0),返回VAR2-0,否則返回(-1) 當滿足條件VAR3上穿0AND((收盤價+最低價)/(2)>(收盤價+最低價)/(2)的8日簡單移動平均)時,在(M21)*(1.01)位置書寫文字,線寬為2,畫白色 當滿足條件VAR3上穿0AND((收盤價+最低價)/(2)>(收盤價+最低價)/(2)的8日簡單移動平均)時,在(最低價)*(0.99)和(最低價)*(0.95)位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫黃色 ZZ賦值:(開盤價+最高價+最低價)/3 輸出買:ZZ的4日指數移動平均,COLOR00CCFF,線寬為1 YC賦值:(最高價+最低價)/2 YCHJX賦值:(ZZ的4日指數移動平均)+(YC-3日前的ZZ)/4 當滿足條件BARPOS=SYSPARAM(2)時,在收盤價位置書寫文字ALIGN4,線寬為2,畫紅色 當滿足條件BARPOS=SYSPARAM(2)時,在最低價位置書寫文字PXDN40,ALIGN4,線寬為2,畫綠色 當滿足條件BARPOS=SYSPARAM(2)時,在收盤價位置書寫文字ALIGN4,線寬為2,畫紅色 X1賦值:(收盤價+最低價+最高價)/3 X2賦值:X1的6日指數移動平均 X3賦值:X2的5日指數移動平均 當滿足條件X2上穿X3時,在最低價-0.1位置畫10號圖標 當滿足條件X3上穿X2時,在最高價+0.1位置畫12號圖標 當滿足條件X2>=X3時,在最低價和最高價位置之間畫柱狀線,寬度為0.1,1不為0則畫空心柱.,COLOR0000DD 當滿足條件X2>=X3時,在收盤價和開盤價位置之間畫柱狀線,寬度為9,2不為0則畫空心柱.,COLOR0000DD 當滿足條件X2>=X3時,在收盤價和開盤價位置之間畫柱狀線,寬度為9,8不為0則畫空心柱.,COLORFF 當滿足條件X2<X3時,在最低價和最高價位置之間畫柱狀線,寬度為0.1,1不為0則畫空心柱.,畫綠色 當滿足條件X2<X3時,在收盤價和開盤價位置之間畫柱狀線,寬度為9,2不為0則畫空心柱.,畫綠色 當滿足條件X2上穿X3時,在開盤價和收盤價位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,COLOR00CCFF 當滿足條件X3上穿X2時,在開盤價和收盤價位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,畫藍色 VARC賦值:收盤價-1日前的收盤價和0的較大值的6日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的6日[1日權重]移動平均*100 當滿足條件82上穿VARC時,在最高價位置畫2號圖標 VAR6賦值:1日前的收盤價 VAR7賦值:收盤價-VAR6和0的較大值的6日[1日權重]移動平均/收盤價-VAR6的絕對值的6日[1日權重]移動平均*100 當滿足條件84上穿VAR7時,在最高價*1.01位置書寫文字,畫綠色 輸出A:收盤價的14日簡單移動平均,COLORFF00FF,線寬為0 A1賦值:(收盤價+最高價+最低價)/(3) B賦值:A1的21日指數移動平均 B2賦值:1日前的B MA55賦值:收盤價的55日指數移動平均 當滿足條件(B>B2)時,在MA55位置書寫文字,畫黃色 當滿足條件(B<B2)時,在MA55位置書寫文字,COLORFF00 賦值:'星期六' 賦值:'星期日' 賦值:'星期一' 賦值:'星期二' 賦值:'星期三' 賦值:'星期四' 賦值:'星期五' FY賦值:年份 FM賦值:月份 FD賦值:日 LFY賦值:LYEAR LFM賦值:LMONTH LFD賦值:LDAY WD賦值:星期 P賦值:SYSPARAM(1) STR1賦值:'今天是：'+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日(農歷：'+NUMTOSTR(LFY[P],0)+'年'+NUMTOSTR(LFM[P],0)+'月'+NUMTOSTR(LFD[P],0)+'日) '+WDAY[WD[P]+1]+'' DRAWTEXTEX(收盤價,1,230,80,STR1),COLOR0098FF 當滿足條件SYSPARAM(2)=BARPOS時,在收盤價位置書寫文字,COLOR00CCFF,ALIGN4

?

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

源碼：

?

?

{射擊之星}
DRAWGBK(1,COLORRGB(0,0,20),COLORRGB(0,60,50),1);
MA6:=MA(CLOSE,6);
MA18:=MA(CLOSE,18);
MA3:(3)*(MA18) - (2)*(MA6),LINETHICK2,POINTDOT,COLORD39D91;
MA4:(3)*(MA6) - (2)*(MA18),LINETHICK2,POINTDOT,colorFF00;
M1:SUM((EMA((CLOSE + LOW)/(2),2))/(2.98),3),POINTDOT,COLOR00CCFF;
M21:EMA(M1,21),COLORFF00FF;
M30:MA(CLOSE,30),LINETHICK1,colorFF;
VAR1:=(2)*(MA((LLV((CLOSE + LOW)/(2),8))*(1.1),13)) - EMA((CLOSE + LOW)/(2),3) - ((CLOSE + LOW)/(2))*(0.1);
VAR2:=IF(((EMA((CLOSE + LOW)/(2),3) - VAR1)*(5) > 0),(POW((EMA((CLOSE + LOW)/(2),3) - VAR1)*(5),2))/(10),(((-1))*(POW((EMA((CLOSE + LOW)/(2),3) - VAR1)*(5),2)))/(10));
VAR3:=IF((VAR2 > 0),VAR2 - 0,(-1));
DRAWTEXT(CROSS(VAR3,0) AND ((CLOSE + LOW)/(2) > MA((CLOSE + LOW)/(2),8)),(M21)*(1.01),'射擊'),LINETHICK2,COLORWHITE;
STICKLINE(CROSS(VAR3,0) AND ((CLOSE + LOW)/(2) > MA((CLOSE + LOW)/(2),8)),(LOW)*(0.99),(LOW)*(0.95),4,0),COLORYELLOW;
zz:=(o+h+l)/3;
買:EMA(zz,4),COLOR00CCFF,LINETHICK1;
yc:=(h+l)/2;
ychjx:=(EMA(zz,4))+(yc-ref(zz,3))/4;
DRAWTEXT(BARPOS=SYSPARAM(2),c,'\n \n 昨測買點：'+NUMTOSTR(ref(ychjx,1),2))align4,LINETHICK2,colorred;
DRAWTEXT(BARPOS=SYSPARAM(2),l,'\n \n \n 今日買點：'+NUMTOSTR(買,2 ))PXDN40,align4,LINETHICK2,colorgreen;
DRAWTEXT(BARPOS=SYSPARAM(2),c,'\n \n \n \n 買點：'+NUMTOSTR(ychjx,2))align4,LINETHICK2,colorred;
x1:=(C+L+H)/3;
x2:=EMA(x1,6);
x3:=EMA(x2,5);
DRAWICON(CROSS(X2,X3),L-0.1,10);
DRAWICON(CROSS(X3,X2),H+0.1,12);
stickline(x2>=x3,low,high,0.1,1),COLOR0000dd;
stickline(x2>=x3,close,open,9,2),COLOR0000dd;
stickline(x2>=x3,close,open,9,8),colorFF;
stickline(x2<x3,low,high,0.1,1),colorGREEN;
stickline(x2<x3,close,open,9,2),colorGREEN;
stickline(CROSS(X2,X3),open,close,6,1),COLOR00CCFF;
stickline(CROSS(X3,X2),open,close,6,1),colorBLUE;
varC:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
DRAWICON(CROSS(82,varC),HIGH,2);
var6:=REF(C,1);
var7:=SMA(MAX(C-var6,0),6,1)/SMA(ABS(C-var6),6,1)*100;
DRAWTEXT(CROSS(84,var7),H*1.01,'↓'),COLORGREEN ;
A:MA(CLOSE,14),ColorFF00FF,LINETHICK0;
A1:=(CLOSE+HIGH+LOW)/(3);
B:=EMA(A1,21);
B2:=REF(B,1);
MA55:=EMA(CLOSE,55);
DRAWTEXT((B>B2),ma55,'*'),Coloryellow;
DRAWTEXT((B<B2),ma55,'*'),colorFF00;
variable:
wday[7]:='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
lfy:=LYEAR;
lfm:=LMONTH;
lfd:=LDAY;
wd:=WEEKDAY;
p:=SYSPARAM(1);
str1:='今天是：'+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日(農歷：'+NUMTOSTR(lfy[p],0)+'年'+NUMTOSTR(lfm[p],0)+'月'+NUMTOSTR(lfd[p],0)+'日) '+wday[wd[p]+1]+'';
DRAWTEXTEX(c,1,230,80,str1),Color0098FF;
DRAWTEXT(sysparam(2)=BARPOS,c,'所屬板塊:'+BLKNAME),COLOR00CCFF,ALIGN4;

?

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

?