马上注册,享用更多功能,让你轻松玩转本论坛。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
{决策线}
input:N(5,1,111),N1(10,1,111),P(3,0.1,30),M(21,0,100);
a1:=(IF((DATE <= 1091025),1,0)) * (IF((CURRENTDATE <= 1091025),1,0));
a2:=IF((CLOSE < 800),((AMOUNT / VOL)/100),((((CLOSE * 2) + HIGH) + LOW) / 4));
a3:=((HHV(HIGH,15)) + (LLV(LOW,30)))/2;
a4:=EMA((MA(a2,5)),10);
a5:=EMA((MA(a2,15)),10);
a6:=EMA((MA(a2,13)),21);
a7:=((a4 + a5) + a6) / 3;
a8:=(((REF(a7,1)) + a7) + (REF(a7,2)))/3;
决策线:EMA((MA(CLOSE,5)),3),colorGreen;
PARTLINE(决策线,决策线 > (REF(决策线,3)),RGB(255,0,0)),linethick1,colorRed;{没有它决策线不变色};
决策线角度:IF(dynainfo(4)>0,ATAN((决策线/REF(决策线,1)-1)*100)*180/3.1416,0),colorcyan,linethick0;
现价:C,Color888888,LINETHICK0;{现价设置}
{K线颜色从颜色边缘开始向中心渐变}
{45度}
x1:=(C+L+H)/3;
bb13:=atan(ema(x1,13)-ref(ema(x1,13),1))*3.1416*10;
ema8:=ema(c,8);
DRAWTEXT(filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10),
ema8,'∠45上升'),colorred;
四十五度:filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10),LINETHICK0;
{阻力位和支撑位}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
G:=95;
DRAWTEXT(cross(J,D),L*0.999,''),Color00ffff,linethick4;
DRAWTEXT(cross(J,D),L,''),Color00ffff;
DRAWTEXT(cross(J,G),H*1.005,''),Colorffff00,linethick4;
DRAWTEXT(cross(J,G),H,''),Colorffff00;
dp:=if(c=INDEXC,0,1);
gj:=AMOUNT/v/100;
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(DISPSTATUS=2 and dp=1 and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日支撑,今日支撑,今日支撑,30,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2 and dp=1 and c<今日支撑,今日支撑,今日支撑,30,0),ColorFF0000;
if DISPSTATUS=2 then a:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;
d:=a-b;
e:=hhv(h,d);
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2, e*1.08,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=今日支撑, e*1.07,'今日支撑=:'+NUMTOSTRN(今日支撑 ,2 )+' '),ColorFF00FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<今日支撑, e*1.07,'今日支撑=:'+NUMTOSTRN(今日支撑 ,2 )+' '),ColorFF0000,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=今日阻力, e*1.07,'今日阻力=:'+NUMTOSTRN(今日阻力 ,2 )),Color0000FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<今日阻力, e*1.07,'今日阻力=:'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2, e*1.04,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=明日支撑, e*1.05,'明日支撑=:'+NUMTOSTRN(明日支撑 ,2 )+' '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<明日支撑, e*1.05,'明日支撑=:'+NUMTOSTRN(明日支撑 ,2 )+' '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=明日阻力, e*1.05,'明日阻力=:'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<明日阻力, e*1.05,'明日阻力=:'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日,且有继续增大趋势'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日,但有放大迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日,且有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日,且有缩小迹象'),Color8285FF,ALIGN2;
{当日强势}
当日强势:现价>今日阻力,colorff22ff,linethick0;
DRAWTEXT(当日强势,现价*1,'◆'),Coloryellow,LINETHICK1;
{连续强势}
连续强势:last(当日强势>0),colorRED,linethick0;
{背景文字}
DRAWTEXTREL(8,18,'麒元决策主图'),LINETHICK5,Coloryellow;
{个人印章}
DRAWRECTABS(171 ,12,215 ,57 ,0),LINETHICK4,COLOR6600FF;
DRAWTEXTABS(177 ,17,'元陶'),LINETHICK2,COLOR6600FF;
DRAWTEXTABS(177 ,37,'印麒'),LINETHICK2,COLOR6600FF;
Q:=20;
Q1:=7;
Q2:=69;
T1:=IF((DATE<=1501228),1,0);
M3:=EMA(CLOSE,3);
M8:=EMA(CLOSE,8);
M13:=EMA(M8,13);
M62:=EMA(M8,55);
VAR1:=EMA(M13,62);
M81:=EMA(M62,81);
M144:=EMA(VAR1,144);
M250:=EMA(VAR1,250);
VAR2:=(CLOSE+HIGH+LOW)/(3);
VAR3:=(EMA(VAR2,10))*(T1);
VAR4:=(REF(VAR3,1))*(T1);
STICKLINE((VAR3>VAR4),VAR3,VAR4,4,0),CoLor00FFFF;
STICKLINE((VAR3<VAR4),VAR3,VAR4,4,0),CoLorFF0000;
VAR5:=((REF(HIGH,1)+REF(LOW,1))/(2))*(T1);
VAR6:=MA(CLOSE,Q)+((2)*(STD(CLOSE,Q)))*(T1);
启动CROSS(VAR3,VAR4)),Color00FDFF,LINETHICK0;
DRAWTEXT(CROSS(VAR3,VAR4),(VAR3)*(0.98),'★'),CoLor00FFFF;
DRAWTEXT(CROSS(VAR5,VAR6),(HIGH)*(1.04),'↓卖'),CoLor008000;
VAR7:=REF(CLOSE,1);
VAR8:=((SMA(MAX(CLOSE-VAR7,0),Q1,1))/(SMA(ABS(CLOSE-VAR7),Q1,1)))*(100);
VAR9:=CROSS(Q2,VAR8);
VARA:=(FILTER(VAR9,4))*(T1);
DRAWTEXT(VARA,(HIGH)*(1.04),'↓卖'),CoLorFFFFFF;
VARB:=((2)*(CLOSE)+HIGH+LOW)/(4);
VARC:=LLV(LOW,34);
VARD:=HHV(HIGH,34);
VARE:=(EMA(((VARB-VAR1)/(VAR5-VAR1))*(100),7))*(T1);
VARF:=(EMA((0.667)*(REF(VARE,1))+(0.333)*(VARE),5))*(T1);
DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),8))/(8)>0.6) AND (VOL>=(1.5)*(MA(VOL,5))) AND COUNT((VARE>=VARF),3) AND (REF(LOW,1)=LLV(LOW,120)),1,0),LOW,'●买进'),CoLorFF00FF;
DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),13))/(13)>0.6) AND COUNT((VARE>VARF),6) AND (REF(LOW,5)=LLV(LOW,120)) AND REF((CLOSE>=OPEN),4) AND REF((CLOSE>OPEN),3) AND REF((CLOSE>OPEN),2) AND REF((OPEN>CLOSE),1) AND (OPEN>REF(CLOSE,1)),1,0),LOW,'●买进'),CoLor00FFFF;
VAR10:=(MA(CLOSE,80)-(MA(CLOSE,10))/(3))*(T1);
DRAWTEXT(IF((CLOSE<VAR10) AND ((VOL)/(240)>(MA(VOL,5))/(240)) AND (CLOSE>(REF(CLOSE,1))*(1.08)) AND (CLOSE<(MA(CLOSE,13))*(1.3)),1,0),LOW,'●抄底'),CoLor0000FF;
|