飞狐主图 DRAWGBK(1,COLORRGB(44,22,108),COLORRGB(432,22,108),0); STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.5,0),LINETHICK5,color10000; STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),OPEN,CLOSE,9,0),LINETHICK5,color10000; STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.5,0),LINETHICK5,color10000; STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),OPEN,CLOSE,9,0),LINETHICK5,color10000; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),color000055; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,6,0),color000099; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,4,0),color0000dd; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,2,0),color0000ff; STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),colorred; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),color009900; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,6,0),color00aa00; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,4,0),color00bb00; STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,2,0),color00dd00; STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),color009900; {<波浪尺>原来比例 的公式)使用 X1835} {☆§提示:1学习波浪知识的同学所使用, 2计算机画线不能代替手工作图。 3确定历史数据完整。 4只用在飞狐} {☆§说明: 1考虑到期货中三浪常打破一浪底,所以就对P一浪A和P三浪C没有定高低的关系限制,且在延长浪中也可见机使用 2公式必须由使用者打出十字光标后,并且选择参数才能使用, 3调整参5和参236的数值就可以打开0.5和0.236倍数的线。 0.382和0.618的倍数取了3组数(例:0.382,1.382 2.382三组)根据飞狐原有的1的倍数取了2组数,第三组可以修改公式 里的内容打开第三组。 准备了0.5和0.236的备选。 还有2个自定义的数字,由使用者自己写入所需的比例数值。} input:p(10,1,30),参a(2,1,111),参b(1,1,111),参c(1,1,111),A偏移(0),B偏移(0),C偏移(0),整体偏移(0),参382(0,-1,99999),参618(0,-1,99999),参壹(0,-1,99999),参191(-1,-1,99999),参5(-1,-1,99999),参自定义1(-1,-1,99999),参自定义2(-1,-1,99999); x1:=TROUGH(4,p,1);//BARPOS x8:=TROUGHBARS(4,p,1)=0; x11:=TROUGHBARS(4,p,参a); x18:=TROUGHBARS(4,p,参b); x13:=TROUGHBARS(4,p,参c); x3:=PEAK(4,p,1); x31:=PEAKBARS(4,p,参a); x38:=PEAKBARS(4,p,参b); x33:=PEAKBARS(4,p,参c); x5:=PEAKBARS(4,p,1)=0; 光标位置:=SYSPARAM(1),linethick0; cldis:=x13[SYSPARAM(1)],linethick0; chdis:=x33[SYSPARAM(1)],linethick0; tcl:=光标位置-cldis,linethick0; tch:=光标位置-chdis,linethick0; bldis:=x18[SYSPARAM(1)],linethick0; bhdis:=x38[SYSPARAM(1)],linethick0; tbl:=光标位置-bldis,linethick0; tbh:=光标位置-bhdis,linethick0; aldis:=x11[SYSPARAM(1)],linethick0; ahdis:=x31[SYSPARAM(1)],linethick0; tal:=光标位置-aldis,linethick0; tah:=光标位置-ahdis,linethick0; K一浪a:=IF(tcl>tch,tal+A偏移,tah+A偏移),linethick0; K二浪b:=IF(tcl>tch,tbh+B偏移,tbl+B偏移),linethick0; K三浪c:=IF(tcl>tch,tcl+C偏移,tch+C偏移),linethick0; PH:=HIGH; PL:=LOW; P一浪a:IF(tcl>tch,PL[tal+A偏移],PH[tah+A偏移]),LINETHICK0; P二浪b:IF(tcl>tch,PH[tbh+B偏移],PL[tbl+B偏移]),LINETHICK0; P三浪c:IF(tcl>tch,PL[tcl+C偏移],PH[tch+C偏移]),LINETHICK0; {kdisab:IF(ldis[SYSPARAM(1)]<hdis[SYSPARAM(1)],lldis-hdis,hhdis-ldis),linethick0; kc:max(tl,th),linethick0;} DRAWLINE(BARPOS=K一浪a,p一浪a,BARPOS=K二浪b,p二浪b,0),color77FFFF,linethick2; DRAWLINE(BARPOS=K二浪b,p二浪b,BARPOS=K三浪c,p三浪c,0),color77FFFF,linethick2,COLORWHITE; 一浪长:P二浪b-P一浪a,linethick0; //xx:=x; //SETLBOUND(xx,k看); {---------------------说话啊-------------------} y1:一浪长,linethick0; P1:P三浪c+y1,linethICK0; POLYLINE(BARPOS>=K三浪c,p1),COLORffffff,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P1,'1'+' '+NUMTOSTR(P1,3)),COLORFFFFFF; {☆§-------------------------------------§☆} IF 参191>-0.5 then begin 倍数191:=0.191+整体偏移+参191; y191:一浪长*倍数191,linethick0; P191:=P三浪c+y191,linethick0; PARTLINE(BARPOS>=K三浪c,p191),COLOR0099FF,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P191,NUMTOSTR(倍数191,3)+' '+NUMTOSTR(P191,3)),COLOR0099FF; end; {-------------------------------------} IF 参382>-0.5 then begin 倍数0382:=0.382+整体偏移+参382; y0382:一浪长*倍数0382,linethick0; P0382:=P三浪c+y0382,linethick0; PARTLINE(BARPOS>=K三浪c,p0382),COLORMAGENTA,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P0382,NUMTOSTR(倍数0382,3)+' '+NUMTOSTR(P0382,3)),COLORMAGENTA; 倍数1382:=1.382+整体偏移+参382; y1382:一浪长*倍数1382,linethick0; P1382:=P三浪c+y1382,linethick0; PARTLINE(BARPOS>=K三浪c,p1382),COLORMAGENTA,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P1382,NUMTOSTR(倍数1382,3)+' '+NUMTOSTR(P1382,3)),COLORMAGENTA; 倍数2382:=2.382+整体偏移+参382; y2382:一浪长*倍数2382,linethick0; P2382:=P三浪c+y2382,linethick0; PARTLINE(BARPOS>=K三浪c,p2382),COLORMAGENTA,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P2382,NUMTOSTR(倍数2382,3)+' '+NUMTOSTR(P2382,3)),COLORMAGENTA; end; {-------------------------------------} {-------------------------------------} IF 参5>-0.5 then begin 倍数5:=0.5+整体偏移+参5; y5:一浪长*倍数5,linethick0; P5:=P三浪c+y5,linethick0; PARTLINE(BARPOS>=K三浪c,p5),COLOR00FF00,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P5,NUMTOSTR(倍数5,1)+' '+NUMTOSTR(P5,3)),COLOR00FF00; end; {-------------------------------------} {小花园} {-------------------------------------} IF 参618>-0.5 then begin 倍数0618:=0.618+整体偏移+参618; y0618:一浪长*倍数0618,linethick0; P0618:=P三浪c+y0618,linethick0; PARTLINE(BARPOS>=K三浪c,p0618),COLOR00CCFF,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P0618,NUMTOSTR(倍数0618,3)+' '+NUMTOSTR(P0618,3)),COLOR00CCFF; 倍数1618:=1.618+整体偏移+参618; y1618:一浪长*倍数1618,linethick0; P1618:=P三浪c+y1618,linethick0; PARTLINE(BARPOS>=K三浪c,p1618),COLOR00CCFF,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P1618,NUMTOSTR(倍数1618,3)+' '+NUMTOSTR(P1618,3)),COLOR00CCFF; 倍数2618:=2.618+整体偏移+参618; y2618:一浪长*倍数2618,linethick0; P2618:=P三浪c+y2618,linethick0; PARTLINE(BARPOS>=K三浪c,p2618),COLOR00CCFF,LINEDOT; DRAWTEXT(BARPOS=K三浪c,P2618,NUMTOSTR(倍数2618,3)+' '+NUMTOSTR(P2618,3)),COLOR00CCFF; end; {-------------------------------------} {-------------------------------------} IF 参壹>-0.5 then begin 倍数壹:=1+整体偏移+参壹; y壹:一浪长*倍数壹,linethick0; P壹:P三浪c+y壹,linethICK0; POLYLINE(BARPOS>=K三浪c,p壹 |
