input:WS(0,0,9);{//WS是N的尾数,WS=0,尾数,0~9之间整数,可调节参数} RSV:=(C-LLV(L,15))/(HHV(H,15)-LLV(L,15))*100; K:=(SMA(RSV,10,1)); D:=(SMA(K,5,1)); KK:=INTPART(SMA(RSV,10,1)); DD:=INTPART((SMA(K,5,1))); N:KK+DD,LINETHICK1,COLORGREEN; A:KK-DD,LINETHICK1,COLORWHITE; A1:REF(KK-DD,1),LINETHICK1,COLORCYAN; A2:=REF(KK-DD,2); STICKLINE(N<25,-25,-15,10,0),align0,linethick3,COLORYELLOW; {表格竖线} x:=DISPSTATUS=2=BARPOS; k:=(DISPSTATUS=3)-(DISPSTATUS=2)/110; x1:=(DISPSTATUS=2)+INTPART(12*k)=BARPOS; x2:=(DISPSTATUS=2)+INTPART(28*k)=BARPOS; x3:=(DISPSTATUS=2)+INTPART(46*k)=BARPOS; x4:=(DISPSTATUS=2)+INTPART(62*k)=BARPOS; x5:=(DISPSTATUS=2)+INTPART(80*k)=BARPOS; x6:=(DISPSTATUS=2)+INTPART(103*k)=BARPOS; VERTLINE(x or x1 or x2 or x3or x4 or x5 or x6,1 ),colorgray; {表格横线} DRAWLINE(x,-20,x6,-20,0),colorgray; DRAWLINE(x,14,x6,14,0),colorgray; DRAWLINE(x,49,x6,49,0),colorgray; DRAWLINE(x,83,x6,83,0),colorgray; DRAWLINE(x,120,x6,120,0),colorgray; {卖点} 卖:=7*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*30,4,1) -3*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*30,4,1),3,1) -sma(SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*30,4,1),3,1),2,1); {-----------------【图解模板】---------------------} 尾数:MOD(n,10),LINETHICK1,COLORWHITE; N的尾数:IF(尾数=WS,0,1),LINETHICK1,COLORWHITE; {信号} STICKLINE(尾数=WS,38,-20,5,0),COLORGRAY; drawicon(N<15,-20,1),ALIGN0; {drawicon(A1=0,-20,10),ALIGN0; drawicon((A>8 and A1>=0 and A2<0),-20,6),ALIGN0; drawicon(A>8 and A1<-8,-20,4),ALIGN0; {填表}{我的电脑上表格没有显示,先这么用吧,楼主注释 } xx1:=ref(N,3); xx2:=ref(N,2); xx3:=ref(N,1); xx4:=N; DRAWTEXT(x,108,' (N值) '),COLORGREEN;{//------------------} DRAWTEXT(x1,108,' 前三天 = '+NUMTOSTR(xx1)),COLORGREEN; DRAWTEXT(x2,108,' 前二天 = '+NUMTOSTR(xx2)),COLORGREEN; DRAWTEXT(x3,108,' 前一天 = '+NUMTOSTR(xx3)),COLORGREEN; DRAWTEXT(x4,108,' 当天 = '+NUMTOSTR(xx4)),COLORGREEN; DRAWTEXT(x5,108,' N值小于25时,要格外注意'),COLORGREEN; yy1:=ref(A1,3); yy2:=ref(A1,2); yy3:=ref(A1,1); yy4:=A1; DRAWTEXT(x,71,' (A1值) '),COLORCYAN;{//------------------} DRAWTEXT(x1,71,' 前三天 = '+NUMTOSTR(yy1)),COLORCYAN; DRAWTEXT(x2,71,' 前二天 = '+NUMTOSTR(yy2)),COLORCYAN; DRAWTEXT(x3,71,' 前一天 = '+NUMTOSTR(yy3)),COLORCYAN; DRAWTEXT(x4,71,' 前一天 = '+NUMTOSTR(yy4)),COLORCYAN; DRAWTEXT(x5,71,' A1=0 时,很容易大涨'),COLORCYAN; ZZ1:=ref(kk,3); ZZ2:=ref(kk,2); ZZ3:=ref(kk,1); ZZ4:=kk; DRAWTEXT(x,38,' (KK值) '),ColorE9A6E9;{//-----------------} DRAWTEXT(x1,38,' 前三天 = '+NUMTOSTR(ZZ1)),ColorE9A6E9; DRAWTEXT(x2,38,' 前二天 = '+NUMTOSTR(ZZ2)),ColorE9A6E9; DRAWTEXT(x3,38,' 前一天 = '+NUMTOSTR(ZZ3)),ColorE9A6E9; DRAWTEXT(x4,38,' 当天 = '+NUMTOSTR(ZZ4)),ColorE9A6E9; DRAWTEXT(x5,38,' KK值一天比一天大为正转'),ColorE9A6E9; WW1:=ref(DD,3); WW2:=ref(DD,2); WW3:=ref(DD,1); WW4:=DD; DRAWTEXT(x,2,' (DD值) '),COLORYELLOW;{//------------------} DRAWTEXT(x1,2,' 前三天 = '+NUMTOSTR(WW1)),COLORYELLOW; DRAWTEXT(x2,2,' 前二天 = '+NUMTOSTR(WW2)),COLORYELLOW; DRAWTEXT(x3,2,' 前一天 = '+NUMTOSTR(WW3)),COLORYELLOW; DRAWTEXT(x4,2,' 当天 = '+NUMTOSTR(WW4)),COLORYELLOW; DRAWTEXT(x5,2,' DD值一天比一天大为正转'),COLORYELLOW; DRAWTEXT(x6,120,' \n \n \n \n \n \n 大盘走牛时,\n N的尾数相同,\n 不小心 \n 就会让你 \n 骑上一匹黑马'),COLORWHITE; DRAWTEXT(cross(78.89,卖),120,' ★ \n▽'),ALIGN0,ColorFF9000;
{点击看本软件截图: 58股票 公式网 http://www. 58gu. com 整理} |