文华波浪缠论笔画线指标公式源码

周期A:=59;
高标A:=H>=HV(H,周期A);
高距A:=BARSLAST(高标A)+1;
低标A:=L<=LV(L,周期A);
低距A:=BARSLAST(低标A)+1;
回溯高A:=BACKSET(COUNT(低标A,高距A)&&(低标A||ISLASTBAR)&&EXIST(高标A,SUMBARS(低标A||ISLASTBAR,2)),HHVBARS(IF(高标A,H,0),SUMBARS(低标A||ISLASTBAR,2))+1),NODRAW;
回溯低A:=BACKSET(COUNT(高标A,低距A)&&(高标A||ISLASTBAR)&&EXIST(低标A,SUMBARS(高标A||ISLASTBAR,2)),LLVBARS(IF(低标A,L,999999),SUMBARS(高标A||ISLASTBAR,2))+1);
拐高A:=CROSS(回溯高A=1,0.5),ICON(1,'ICO1');
拐低A:=CROSS(回溯低A=1,0.5),ICON(1,'ICO2');
高确A:=CROSS(BACKSET(ISLASTBAR&&EXIST(高标A,BARSLAST(拐低A)),BARSLAST(高标A)+1)=1,0.4);
低确A:=CROSS(BACKSET(ISLASTBAR&&EXIST(低标A,BARSLAST(拐高A)),BARSLAST(低标A)+1)=1,0.4);
窗口A:=BACKSET(ISLASTBAR,2760);
DRAWLINE1((CROSS(回溯高A=1,0.5)||回溯高A=1&&REF(COUNT(低标A,高距A)&&低标A&&EXIST(高标A,SUMBARS(低标A,2)),1))&&窗口A,H,低确A||(CROSS(回溯低A=1,0.5)||回溯低A=1&&REF(COUNT(高标A,低距A)&&高标A&&EXIST(低标A,SUMBARS(高标A,2)),1))&&窗口A,L,0),COLORGRAY;
DRAWLINE1((CROSS(回溯低A=1,0.5)||回溯低A=1&&REF(COUNT(高标A,低距A)&&高标A&&EXIST(低标A,SUMBARS(高标A,2)),1))&&窗口A,L,高确A||(CROSS(回溯高A=1,0.5)||回溯高A=1&&REF(COUNT(低标A,高距A)&&低标A&&EXIST(高标A,SUMBARS(低标A,2)),1))&&窗口A,H,0),COLORMAGENTA;
上标A:=高确A||(CROSS(回溯高A=1,0.5)||回溯高A=1&&REF(COUNT(低标A,高距A)&&低标A&&EXIST(高标A,SUMBARS(低标A,2)),1))&&窗口A;
下标A:=低确A||(CROSS(回溯低A=1,0.5)||回溯低A=1&&REF(COUNT(高标A,低距A)&&高标A&&EXIST(低标A,SUMBARS(高标A,2)),1))&&窗口A;
DRAWTEXT(上标A,H,'多'),COLORRED,FONTSIZE16;
DRAWTEXT(下标A,L,'空'),VALIGN0,COLORGREEN,FONTSIZE16;
高标B:=H>=HV(H,周期A+1);
高距B:=BARSLAST(高标B)+1;
低标B:=L<=LV(L,周期A+1);
低距B:=BARSLAST(低标B)+1;
回溯高B:=BACKSET(COUNT(低标B,高距B)&&低标B&&EXIST(高标B,SUMBARS(低标B,2)),HHVBARS(IF(高标B,H,0),SUMBARS(低标B,2))+1),NODRAW;
回溯低B:=BACKSET(COUNT(高标B,低距B)&&高标B&&EXIST(低标B,SUMBARS(高标B,2)),LLVBARS(IF(低标B,L,999999),SUMBARS(高标B,2))+1);
DRAWLINE3(BARSLAST(CROSS(回溯低B=1,0.5))<BARSLAST(CROSS(回溯高A=1,0.5))&&ISLASTBAR,HHV(IF(高标A,H,0),BARSLAST(CROSS(回溯低A=1,0.5))+1),HHVBARS(IF(高标A,H,0),BARSLAST(CROSS(回溯低A=1,0.5))+1),
1,REF(L,BARSLAST(CROSS(回溯低A=1,0.5))),BARSLAST(CROSS(回溯低A=1,0.5)),0),COLORMAGENTA;
DRAWLINE3(BARSLAST(CROSS(回溯低B=1,0.5))>BARSLAST(CROSS(回溯高A=1,0.5))&&ISLASTBAR,LLV(IF(低标A,L,999999),BARSLAST(CROSS(回溯高A=1,0.5))+1),LLVBARS(IF(低标A,L,999999),BARSLAST(CROSS(回溯高A=1,0.5))+1),
1,REF(H,BARSLAST(CROSS(回溯高A=1,0.5))),BARSLAST(CROSS(回溯高A=1,0.5)),0),COLORGRAY;
开关A:=1;
强标A:=上标A&&IF(上标A&&下标A,COUNT(上标A,SUMBARS(下标A,2)-1),COUNT(上标A,BARSLAST(下标A)));
弱标A:=下标A&&IF(上标A&&下标A,COUNT(下标A,SUMBARS(上标A,2)-1),COUNT(下标A,BARSLAST(上标A)));
强确A:=CROSS(BACKSET(ISLASTBAR,BARSLAST(强标A)+1),0.5);
弱确A:=CROSS(BACKSET(ISLASTBAR,BARSLAST(弱标A)+1),0.5);
强破A:=强标A&&H>REF(H,SUMBARS(强标A,2)-1)*1.0072;
弱破A:=弱标A&&L<REF(L,SUMBARS(弱标A,2)-1)*0.9929;
弱回A:=BACKSET(ISLASTBAR,BARSLAST(弱破A)+1);
强回A:=BACKSET(ISLASTBAR,BARSLAST(强破A)+1);
弱值A:=IF(弱破A,L,0);
弱高A:=IF(弱破A,REF(H,BARSLAST(强标A)),0);
强值A:=IF(强破A,H,999999);
强低A:=IF(强破A,REF(L,BARSLAST(弱标A)),9999999);
弱参L:=REFX1(VALUEWHEN(CROSS(弱回A,0.5),L),10000);
弱参H:=REFX1(VALUEWHEN(CROSS(弱回A,0.5),REF(H,BARSLAST(强标A))),10000);
标记A:=BARSLAST(弱值A>弱参L&&弱高A>弱参H);
强参H:=REFX1(VALUEWHEN(CROSS(强回A=1,0.5),H),10000);
强参L:=REFX1(VALUEWHEN(CROSS(强回A=1,0.5),REF(L,BARSLAST(弱标A))),10000);
标记B:=BARSLAST(强值A<强参H&&强低A<强参L);
次周A:=29;
次高A:=H>=HV(H,次周A);
次高距:=BARSLAST(次高A)+1;
次低A:=L<=LV(L,次周A);
次低距:=BARSLAST(次低A)+1;
次回高:=BACKSET(COUNT(次低A,次高距)&&(次低A||ISLASTBAR)&&EXIST(次高A,SUMBARS(次低A||ISLASTBAR,2)),HHVBARS(IF(次高A,H,0),SUMBARS(次低A||ISLASTBAR,2))+1),NODRAW;
次回低:=BACKSET(COUNT(次高A,次低距)&&(次高A||ISLASTBAR)&&EXIST(次低A,SUMBARS(次高A||ISLASTBAR,2)),LLVBARS(IF(次低A,L,999999),SUMBARS(次高A||ISLASTBAR,2))+1);
次拐高:=CROSS(次回高=1,0.5),ICON(1,'ICO1');
次拐低:=CROSS(次回低=1,0.5),ICON(1,'ICO2');
次高确:=CROSS(BACKSET(ISLASTBAR&&EXIST(次高A,BARSLAST(次拐低)),BARSLAST(次高A)+1)=1,0.4);
次低确:=CROSS(BACKSET(ISLASTBAR&&EXIST(次低A,BARSLAST(次拐高)),BARSLAST(次低A)+1)=1,0.4);
次窗A:=BACKSET(ISLASTBAR,1440);
次上标:=次高确||(CROSS(次回高=1,0.5)||次回高=1&&REF(COUNT(次低A,次高距)&&次低A&&EXIST(次高A,SUMBARS(次低A,2)),1))&&次窗A;
次下标:=次低确||(CROSS(次回低=1,0.5)||次回低=1&&REF(COUNT(次高A,次低距)&&次高A&&EXIST(次低A,SUMBARS(次高A,2)),1))&&次窗A;
遮罩A:=BACKSET(ISLASTBAR,BARSLAST(强破A)+1+REF(BARSLAST(下标A),BARSLAST(强破A)));
遮罩B:=BACKSET(ISLASTBAR,BARSLAST(弱破A)+1+REF(BARSLAST(上标A),BARSLAST(弱破A)));
存在A:=EXIST(标记A=1,BARPOS);
存在B:=EXIST(标记B=1,BARPOS);
弱参A:=IF(存在A,弱参H,0);
强参B:=IF(存在B,强参L,999999);
低值A:=IF(ISUP,L,0);
高值A:=IF(ISDOWN,H,999999);
吞低A:=ISDOWN&&C<=HHV(低值A,BARSLAST(次下标))&&COUNT(ISDOWN&&C<=HHV(低值A,BARSLAST(次下标)),BARSLAST(次上标)+1);
吞高A:=ISUP&&C>=LLV(高值A,BARSLAST(次上标))&&COUNT(ISUP&&C>=LLV(高值A,BARSLAST(次上标)),BARSLAST(次下标)+1);
信号高1:=CROSS(BACKSET(CROSS(弱回A,0.5)&&吞低A,BARSLAST(强标A)+1),0.5);
信号高2:=CROSS(BACKSET(CROSS(弱回A,0.5)&&吞低A,标记A+REF(BARSLAST(强标A),标记A)+1)=1,0.5);
信号低1:=CROSS(BACKSET(CROSS(强回A,0.5)&&吞高A,BARSLAST(弱标A)+1),0.5);
信号低2:=CROSS(BACKSET(CROSS(强回A,0.5)&&吞高A,标记B+REF(BARSLAST(弱标A),标记B)+1)=1,0.5);
顺高A:=IF(EXIST(信号高2,BARPOS)&&EXIST(信号高1,BARPOS),BARSLAST(信号高1),10000000)>IF(EXIST(信号低2,BARPOS)&&EXIST(信号低1,BARPOS),BARSLAST(信号低1),10000000);
顺低A:=IF(EXIST(信号高2,BARPOS)&&EXIST(信号高1,BARPOS),BARSLAST(信号高1),10000000)<IF(EXIST(信号低2,BARPOS)&&EXIST(信号低1,BARPOS),BARSLAST(信号低1),10000000);
STICKLINE(存在A&&C<=REF(H,标记A+REF(BARSLAST(上标A),标记A))&&吞低A&&顺低A&&BACKSET(ISLASTBAR,BARSLAST(信号高1)+1),C,C+(O-C)/2,COLORYELLOW,0);
STICKLINE(存在B&&C>=REF(L,标记B+REF(BARSLAST(下标A),标记B))&&吞高A&&顺高A&&BACKSET(ISLASTBAR,BARSLAST(信号低1)+1),C,C-(C-O)/2,COLORMAGENTA,0);
阳连A:=ISUP&&REF(ISUP,1)&&C>REF(C,1);
阴连A:=ISDOWN&&REF(ISDOWN,1)&&C<REF(C,1);
间距A:=1;
DRAWTEXT(C<弱参A&&遮罩B&&存在A&&阳连A&&COUNT(阳连A,BARSLAST(CROSS(弱确A,0.5)))&&顺低A&&BACKSET(ISLASTBAR,BARSLAST(信号高1)+1),H+间距A*MINPRICE,'SP');
DRAWTEXT(C>强参B&&遮罩A&&存在B&&阴连A&&COUNT(阴连A,BARSLAST(CROSS(强确A,0.5)))&&顺高A&&BACKSET(ISLASTBAR,BARSLAST(信号低1)+1),L-间距A*MINPRICE,'BP'),VALIGN0;