 | |  |  | 以下是发个主图指标 无未来函数！
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
STICKLINE(A>B,A,B,5,0),COLORYELLOW;
STICKLINE(A<B,A,B,5,0),COLORBLUE;
M1:EMA(CLOSE,5),LINETHICK2;
M2:EMA(CLOSE,10);
M3:EMA(M2,13);
M4:EMA(M2,55);
VAR1:=EMA(M3,55);
M5:EMA(M4,81),COLORRED,LINETHICK2;
VAR2:=(REF(HIGH,1)+REF(LOW,1))/2;
VAR3:=MA(CLOSE,21)+2*STD(CLOSE,21);
DRAWICON(CROSS(VAR2,VAR3),HIGH*1.035,2);
DRAWTEXT(CROSS(VAR2,VAR3),HIGH*1.02,'卖出'),COLORGREEN;
VAR4:=REF(CLOSE,1);
VAR5:=SMA(MAX(CLOSE-VAR4,0),7,1)/SMA(ABS(CLOSE-VAR4),7,1)*100;
VAR6:=CROSS(79,VAR5);
VAR7:=FILTER(VAR6,4);
DRAWICON(VAR7,HIGH*1.035,2);
DRAWTEXT(VAR7,HIGH*1.02,'卖出'),COLORGREEN;
A7:=(2*C+H+L)/4;
VAR10:=LLV(LOW,34);
VAR11:=HHV(HIGH,34);
SK:=EMA((A7-VAR1)/(VAR2-VAR1)*100,7);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>6/10ANDVOL>=1.5*MA(VOL,5)AND
COUNT(SK>=SD,3)ANDREF(LOW,1)=LLV(LOW,120),1,0),LOW,'●买进'),COLORRED;
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),13)/13>6/10AND
COUNT(SK>SD,6)ANDREF(LOW,5)=LLV(LOW,120)ANDREF(CLOSE>=OPEN,4)AND
REF(CLOSE>OPEN,3)ANDREF(CLOSE>OPEN,2)ANDREF(OPEN>CLOSE,1)AND
OPEN>REF(CLOSE,1),1,0),LOW,'●买进'),COLORRED;
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(IF(CLOSE<DANDVOL/240>MA(VOL,5)/240ANDCLOSE>REF(CLOSE,1)*1.08
ANDCLOSE<MA(CLOSE,13)*1.3,1,0),LOW,'●抄底'),COLORRED;
成本价:(MA(CLOSE,60)+MA(CLOSE,70)+MA(CLOSE,90)+MA(CLOSE,108))/4,COLORff9900,LINETHICK0,circledot;
{所属板块}
DRAWTEXTREL(1,100,'所属板块:'+BKNAME),ColorAFFF00;
DRAWTEXTREL(1,220,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+'市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'元'+'市净率:'+NUMTOSTRN((CLOSE/FINANCE2(4)),2)+'元'+'净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'),Color00C0FF;
流通盘亿:CAPITAL/1000000,LINETHICK0,COLORWHITE;
DRAWTEXTABS(0,80,'流通盘：'+CAPITAL/100+'万股，利润增长：'+FINANCE2(10)+'%。每股收益：'+FINANCE2(3)+'元。'),color00DDDD;
{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>1andema(x1,13)>ref(ema(x1,8),1),10),
ema8,'∠45上升'),coloryellow;
平均成本:=COST(50);
获利盘:=WINNER(CLOSE)*100;
DRAWTEXTREL(20,500,'获利盘:'+获利盘+'%'),colormagenta;
DRAWTEXTREL(20,600,'平均成本:'+平均成本),colormagenta;
stickline(L>REF(H,1),L,REF(H,1),50,1001),colorred;
DRAWTEXT(L>REF(H,1),REF(H,1),NUMTOSTRN(REF(H,1),2)+'-'+NUMTOSTRN(L,2)),COLORMAGENTA;
stickline(REF(L,1)>H,ref(L,1),H,50,1001),colorgreen;
DRAWTEXT(REF(L,1)>H,REF(L,1),NUMTOSTRN(ref(l,1),2)+'-'+NUMTOSTRN(h,2)),COLORBLUE;
| |  | |  |
|
