|
DRAWGBK(O>C,RGB(0,50,50),RGB(66,0,0),0,'01',0); {跳空} STICKLINE(HIGH<REF(LOW,1),HIGH,REF(LOW,1),20,0) ,COLOR888888; STICKLINE(LOW>REF(HIGH,1) ,LOW,REF(HIGH,1),20,0),COLOR888888; {EMA21:EMA(CLOSE,21)LINETHICK2,COLORRED;} EMA89:EMA(CLOSE,89)LINETHICK2,COLORGREEN; EMA233:EMA(CLOSE,233)LINETHICK2,COLORMAGENTA; {大资金流向} 超B:=L2_AMO(0,2)/10000.0; 大B:=L2_AMO(1,2)/10000.0; 中B:=L2_AMO(2,2)/10000.0; 小B:=L2_AMO(3,2)/10000.0; 超S:=L2_AMO(0,3)/10000.0; 大S:=L2_AMO(1,3)/10000.0; 中S:=L2_AMO(2,3)/10000.0; 小S:=L2_AMO(3,3)/10000.0; DRAWKLINE(HIGH,OPEN,LOW,CLOSE); 大资金流向:(超B+大B)-(超S+大S)COLORYELLOW,NODRAW; STICKLINE(大资金流向<0,O,C,2,0),COLORFF3300; STICKLINE(大资金流向<0,O,C,1.2,0),COLORFF6600; STICKLINE(大资金流向<0,O,C,0.5,0),COLORFF9900; STICKLINE(大资金流向>0,O,C,2,0),COLOR0066FF; STICKLINE(大资金流向>0,O,C,1.2,0),COLOR099FFF; STICKLINE(大资金流向>0,O,C,0.5,0),COLOR00FFFF; {以下是一组源码} DO:=71031; DA:=81031; DB:=90831; DC:=130628; N:=34; 近高:IF (HIGH>PEAK(1,N,1),HHV(HIGH,21),PEAK(1,N,1)),COLORGREEN; 近低:IF (LOW<TROUGH(2,N,1),LLV(LOW,21),TROUGH(2,N,1)),COLORRED; 分割0.191:(近高-近低)*0.191+近低,DOTLINE,COLORMAGENTA; 分割0.382:(近高-近低)*0.382+近低,DOTLINE,COLORCYAN; 分割0.5:(近高-近低)*0.5+近低,DOTLINE,COLORWHITE; 分割0.618:(近高-近低)*0.618+近低,DOTLINE,COLORCYAN; 分割0.809:(近高-近低)*0.809+近低,DOTLINE,COLORYELLOW; TL:=1000000+DA; TH:=1000000+DB; TC:=1000000+DC; TO:=1000000+DO; AL:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TL),REFDATE(LOW,TL)); BH:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TH),REFDATE(HIGH,TH)); CZF:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TC),REFDATE(LOW,TC)); DJB:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TO),REFDATE(HIGH,TO)); OP:=BH-AL+CZF; COP:=0.618*(BH-AL)+CZF; XOP:=IF((1.618*(BH-AL)+CZF)<0,OP,1.618*(BH-AL)+CZF); TODAY:=DATE; STICKLINE(DATE=TC,CZF,XOP,0,-1),COLORYELLOW; DRAWLINE(DATE=TC,COP,DATE=TODAY,COP,1)DOTLINE,COLORYELLOW; DRAWLINE(DATE=TC,OP,DATE=TODAY,OP,1)DOTLINE,COLORYELLOW; DRAWLINE(DATE=TC,XOP,DATE=TODAY,XOP,1)DOTLINE,COLORYELLOW; DRAWTEXT(DATE=TC,COP*1.01,' COP=0.618'),COLORYELLOW; DRAWTEXT(DATE=TC,OP*1.01,' OP=1.000'),COLORYELLOW; DRAWTEXT(DATE=TC,XOP*1.01,' XOP=1.618'),COLORYELLOW; DRAWNUMBER(DATE=TC,COP,COP),COLORYELLOW; DRAWNUMBER(DATE=TC,OP,OP),COLORYELLOW; DRAWNUMBER(DATE=TC,XOP,XOP),COLORYELLOW; DRAWLINE(DATE=TO,DJB,DATE=TL,AL,0)LINETHICK2,COLORCYAN; DRAWLINE(DATE=TL,AL,DATE=TH,BH,0)LINETHICK2,COLORYELLOW; DRAWLINE(DATE=TH,BH,DATE=TC,CZF,0)LINETHICK2,COLORCYAN; F1:=(BH-0.191*(BH-AL)); F3:=(BH-0.382*(BH-AL)); F5:=(BH-0.5*(BH-AL)); F6:=(BH-0.618*(BH-AL)); F8:=(BH-0.809*(BH-AL)); {DRAWLINE(DATE=TH,F3,DATE=TODAY,F3,1),LINETHICK4,POINTDOT,COLORCYAN; DRAWLINE(DATE=TH,F5,DATE=TODAY,F5,1),LINETHICK4,POINTDOT,COLORCYAN; DRAWLINE(DATE=TH,F6,DATE=TODAY,F6,1),LINETHICK4,POINTDOT,COLORCYAN;} DRAWTEXT(DATE=TH,F1*1.01,' F1=0.191')COLORYELLOW; DRAWTEXT(DATE=TH,F3*1.01,' F3=0.382')COLORCYAN; DRAWTEXT(DATE=TH,F5*1.01,' F5=0.5')COLORWHITE; DRAWTEXT(DATE=TH,F6*1.01,' F6=0.618')COLORCYAN; DRAWTEXT(DATE=TH,F8*1.01,' F8=0.809')COLORYELLOW; DRAWNUMBER(DATE=TH,F1,F1)COLORYELLOW; DRAWNUMBER(DATE=TH,F3,F3)COLORCYAN; DRAWNUMBER(DATE=TH,F5,F5)COLORWHITE; DRAWNUMBER(DATE=TH,F6,F6)COLORCYAN; DRAWNUMBER(DATE=TH,F8,F8)COLORYELLOW; FF1:=(AL-0.191*(AL-DJB)); FF3:=(AL-0.382*(AL-DJB)); FF5:=(AL-0.5*(AL-DJB)); FF6:=(AL-0.618*(AL-DJB)); FF8:=(AL-0.809*(AL-DJB)); {DRAWLINE(DATE=TL,FF3,DATE=TODAY,FF3,1),DOTLINE,COLORWHITE; DRAWLINE(DATE=TL,FF5,DATE=TODAY,FF5,1),DOTLINE,COLORWHITE; DRAWLINE(DATE=TL,FF6,DATE=TODAY,FF6,1),DOTLINE,COLORWHITE; DRAWLINE(DATE=TL,FF8,DATE=TODAY,FF8,1),DOTLINE,COLORWHITE;} DRAWTEXT(DATE=TL,FF1*1.01,' F1=0.191')COLORYELLOW; DRAWTEXT(DATE=TL,FF3*1.01,' F3=0.382')COLORCYAN; DRAWTEXT(DATE=TL,FF5*1.01,' F5=0.5')COLORWHITE; DRAWTEXT(DATE=TL,FF6*1.01,' F6=0.618')COLORCYAN; DRAWTEXT(DATE=TL,FF8*1.01,' F8=0.809')COLORYELLOW; DRAWNUMBER(DATE=TL,FF1,FF1)COLORYELLOW; DRAWNUMBER(DATE=TL,FF3,FF3)COLORCYAN; DRAWNUMBER(DATE=TL,FF5,FF5)COLORWHITE; DRAWNUMBER(DATE=TL,FF6,FF6)COLORCYAN; DRAWNUMBER(DATE=TL,FF8,FF8)COLORYELLOW; |
|
|
来自： 鈡吾 > 《帝纳波利点为交易法》
