相關(guān)標(biāo)簽:

 

主圖一個《大家好好琢磨工作3和工作36，以及生命453》
每一條線的日期不是絕對的，關(guān)鍵的問題是他們的關(guān)系。
《第一個圖是周線
和股票沒有關(guān)系，不是推薦股票》

input:N(3,1,111);
{現(xiàn)價}
MA1:=MA(C,1);
DRAWTEXTREL(330,915,'現(xiàn)價：'+NUMTOSTRN(MA1,2)),LINETHICK7,COLORred;
A1:=BARSTATUS = 2;
A2:=(REF(HIGH,N)) = (HHV(HIGH,((2 * N) + 1)));
A3:=BACKSET(A2,(N + 1));
A4:=(FILTER(A3,N)) AND (HIGH = (HHV(HIGH,(N + 1))));
A5:=(REF(LOW,N)) = (LLV(LOW,((2 * N) + 1)));
A6:=BACKSET(A5,(N + 1));
A7:=(FILTER(A6,N)) AND (LOW = (LLV(LOW,(N + 1))));
A8:=A1 AND (REF(A4,BARSLAST(A4)));
A9:=BACKSET(A8,(BARSLAST(A4) + 1));
A10:=A9 > (REF(A9,1));
A11:=REF(BARSLAST(A4),1);
A12:=BACKSET(A10,(A11 + 2));
A13:=A12 > (REF(A12,1));
A14:=BACKSET(A13,(A11 + 2));
A15:=A14 > (REF(A14,1));
A16:=BACKSET(A15,(A11 + 2));
A17:=A16 > (REF(A16,1));
短:DRAWLINE(A13,HIGH,A10,HIGH,1),colorMagenta;
中:DRAWLINE(A15,HIGH,A13,HIGH,1),colorMagenta;
長:DRAWLINE(A17,HIGH,A15,HIGH,1),colorMagenta;
平壓:DRAWLINE(A10,HIGH,(REF(A10,1)),(REF(HIGH,1)),1),linethick2,colorYellow;
A18:=A1 AND (REF(A7,BARSLAST(A7)));
A19:=BACKSET(A18,(BARSLAST(A7) + 1));
A20:=A19 > (REF(A19,1));
A21:=REF(BARSLAST(A7),1);
A22:=BACKSET(A20,(A21 + 2));
A23:=A22 > (REF(A22,1));
A24:=BACKSET(A23,(A21 + 2));
A25:=A24 > (REF(A24,1));
A26:=BACKSET(A25,(A21 + 2));
A27:=A26 > (REF(A26,1));
短支:DRAWLINE(A23,LOW,A20,LOW,1),colorGreen;
中支:DRAWLINE(A25,LOW,A23,LOW,1),colorGreen;
長支:DRAWLINE(A27,LOW,A25,LOW,1),colorGreen;
平支:DRAWLINE(A20,LOW,(REF(A20,1)),(REF(LOW,1)),1),linethick2,colorWhite;
工作3:eMA(CLOSE,3),PRECIS2,colorred;
工作36:eMA(CLOSE,36),DOTLINE,LINETHICK1;
二號119:eMA(CLOSE,119),coloryellow;三號166:eMA(CLOSE,179),colorgreen;
四號256:eMA(CLOSE,256),colorblue;生命453:eMA(CLOSE,453),Color8000FF,linethick2;
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'←買入'),CROSSDOT,LINETHICK1,COLORRED;
DRAWTEXT(賣１>0,HIGH*1.02,'←賣出'),CROSSDOT,LINETHICK1,COLORGREEN;
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
W:=BARSLAST(DISPSTATUS=1);
低漲:(H/LLV(LOW,W)-1)*100,COLOR0000FF,LINETHICK0,PRECIS2;
高跌:(L/HHV(HIGH,W)-1)*100,COLOR0000FF,LINETHICK0,PRECIS2;
天日:BARSLAST(L=LLV(LOW,W)),COLOR00FFFF,LINETHICK0,PRECIS0;
天:BARSLAST(H=HHV(HIGH,W)),COLOR00FFFF,LINETHICK0,PRECIS0;
{以下設(shè)置提示文字部分}
DRAWTEXTREL(15,480,'■低點至今日最高點上漲:'+NUMTOSTRN(低漲,2)+'％ '+NUMTOSTRN(天日,0)+'天'),COLORFF50FF;
DRAWTEXTREL(15,620,'■目前可見K線:'+NUMTOSTRN(W+1,0)+'天'),COLOR00FF00;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標(biāo)公式');


CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標(biāo)公式');

 

 

有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友

可聯(lián)系技術(shù)人員 QQ: 1145508240  進(jìn)行 有償 編寫！（不貴！點擊查看價格！）