神马文学网移动费波周期
来源：百度文库 编辑：神马文学网 时间：2024/04/29 17:42:47
fbars:=SYSPARAM(0);
f5:=barssince(c)=fbars-1;
VERTLINE(f5),pointdot,color996666,linethick1,shift5;
DRAWNUMBER(f5,SYSPARAM(4),5,0),shift5;
ff5:=barssince(c)=fbars-5;
VERTLINE(ff5),pointdot,color996666,linethick1;
DRAWNUMBER(ff5,SYSPARAM(4),5,0);
f8:=barssince(c)=fbars-1;
ff8:=barssince(c)=fbars-8;
VERTLINE(f8),pointdot,color996666,linethick1,shift8;
DRAWNUMBER(f8,SYSPARAM(4),8,0),shift8;
VERTLINE(ff8),pointdot,color996666,linethick1;
DRAWNUMBER(ff8,SYSPARAM(4),8,0);
f13:=barssince(c)=fbars-1;
ff13:=barssince(c)=fbars-13;
vertline(f13),pointdot,color996666,linethick1,shift13;
DRAWNUMBER(f13,SYSPARAM(4),13,0),shift13;
vertline(ff13),pointdot,color996666,linethick1;
DRAWNUMBER(ff13,SYSPARAM(4),13,0);
f21:=barssince(c)=fbars-1;
ff21:=barssince(c)=fbars-21;
vertline(f21),pointdot,color996666,linethick1,shift21;
DRAWNUMBER(f21,SYSPARAM(4),21,0),shift21;
vertline(ff21),pointdot,color996666,linethick1;
DRAWNUMBER(ff21,SYSPARAM(4),21,0);
f34:=barssince(c)=fbars-1;
ff34:=barssince(c)=fbars-34;
vertline(f34),pointdot,color996666,linethick1,shift34;
DRAWNUMBER(f34,SYSPARAM(4),34,0),shift34;
vertline(ff34),pointdot,color996666,linethick1;
DRAWNUMBER(ff34,SYSPARAM(4),34,0);
f55:=barssince(c)=fbars-1;
ff55:=barssince(c)=fbars-54;
vertline(f55),pointdot,color996666,linethick1,shift55;
DRAWNUMBER(f55,SYSPARAM(4),55,0)shift55;
vertline(ff55),pointdot,color996666,linethick1;
DRAWNUMBER(ff55,SYSPARAM(4),55,0);
f89:=barssince(c)=fbars-1;
ff89:=barssince(c)=fbars-88;
vertline(f89),pointdot,color996666,linethick1,shift89;
DRAWNUMBER(f89,SYSPARAM(4),89,0),shift89;
vertline(ff89),pointdot,color996666,linethick1;
DRAWNUMBER(ff89,SYSPARAM(4),89,0);
f134:=barssince(c)=fbars+20;
ff134:=barssince(c)=fbars-144;
vertline(f134),pointdot,color996666,linethick1,shift124;
DRAWNUMBER(f134,SYSPARAM(4),144,0),shift124;
vertline(ff134),pointdot,color996666,linethick1;
DRAWNUMBER(ff134,SYSPARAM(4),144,0);
涨跌周期
Var1:=FILTER(BACKSET(HIGH=HHV(HIGH,M) OR LOW=LLV(LOW,M),1),M);
起始日: STICKLINE(Var1,1,7,3,0);
７天: STICKLINE(BARSLAST(Var1)-6=1,2,6,0.5,1);
２１天: STICKLINE(BARSLAST(Var1)-20=1,2,6,0.5,1);
２８天: STICKLINE(BARSLAST(Var1)-27=1,2,6,0.5,1);
４５天: STICKLINE(BARSLAST(Var1)-44=1,2,6,0.5,1);
６４天: STICKLINE(BARSLAST(Var1)-64=1,2,6,0.5,1);
８９天: STICKLINE(BARSLAST(Var1)-88=1,2,6,0.5,1);
１１７天: STICKLINE(BARSLAST(Var1)-116=1,2,6,0.5,1);
１５５天: STICKLINE(BARSLAST(Var1)-154=1,2,6,0.5,1);
１８８天: STICKLINE(BARSLAST(Var1)-188=1,2,6,0.5,1);
DRAWTEXT(DATE=1030122,2,'调整指标参数，把起始日调到你认为启动的周期最低价或回调开始最高价的日子，剩下的就是看图查周期了。');
m=50
费氏级数1
n1=10 n2 =10
a2:=ZIG(2,N1);D1:=A2-REF(A2,1); D2:=CROSS(D1,0);
DRAWICON(REFX(D2,1),l*0.98,8); A4:=BARSLAST(D2)-1;
aa4:=(a4=32 or a4=53 or a4=11 or a4=19 or a4=87 or a4=142 or a4=231);
STICKLINE(aa4,h*1.02,h*1.023,6,0),COLORYELLOW;
DRAWNUMBER(aa4,h*1.04,a4+2,0),COLORYELLOW;
a11:=ZIG(1,n2); D3:=A11-REF(A11,1); D4:=CROSS(0,D3);
A5:=BARSLAST(D4)-1; DRAWICON(REFX(D4,1),H*1.02,9);
aa5:=(a5=32 or a5=53 or a5=11 or a5=19 or a5=87 or a5=142 or a5=231);
STICKLINE(aa5,l*0.98,l*0.983,6,0),COLORCYAN;
DRAWNUMBER(aa5 ,L*0.97,a5+2,0),COLORCYAN;
DRAWNUMBER(ISLASTBAR,hhv(h,10)*1.02,a4+2,0),COLORYELLOW,shift1;
DRAWNUMBER(ISLASTBAR,llv(l,10)*0.99,a5+2,0),COLORCYAN,shift1;
DRAWTEXT(ISLASTBAR,hhv(h,10)*1.02,'天'),COLORYELLOW,shift5;
DRAWTEXT(ISLASTBAR,llv(l,10)*0.99,'天'),COLORCYAN,shift5;
高点连线
25 13 21 55
HA1:=HHVBARS(HIGH,N1);
HA2:=BACKSET(ISLASTBAR,HA1+1);
HA:=FILTER(HA2,N1);
DRAWICON(HA,HIGH,10);
HB1:=HHVBARS(HIGH,N2);
HB2:=BACKSET(ISLASTBAR,HB1+1);
HB:=FILTER(HB2,N2);
DRAWICON(HB,HIGH,10);
HC1:=HHVBARS(HIGH,N3);
HC2:=BACKSET(ISLASTBAR,HC1+1);
HC:=FILTER(HC2,N3);
DRAWICON(HC,HIGH,10);
HD1:=HHVBARS(HIGH,N4);
HD2:=BACKSET(ISLASTBAR,HD1+1);
HD:=FILTER(HD2,N4);
DRAWICON(HD,HIGH,10);
LINEVALUE(HD,HIGH,HC,HIGH,0,0),colorFFFF;
LINEVALUE(HC,HIGH,HB,HIGH,0,0),colorFF9000;
LINEVALUE(HB,HIGH,HA,HIGH,0,0),colorFF00;
低点连线
LA1:=LLVBARS(LOW,N1);
LA2:=BACKSET(ISLASTBAR,LA1+1);
LA:=FILTER(LA2,N1);
DRAWICON(LA,LOW,10);
LB1:=LLVBARS(LOW,N2);
LB2:=BACKSET(ISLASTBAR,LB1+1);
LB:=FILTER(LB2,N2);
DRAWICON(LB,LOW,10);
LC1:=LLVBARS(LOW,N3);
LC2:=BACKSET(ISLASTBAR,LC1+1);
LC:=FILTER(LC2,N3);
DRAWICON(LC,LOW,10);
LD1:=LLVBARS(LOW,N4);
LD2:=BACKSET(ISLASTBAR,LD1+1);
LD:=FILTER(LD2,N4);
DRAWICON(LD,LOW,10);
LINEVALUE(LD,LOW,LC,LOW,0,0),colorFFFF;
LINEVALUE(LC,LOW,LB,LOW,0,0),colorFF9000;
LINEVALUE(LB,LOW,LA,LOW,0,0),colorFF00;
☆倒数线
DRAWGBK(1,COLORRGB(100,100,100),COLORRGB(50,50,50),0);
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,7,0),colorFFFF00;
STICKLINE(OPEN>=CLOSE,HIGH,LOW,0,0),colorFFFF00;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,1),colorFF;
STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0,0),colorFF;
STICKLINE(CLOSE>=OPEN,LOW,OPEN,0,0),colorFF;
B1:='──────────\n CBL';
B2:='^^^^^^^^^^^^^^^^^^^^^\n CBL STOP';
B3:='^^^^^^^^^^^^^^^^^^^^^\n CBL MAX';
A3:=HIGH+HIGH*(HIGH-LLV(LOW,10))/LLV(LOW,10);
DRAWTEXT(BARPOS=SYSPARAM(1)-3,HIGH,B1),colorFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(1)-3,LOW,B2),colorFF00;
DRAWTEXT(BARPOS=SYSPARAM(1)-3,A3,B3),color6699FF;
DRAWTEXT(BARPOS=SYSPARAM(1),LOW*0.995,'▲'),ALIGN0,colorFF00;
江恩时间
A:=L=LLV(L,240);
A1:=BARSLAST(A);
VERTLINE(A1=30);
VERTLINE(A1=60);
VERTLINE(A1=90);
VERTLINE(A1=120);
VERTLINE(A1=150);
VERTLINE(A1=180);
VERTLINE(A1=210);
VERTLINE(A1=2400);
DRAWTEXT(A1=30,1,'第一时间');
DRAWTEXT(A1=60,1,'第二时间');
DRAWTEXT(A1=90,1,'第三时间');
DRAWTEXT(A1=120,1,'第四时间');
DRAWTEXT(A1=150,1,'第五时间');
DRAWTEXT(A1=180,1,'第六时间');
DRAWTEXT(A1=210,1,'第七时间');
DRAWTEXT(A1=240,1,'第八时间');
日显周
//日线
TJ:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(TJ,LOW,HIGH,0,0),ColorE9;
STICKLINE(TJ,LOW,CLOSE,8,0),Color80;
STICKLINE(TJ,LOW,CLOSE,6,0),ColorA5;
STICKLINE(TJ,LOW,CLOSE,4,0),ColorC0;
STICKLINE(TJ,LOW,CLOSE,2,0),ColorE6;
STICKLINE(NOT(TJ),HIGH,LOW,0,0),ColorAA00;
STICKLINE(NOT(TJ),CLOSE,OPEN,8,0),Color5000;
STICKLINE(NOT(TJ),CLOSE,OPEN,6,0),Color6600;
STICKLINE(NOT(TJ),CLOSE,OPEN,4,0),Color8000;
STICKLINE(NOT(TJ),CLOSE,OPEN,2,0),ColorA000;
{日周K线}
TBS:=POW(10,ABS(LOG(MINDIFF)));
//周线
BZ:=WEEKDAY;
ZB:=DATEDIFF(REF(DATE,1),DATE)<>BZ-REF(BZ,1) OR BARPOS=1;
ZW:=BARSLAST(ZB),LINETHICK;
Zdg:=ZW=0 or ISLASTBAR;
Zwx:=0*c;
for i=datacount-1 downto lbound(Zdg) do
if Zdg then
Zwx:=0;
else
Zwx:=Zwx[i+1]+1;
Zr:=BACKSET(ISLASTBAR,Zw+1)-ISLASTBAR;
Zwx:=refx(Zwx,1)+Zr,LINETHICK;
zq:=BARSLAST(ref(Zwx,1)=0 or BARPOS=1)+1;
Zo:=ref(o,Zw);
Zh:=hhv(h,Zw+1);
ZL:=LLv(L,Zw+1);
周开:ROUND(ZO*TBS)/TBS,LINETHICK,colored;
周高:ROUND(refx(Zh,Zwx)*TBS)/TBS,,COLORFF,LINETHICK;
周低:ROUND(refx(ZL,Zwx)*TBS)/TBS,COLORFF00,LINETHICK;
周收:ROUND(refx(c,Zwx)*TBS)/TBS,,COLORFF00FF,LINETHICK;
Zf:=周收>周开 or (周收=周开 and 周收>ref(周收,Zw+1));
Zj:=cross(Zw,Zwx);// OR ISLASTBAR;
yt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14));
//画横线
wv:=BARSLAST(zb),LINETHICK;
PARTLINE(wv>0 and zf,周收)COLOR0066ff;
PARTLINE(wv>0 and zf,周开)COLOR0066ff;
PARTLINE(wv>0 and not(zf),周收),COLORFFffcc;
PARTLINE(wv>0 and not(zf),周开),COLORFFffcc;
STICKLINE(wv>0 and not(zf) and zj,周开,周高,1,0)COLORFFffcc;
STICKLINE(wv>0 and not(zf) and zj,周收,周低,1,0)COLORFFffcc;
STICKLINE(wv=0 and not(zf),周开,周收,1,0)COLORFFffcc;
STICKLINE((refx(wv=0,1) or ISLASTBAR) and not(zf),周收,周开,1,0),COLORFFffcc;
//影线
{STICKLINE(Zw>0 and Zf and Zj,周低,周高,1,0)COLORAAAAEE;}
{STICKLINE(周开<周收,周开,周收,YT,0),COLORAAAAEE;}
{STICKLINE(Zw>0 and not(Zf) and Zj,周低,周高,0,0)COLOREEAAAA;}
{STICKLINE(周开>周收,周开,周收,YT,0),COLOREEAAAA;}
STICKLINE(Zw>0 and zf and zj,周收,周高,0,0),COLOR0066ff;
STICKLINE(Zw>0 and zf and zj,周开,周低,0,0),COLOR0066ff;
STICKLINE(Zw=0 and zf ,周收,周开,0,0),COLOR0066ff;
STICKLINE((refx(wv=0,1) or ISLASTBAR) and zf,周开,周收,0,0),COLOR0066ff;
时间窗
a1:ema((ema(close,1)+ema(close,3)+ema(close,5))/3,3),colorred;
a2:ema((ema(close,3)+ema(close,5)+ema( close,7))/3,3),colorred;
a3:ema((ema(close,5)+ema(close,7)+ema( close,9))/3,3),colorred;
a4:ema((ema(close,7)+ema(close,9)+ema( close,11))/3,3),colorred;
a5:ema((ema(close,9)+ema(close,11)+ema( close,13))/3,3),colorred;
a6:ema((ema(close,11)+ema(close,13)+ema( close,15))/3,3),colorred;
a7:ema((ema(close,13)+ema(close,15)+ema( close,17))/3,3),colorred;
a8:ema((ema(close,15)+ema(close,17)+ema( close,19))/3,3),colorred;
a9:ema((ema(close,17)+ema(close,19)+ema( close,21))/3,3),coloryellow;
a10:ema((ema(close,19)+ema(close,21)+ema( close,23))/3,3),coloryellow;
a11:ema((ema(close,21)+ema(close,23)+ema( close,25))/3,3),coloryellow;
A:=ema((EMA(close,29)+EMA(close,31)+EMA(close,33))/3,3),coloryellow;
B:=REF(A,1);
drawtext(a>b,(a+b)/2,'★'), COLORff00ff;
drawtext(a<=b,(a+b)/2,'☆'), COLORgreen;
STICKLINE(A>B,A,B,8,0),COLORff00ff;
STICKLINE(A<=B,A,B,8,1),COLORff0000;
a15:a-(a1-a*0.997),colorFF1010;
a16:a-(a2-a),colorff2010;
a17:a-(a3-a),colorff3010;
a18:a-(a4-a),colorff4010;
a19:a-(a5-a),colorff5010;
a20:a-(a6-a),colorff6010;
a21:a-(a7-a),colorff7010;
a22:a-(a8-a),colorff8010;
a23:a-(a9-a),colorff9010;
a24:a-(a10-a),colorffc010;
a25:a-(a11-a*0.997),colorffe010;
STICKLINE(open>=close ,O,C,9,0 ),COLORaaaaaa;
STICKLINE(open>=close ,O,C,6,0 ),COLORbbbbbb;
STICKLINE(open>=close ,O,C,2.4,0 ),COLORcccccc;
STICKLINE(open>=close ,O,C,1.1,0 ),COLORdddddd;
STICKLINE(close>open,O,C,9,0 ),COLOr6666cc;
STICKLINE(close>open,O,C,6 ,0 ),COLOR7777dd;
STICKLINE(close>open,O,C,2.4 ,0 ),COLOR8888ee;
STICKLINE(close>open,O,C,1.1 ,0 ),COLOR9999ff;
STICKLINE(close>open,open,low,0.5,0 ),COLOR1199ff;
STICKLINE(close>open,close,HIGH,0.5 ,0 ),COLOR1199ff;
STICKLINE(open>=close,close,low,0.5 ,0 ),COLORcccccc;
STICKLINE(open>=close,open,HIGH,0.5 ,0 ),COLORcccccc;
var31:=hhvbars(zig(3, 19)>ref(zig(3,19),1) and ref(zig(3,19), 1)时间窗:=0,colorwhite;
stickline(var31=2,l*0.95,l*0.98,8,0),color0000ff;
drawtext(var31=2,l*0.95,'3天'),coloryellow;
stickline(var31=4,h*1.05,h*1.02,8,0),color9966ff;
drawtext(var31=4,h*1.06,'5天'),coloryellow;
stickline(var31=7,l*0.95,l*0.98,8,0),color00ffff;
drawtext(var31=7,l*0.95,'8天'),coloryellow;
stickline(var31=12,h*1.05,h*1.02,8,0),colorff33ff;
drawtext(var31=12,h*1.06,'13天'),coloryellow;
stickline(var31=20,l*0.95,l*0.98,8,0),color0066ff;
drawtext(var31=20,l*0.95,'21天'),coloryellow;
stickline(var31=33,h*1.05,h*1.02,8,0),colorffff00;
drawtext(var31=33,h*1.06,'34天'),coloryellow;
stickline(var31=54,l*0.95,l*0.98,8,0),color006600;
drawtext(var31=54,l*0.95,'55天'),coloryellow;
stickline(var31=88,h*1.05,h*1.02,8,0),color00ff00;
drawtext(var31=88,h*1.06,'89天'),coloryellow;
stickline(var31=143,l*0.95,l*0.98,8,0),colorccffff;
drawtext(var31=143,l*0.95,'144天'),coloryellow;
stickline(var31=232 ,h*1.05,h*1.02,8,0),colorff0033;
drawtext(var31=232,h*1.06,'233天'),coloryellow;
stickline(var31=376,l*0.95,l*0.98,8,0),colorff9966;
drawtext(var31=376,l*0.95,'377天'),coloryellow;
股票箱
n=45
FH:=HIGH;
FL:=LOW;
SELL:=0*FH;
BUY:=SELL;
SIGNAL:=SELL;
BOXH:SELL,LINETHICK0;
BOXL:SELL,LINETHICK0;
VARIABLE:HC=0,LC=0,BT=FH[1],BB=FH[1];
FOR I=1 TO DATACOUNT DO BEGIN
IF HC>1 THEN BEGIN
IF LC>2 AND BT<=FH[I] THEN BEGIN
BUY[I]:=1;
FOR J=I-1 DOWNTO I-HC DO BEGIN
BOXH[J]:=FH[I-HC],LINETHICK0;
BOXL[J]:=FL[I-LC],LINETHICK0;
END;
HC:=0;
LC:=0;
END;
IF BT>FH[I] THEN BEGIN
IF LC>2 THEN BEGIN
IF BB>=FL[I] THEN BEGIN
SELL[I]:=1;
FOR J=I-1 DOWNTO I-HC DO BEGIN
BOXH[J]:=FH[I-HC],LINETHICK0;
BOXL[J]:=FL[I-LC],LINETHICK0;
END;
HC:=-1;
LC:=0;
END;ELSE BEGIN
BOXH[I]:=FH[I-HC],LINETHICK0;
BOXL[I]:=FL[I-LC],LINETHICK0;
END;
END;
HC:=HC+1;
IF LC>1 THEN BEGIN
IF BBLC:=LC+1;
IF LC=3 THEN BEGIN
SIGNAL[I-HC+1]:=1;
FOR J=I DOWNTO I-HC+1 DO BEGIN
BOXH[J]:=FH[I-HC+1],LINETHICK0;
BOXL[J]:=FL[I-LC+1],LINETHICK0;
END;
END;
END;ELSE
LC:=0;
END;ELSE
IF LC=1 THEN BEGIN
IF BBLC:=LC+1;
END;ELSE
LC:=0;
END;
IF LC=0 AND HC>1 THEN BEGIN
BB:=FL[I];
LC:=LC+1;
END;
END;ELSE BEGIN
HC:=0;
LC:=0;
END;
END;ELSE
IF HC=1 THEN BEGIN
IF BT>FH[I] THEN
HC:=HC+1;ELSE BEGIN
HC:=0;
LC:=0;
END;
END;
IF HC=0 THEN BEGIN
BT:=FH[I];
HC:=HC+1;
END;
END;
PARTLINE(BOXH AND BOXH=REF(BOXH,1),BOXH),POINTDOT,colorFFFF;
PARTLINE(BOXL AND BOXL=REF(BOXL,1),BOXL),POINTDOT,colorFFFF;
PARTLINE(BOXL AND BOXL=REF(BOXL,1),(BOXL+BOXH)/2),POINTDOT,colorFFFF;
STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),POINTDOT,colorFFFF;
DRAWICON(BUY,LOW*0.98,4);
DRAWICON(SELL,HIGH*1.02,5);
BOXHL:=(BOXL+BOXH)/2;
HAC:=CLOSE;
VARIABLE:HA=1;
FOR I=2 TO DATACOUNT DO BEGIN
IF BOXH[I-1]=0 AND BOXH[I]>0 AND (BOXH[I]<>BOXH[I-1] OR BOXL[I]<>BOXL[I-1]) THEN
HAC[I]:=0;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND (BOXH[I]<>BOXH[I-1] OR BOXL[I]<>BOXL[I-1]) THEN
HAC[I]:=0;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]<>BOXL[I-1] THEN
HAC[I]:=0;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]=BOXL[I-1] THEN
HAC[I]:=HA;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]<>BOXL[I-1] THEN
HAC[I]:=HA;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXH[I-2]=BOXH[I-1] THEN
HAC[I]:=HAC[I-1]+HA;
IF BOXH[I-1]>0 AND BOXH[I]=0 THEN
HAC[I]:=0;
IF BOXH[I-1]=0 AND BOXH[I]=0 THEN
HAC[I]:=0;
END;
NV:=HAC;
KK:=HAC[1];
LL:=HAC[1];
LLT:=HAC[1];
MM:=HAC[1];
MMT:=HAC[1];
FOR I=2 TO DATACOUNT DO BEGIN
IF HAC[I-1]=0 AND HAC[I]>0 THEN
KK:=I-1;
IF HAC[I-1]>0 AND HAC[I]>0 THEN
LLT:=I-1;
IF HAC[I-1]>0 AND HAC[I]>0 THEN
FOR J=KK TO LLT DO BEGIN
NV[J]:=HAC[I]+1;
END;
IF HAC[I-1]>0 AND HAC[I]=0 THEN
LL:=I-1;
IF HAC[I-1]>0 AND HAC[I]=0 THEN
FOR J=KK TO LL DO BEGIN
NV[J]:=HAC[I-1]+1;
END;
END;
XX:=NV;
BB25:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-26.5659*3.14159/180))+BOXH;
PARTLINE(REF(BB25,1)<>0 AND BOXH=REF(BOXH,1) AND BB25>0 AND BB25>BOXL-BOXL*0.05,BB25),POINTDOT,LINETHICK1,colorFF00FF;
DRAWLINE(BB25>0 AND BB25=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB25,BB25>0 AND BB25=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB25,1),colorFF00FF;
BB45:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-45*3.14159/180))+BOXH;
PARTLINE(REF(BB45,1)<>0 AND BOXH=REF(BOXH,1) AND BB45>0 AND BB45>BOXL-BOXL*0.05,BB45),LINETHICK1,colorFF00FF;
DRAWLINE(BB45>0 AND BB45=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB45,BB45>0 AND BB45=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB45,1),colorFF00FF;
BB66:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-63.435*3.14159/180))+BOXH;
PARTLINE(REF(BB66,1)<>0 AND BOXH=REF(BOXH,1) AND BB66>0 AND BB66>BOXL-BOXL*0.025,BB66),POINTDOT,LINETHICK1,colorFF00FF;
XBB23:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*TAN(26.5659*3.14159/180)+BOXL;
PARTLINE(XBB23>0 AND XBB23>BOXL AND XBB23DRAWLINE(XBB23>0 AND XBB23=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,XBB23,XBB23>0 AND XBB23=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,XBB23,1),colorFF00;
XBB45:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*TAN(45*3.14159/180)+BOXL;
PARTLINE(XBB45>0 AND XBB45>BOXL AND XBB45DRAWLINE(XBB45>0 AND XBB45=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,XBB45,XBB45>0 AND XBB45=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,XBB45,1),colorFF00;
XBB66:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*TAN(63.435*3.14159/180)+BOXL;
PARTLINE(XBB66>0 AND XBB66>BOXL AND XBB66AC:=CLOSE;
AH:=HIGH;
AL:=LOW;
AO:=OPEN;
STICKLINE(AC>=AO,AH,AC,1,0),color8899;
STICKLINE(AC>=AO,AH,AC,0,0),color77FFEE;
STICKLINE(AC>=AO,AO,AL,1,0),color8899;
STICKLINE(AC>=AO,AO,AL,0,0),color77FFEE;
STICKLINE(AC>AO,AC,AO,8,0),color8899;
STICKLINE(AC>AO,AC,AO,7,0),color1199AA;
STICKLINE(AC>AO,AC,AO,6,0),color22AABB;
STICKLINE(AC>AO,AC,AO,5,0),color33BBCC;
STICKLINE(AC>AO,AC,AO,4,0),color44CCDD;
STICKLINE(AC>AO,AC,AO,3,0),color55DDEE;
STICKLINE(AC>AO,AC,AO,2,0),color66EEEE;
STICKLINE(AC>AO,AC,AO,1,0),color77FFEE;
STICKLINE(AC<=AO,AH,AC,1,0),colorFF8800;
STICKLINE(AC<=AO,AH,AC,0,0),colorFFFF33;
STICKLINE(AC<=AO,AO,AL,1,0),colorFF8800;
STICKLINE(AC<=AO,AO,AL,0,0),colorFFFF33;
STICKLINE(AC<=AO,AC,AO,8,0),colorFF8800;
STICKLINE(AC<=AO,AC,AO,7,0),colorFF9900;
STICKLINE(AC<=AO,AC,AO,6,0),colorFFAA11;
STICKLINE(AC<=AO,AC,AO,5,0),colorFFBB11;
STICKLINE(AC<=AO,AC,AO,4,0),colorFFCC22;
STICKLINE(AC<=AO,AC,AO,3,0),colorFFDD22;
STICKLINE(AC<=AO,AC,AO,2,0),colorFFEE33;
STICKLINE(AC<=AO,AC,AO,1,0),colorFFFF33;
LQB黄金分割
//白林──精品黄金分割（飞狐3.9公式）
//如果感兴趣，请下载并保持原文件的完整性，本人支持原码公式
//公式名为：LQB黄金分割
//本公式可以跟随光标移动而移动，请打开十字光标并移动试试看
//黄金分割线──价格
Var1:=SYSPARAM(3)-SYSPARAM(2)+1;
Var2:=SYSPARAM(3)-BARPOS;
Var3:=HHV(HIGH,Var1);
Var4:=LLV(LOW,VaR1);
Var5:=REFX(Var3,Var2); //主图最高价
Var5:IF(SYSPARAM(3)<>SYSPARAM(1),SYSPARAM(6),Var5),COLOR0000FF;
Var6:REFX(Var4,Var2),COLOR0000FF; //主图最低价
黄191:(Var5-Var6)*0.191+Var6,COLOR0000FF,POINTDOT;
黄382:(Var5-Var6)*0.382+Var6,COLOR0000FF,POINTDOT;
黄500:(Var5-Var6)*0.500+Var6,COLOR0000FF;
黄618:(Var5-Var6)*0.618+Var6,COLOR0000FF,POINTDOT;
黄809:(Var5-Var6)*0.809+Var6,COLOR0000FF,POINTDOT;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.0381+Var6,'最低价('+NUMTOSTR(Var6,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.191+Var6,'黄金0.191('+NUMTOSTR(黄191,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.382+Var6,'黄金0.382('+NUMTOSTR(黄382,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.500+Var6,'黄金分割中轴('+NUMTOSTR(黄500,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.618+Var6,'黄金0.618('+NUMTOSTR(黄618,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.809+Var6,'黄金0.809('+NUMTOSTR(黄809,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.981+Var6,'最高价('+NUMTOSTR(Var5,2)+')'),COLOR00FF00;
//黄金分割线──时间
data21:=21+SYSPARAM(1)-1;
data34:=34+SYSPARAM(1)-1;
data55:=55+SYSPARAM(1)-1;
data89:=89+SYSPARAM(1)-1;
data144:=144+SYSPARAM(1)-1;
VERTLINE(ROUND(data21)=BARPOS),COLOR0000FF,POINTDOT;
VERTLINE(ROUND(data34)=BARPOS),COLOR0000FF,POINTDOT;
VERTLINE(ROUND(data55)=BARPOS),COLOR0000FF;
VERTLINE(ROUND(data89)=BARPOS),COLOR0000FF,POINTDOT;
VERTLINE(ROUND(data144)=BARPOS),COLOR0000FF,POINTDOT;
DRAWTEXT(ROUND(data21)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'21'),COLOR0000FF;
DRAWTEXT(ROUND(data34)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'34'),COLOR0000FF;
DRAWTEXT(ROUND(data55)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'55'),COLOR0000FF;
DRAWTEXT(ROUND(data89)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'89'),COLOR0000FF;
DRAWTEXT(ROUND(data144)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'144'),COLOR0000FF;
DRAWTEXT(SYSPARAM(3)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,NUMTOSTR(SYSPARAM(3)-SYSPARAM(1)+1,0)),COLOR0000FF;
RSI高低点画线
input:n1(6,1,100),n2(12,1,100),n3(24,1,100),n(10,1,100),m1(10,1,100),m2(8,1,100);
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;
RSI3:SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100;
gz1:=PEAKBARSA(rsi1,n,m1);
gg1:=BACKSET(ISLASTBAR,gz1+1);
gz2:=PEAKBARSA(rsi1,n,m2);
gg2:=BACKSET(ISLASTBAR,gz2+1);
dz1:=TROUGHBARSA(rsi1,n,m1);
dg1:=BACKSET(ISLASTBAR,dz1+1);
dz2:=TROUGHBARSA(rsi1,n,m2);
dg2:=BACKSET(ISLASTBAR,dz2+1);
DRAWLINE(gg1<>ref(gg1,1),rsi1,gg2<>ref(gg2,1),rsi1,1),colorgreen,linethick2;
DRAWLINE(dg1<>ref(dg1,1),rsi1,dg2<>ref(dg2,1),rsi1,1),color5252ff,linethick2;
动态角度线
M:=(SYSPARAM(4)-SYSPARAM(5))/(SYSPARAM(3)-SYSPARAM(2));
DRAWSL(BARPOS=SYSPARAM(1),LOW,15*M/50,0,0),COLORWHITE;
DRAWSL(BARPOS=SYSPARAM(1),LOW,30*M/50,0,0),COLORGREEN;
DRAWSL(BARPOS=SYSPARAM(1),LOW,45*M/50,0,0),COLORMAGENTA;
DRAWSL(BARPOS=SYSPARAM(1),LOW,75*M/50,0,0),COLORCYAN;
DRAWSL(BARPOS=SYSPARAM(1),HIGH,-75*M/50,0,0),COLORWHITE;
DRAWSL(BARPOS=SYSPARAM(1),HIGH,-60*M/50,0,0),COLORGREEN;
DRAWSL(BARPOS=SYSPARAM(1),HIGH,-45*M/50,0,0),COLORMAGENTA;
DRAWSL(BARPOS=SYSPARAM(1),HIGH,-15*M/50,0,0),COLORCYAN;
黄金分割（可视画面）
n1:=sysparam(3);
n:=n1-sysparam(2)+1;
hh:=hhv(H,n);
ll:=llv(L,n);
最高:hh[n1];
最低:ll[n1];
最低+(最高-最低)*0.191;
最低+(最高-最低)*0.382;
最低+(最高-最低)*0.5;
最低+(最高-最低)*0.618;
最低+(最高-最低)*0.809;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'000%↑'),SHIFT5,COLORred;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.191,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'19.1%↑'),SHIFT5,COLORff8500;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.382,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'38.2%↑'),SHIFT5,COLOR9999;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.5,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'50%↑'),SHIFT5,COLORMAGENTA;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.618,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'61.8%↑'),SHIFT5,COLOR9999;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.809,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'80.9%↑'),SHIFT5,COLORff8500;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*1,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'100%↑'),SHIFT5,COLORred;
江恩全集公式
http://www.chcj.net/thread-1163120-1-1.html
附件
江恩公式.ALG (6.72 KB)
2008-7-28 09:30, 下载次数: 98
波浪尺
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),参236(-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:=H;
PL:=L;
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)]kc:max(tl,th),linethick0;}
drawline(barpos=K一浪a,p一浪a,barpos=K二浪b,p二浪b,0),color77FFFF,linethick1;
drawline(barpos=K二浪b,p二浪b,barpos=K三浪c,p三浪c,0),color77FFFF,linethick1;
一浪长: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 参236>-0.5 then
begin
倍数236:=0.236+整体偏移+参236;
y236:一浪长*倍数236,linethick0;
P236:=P三浪c+y236,linethick0;
partline(barpos>=K三浪c,p236),COLOR0099FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P236,numtostr(倍数236,3)+' '+numtostr(P236,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),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P0382,numtostr(倍数0382,3)+' '+numtostr(P0382,3)),COLOR77FFFF;
倍数1382:=1.382+整体偏移+参382;
y1382:一浪长*倍数1382,linethick0;
P1382:=P三浪c+y1382,linethick0;
partline(barpos>=K三浪c,p1382),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P1382,numtostr(倍数1382,3)+' '+numtostr(P1382,3)),COLOR77FFFF;
倍数2382:=2.382+整体偏移+参382;
y2382:一浪长*倍数2382,linethick0;
P2382:=P三浪c+y2382,linethick0;
partline(barpos>=K三浪c,p2382),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P2382,numtostr(倍数2382,3)+' '+numtostr(P2382,3)),COLOR77FFFF;
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),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P0618,numtostr(倍数0618,3)+' '+numtostr(P0618,3)),COLOR77FFFF;
倍数1618:=1.618+整体偏移+参618;
y1618:一浪长*倍数1618,linethick0;
P1618:=P三浪c+y1618,linethick0;
partline(barpos>=K三浪c,p1618),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P1618,numtostr(倍数1618,3)+' '+numtostr(P1618,3)),COLOR77FFFF;
倍数2618:=2.618+整体偏移+参618;
y2618:一浪长*倍数2618,linethick0;
P2618:=P三浪c+y2618,linethick0;
partline(barpos>=K三浪c,p2618),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P2618,numtostr(倍数2618,3)+' '+numtostr(P2618,3)),COLOR77FFFF;
end;
{-------------------------------------}
{-------------------------------------}
if 参壹>-0.5 then
begin
倍数壹:=1+整体偏移+参壹;
y壹:一浪长*倍数壹,linethick0;
P壹:P三浪c+y壹,linethICK0;
POLYLINE(barpos>=K三浪c,p壹),COLORffffff,LINEDOT;
DRAWTEXT(barpos=K三浪c,P壹,numtostr(倍数壹,0)+' '+numtostr(P壹,3)),COLORFFFFFF;
{DRAWTEXT(barpos=K三浪c,P1,'1'),COLORFFFFFF;}
倍数贰:=2+整体偏移+参壹;
y贰:一浪长*倍数贰,linethick0;
P贰:P三浪c+y贰,linethICK0;
POLYLINE(barpos>=K三浪c,p贰),COLORffffff,LINEDOT;
DRAWTEXT(barpos=K三浪c,P贰,numtostr(倍数贰,0)+' '+numtostr(P贰,3)),COLORFFFFFF;
{按照飞狐原有参数，3倍的1这里先隐去，想恢复去掉下边前后的中括号即可}
{倍数叁:=3+整体偏移+参壹;
y叁:一浪长*倍数叁,linethick0;
P叁:P三浪c+y叁,linethICK0;
POLYLINE(barpos>=K三浪c,p叁),COLORffffff,LINEDOT;
DRAWTEXT(barpos=K三浪c,P叁,numtostr(倍数叁,0)+' '+numtostr(P叁,3)),COLORFFFFFF;
}
end;
{-------------------------------------}
if 参自定义1>-0.5 then
begin
倍数自定义1:= 参自定义1+整体偏移;
y自定义1:一浪长*倍数自定义1,linethick0;
P自定义1:=P三浪c+y自定义1,linethick0;
partline(barpos>=K三浪c,p自定义1),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义1,numtostr(倍数自定义1,3)+' '+numtostr(P自定义1,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义2>-0.5 then
begin
倍数自定义2:= 参自定义2+整体偏移;
y自定义2:一浪长*倍数自定义2,linethick0;
P自定义2:=P三浪c+y自定义2,linethick0;
partline(barpos>=K三浪c,p自定义2),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义2,numtostr(倍数自定义2,3)+' '+numtostr(P自定义2,3)),COLOR0000FF;
end;
{§历史影响现在，现在影响未来。§}
{-------------画k线---------------}
{觉得k线被线阻挡，就重新画k线}
{stickline(c>o,c,o,8,1),color5050ff;
stickline(c>o,h,c,0.5,0),color5050ff;
stickline(c>o,o,l,0.5,0),color5050ff;
stickline(cstickline(cstickline(c
f5:=barssince(c)=fbars-1;
VERTLINE(f5),pointdot,color996666,linethick1,shift5;
DRAWNUMBER(f5,SYSPARAM(4),5,0),shift5;
ff5:=barssince(c)=fbars-5;
VERTLINE(ff5),pointdot,color996666,linethick1;
DRAWNUMBER(ff5,SYSPARAM(4),5,0);
f8:=barssince(c)=fbars-1;
ff8:=barssince(c)=fbars-8;
VERTLINE(f8),pointdot,color996666,linethick1,shift8;
DRAWNUMBER(f8,SYSPARAM(4),8,0),shift8;
VERTLINE(ff8),pointdot,color996666,linethick1;
DRAWNUMBER(ff8,SYSPARAM(4),8,0);
f13:=barssince(c)=fbars-1;
ff13:=barssince(c)=fbars-13;
vertline(f13),pointdot,color996666,linethick1,shift13;
DRAWNUMBER(f13,SYSPARAM(4),13,0),shift13;
vertline(ff13),pointdot,color996666,linethick1;
DRAWNUMBER(ff13,SYSPARAM(4),13,0);
f21:=barssince(c)=fbars-1;
ff21:=barssince(c)=fbars-21;
vertline(f21),pointdot,color996666,linethick1,shift21;
DRAWNUMBER(f21,SYSPARAM(4),21,0),shift21;
vertline(ff21),pointdot,color996666,linethick1;
DRAWNUMBER(ff21,SYSPARAM(4),21,0);
f34:=barssince(c)=fbars-1;
ff34:=barssince(c)=fbars-34;
vertline(f34),pointdot,color996666,linethick1,shift34;
DRAWNUMBER(f34,SYSPARAM(4),34,0),shift34;
vertline(ff34),pointdot,color996666,linethick1;
DRAWNUMBER(ff34,SYSPARAM(4),34,0);
f55:=barssince(c)=fbars-1;
ff55:=barssince(c)=fbars-54;
vertline(f55),pointdot,color996666,linethick1,shift55;
DRAWNUMBER(f55,SYSPARAM(4),55,0)shift55;
vertline(ff55),pointdot,color996666,linethick1;
DRAWNUMBER(ff55,SYSPARAM(4),55,0);
f89:=barssince(c)=fbars-1;
ff89:=barssince(c)=fbars-88;
vertline(f89),pointdot,color996666,linethick1,shift89;
DRAWNUMBER(f89,SYSPARAM(4),89,0),shift89;
vertline(ff89),pointdot,color996666,linethick1;
DRAWNUMBER(ff89,SYSPARAM(4),89,0);
f134:=barssince(c)=fbars+20;
ff134:=barssince(c)=fbars-144;
vertline(f134),pointdot,color996666,linethick1,shift124;
DRAWNUMBER(f134,SYSPARAM(4),144,0),shift124;
vertline(ff134),pointdot,color996666,linethick1;
DRAWNUMBER(ff134,SYSPARAM(4),144,0);
涨跌周期
Var1:=FILTER(BACKSET(HIGH=HHV(HIGH,M) OR LOW=LLV(LOW,M),1),M);
起始日: STICKLINE(Var1,1,7,3,0);
７天: STICKLINE(BARSLAST(Var1)-6=1,2,6,0.5,1);
２１天: STICKLINE(BARSLAST(Var1)-20=1,2,6,0.5,1);
２８天: STICKLINE(BARSLAST(Var1)-27=1,2,6,0.5,1);
４５天: STICKLINE(BARSLAST(Var1)-44=1,2,6,0.5,1);
６４天: STICKLINE(BARSLAST(Var1)-64=1,2,6,0.5,1);
８９天: STICKLINE(BARSLAST(Var1)-88=1,2,6,0.5,1);
１１７天: STICKLINE(BARSLAST(Var1)-116=1,2,6,0.5,1);
１５５天: STICKLINE(BARSLAST(Var1)-154=1,2,6,0.5,1);
１８８天: STICKLINE(BARSLAST(Var1)-188=1,2,6,0.5,1);
DRAWTEXT(DATE=1030122,2,'调整指标参数，把起始日调到你认为启动的周期最低价或回调开始最高价的日子，剩下的就是看图查周期了。');
m=50
费氏级数1
n1=10 n2 =10
a2:=ZIG(2,N1);D1:=A2-REF(A2,1); D2:=CROSS(D1,0);
DRAWICON(REFX(D2,1),l*0.98,8); A4:=BARSLAST(D2)-1;
aa4:=(a4=32 or a4=53 or a4=11 or a4=19 or a4=87 or a4=142 or a4=231);
STICKLINE(aa4,h*1.02,h*1.023,6,0),COLORYELLOW;
DRAWNUMBER(aa4,h*1.04,a4+2,0),COLORYELLOW;
a11:=ZIG(1,n2); D3:=A11-REF(A11,1); D4:=CROSS(0,D3);
A5:=BARSLAST(D4)-1; DRAWICON(REFX(D4,1),H*1.02,9);
aa5:=(a5=32 or a5=53 or a5=11 or a5=19 or a5=87 or a5=142 or a5=231);
STICKLINE(aa5,l*0.98,l*0.983,6,0),COLORCYAN;
DRAWNUMBER(aa5 ,L*0.97,a5+2,0),COLORCYAN;
DRAWNUMBER(ISLASTBAR,hhv(h,10)*1.02,a4+2,0),COLORYELLOW,shift1;
DRAWNUMBER(ISLASTBAR,llv(l,10)*0.99,a5+2,0),COLORCYAN,shift1;
DRAWTEXT(ISLASTBAR,hhv(h,10)*1.02,'天'),COLORYELLOW,shift5;
DRAWTEXT(ISLASTBAR,llv(l,10)*0.99,'天'),COLORCYAN,shift5;
高点连线
25 13 21 55
HA1:=HHVBARS(HIGH,N1);
HA2:=BACKSET(ISLASTBAR,HA1+1);
HA:=FILTER(HA2,N1);
DRAWICON(HA,HIGH,10);
HB1:=HHVBARS(HIGH,N2);
HB2:=BACKSET(ISLASTBAR,HB1+1);
HB:=FILTER(HB2,N2);
DRAWICON(HB,HIGH,10);
HC1:=HHVBARS(HIGH,N3);
HC2:=BACKSET(ISLASTBAR,HC1+1);
HC:=FILTER(HC2,N3);
DRAWICON(HC,HIGH,10);
HD1:=HHVBARS(HIGH,N4);
HD2:=BACKSET(ISLASTBAR,HD1+1);
HD:=FILTER(HD2,N4);
DRAWICON(HD,HIGH,10);
LINEVALUE(HD,HIGH,HC,HIGH,0,0),colorFFFF;
LINEVALUE(HC,HIGH,HB,HIGH,0,0),colorFF9000;
LINEVALUE(HB,HIGH,HA,HIGH,0,0),colorFF00;
低点连线
LA1:=LLVBARS(LOW,N1);
LA2:=BACKSET(ISLASTBAR,LA1+1);
LA:=FILTER(LA2,N1);
DRAWICON(LA,LOW,10);
LB1:=LLVBARS(LOW,N2);
LB2:=BACKSET(ISLASTBAR,LB1+1);
LB:=FILTER(LB2,N2);
DRAWICON(LB,LOW,10);
LC1:=LLVBARS(LOW,N3);
LC2:=BACKSET(ISLASTBAR,LC1+1);
LC:=FILTER(LC2,N3);
DRAWICON(LC,LOW,10);
LD1:=LLVBARS(LOW,N4);
LD2:=BACKSET(ISLASTBAR,LD1+1);
LD:=FILTER(LD2,N4);
DRAWICON(LD,LOW,10);
LINEVALUE(LD,LOW,LC,LOW,0,0),colorFFFF;
LINEVALUE(LC,LOW,LB,LOW,0,0),colorFF9000;
LINEVALUE(LB,LOW,LA,LOW,0,0),colorFF00;
☆倒数线
DRAWGBK(1,COLORRGB(100,100,100),COLORRGB(50,50,50),0);
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,7,0),colorFFFF00;
STICKLINE(OPEN>=CLOSE,HIGH,LOW,0,0),colorFFFF00;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,1),colorFF;
STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0,0),colorFF;
STICKLINE(CLOSE>=OPEN,LOW,OPEN,0,0),colorFF;
B1:='──────────\n CBL';
B2:='^^^^^^^^^^^^^^^^^^^^^\n CBL STOP';
B3:='^^^^^^^^^^^^^^^^^^^^^\n CBL MAX';
A3:=HIGH+HIGH*(HIGH-LLV(LOW,10))/LLV(LOW,10);
DRAWTEXT(BARPOS=SYSPARAM(1)-3,HIGH,B1),colorFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(1)-3,LOW,B2),colorFF00;
DRAWTEXT(BARPOS=SYSPARAM(1)-3,A3,B3),color6699FF;
DRAWTEXT(BARPOS=SYSPARAM(1),LOW*0.995,'▲'),ALIGN0,colorFF00;
江恩时间
A:=L=LLV(L,240);
A1:=BARSLAST(A);
VERTLINE(A1=30);
VERTLINE(A1=60);
VERTLINE(A1=90);
VERTLINE(A1=120);
VERTLINE(A1=150);
VERTLINE(A1=180);
VERTLINE(A1=210);
VERTLINE(A1=2400);
DRAWTEXT(A1=30,1,'第一时间');
DRAWTEXT(A1=60,1,'第二时间');
DRAWTEXT(A1=90,1,'第三时间');
DRAWTEXT(A1=120,1,'第四时间');
DRAWTEXT(A1=150,1,'第五时间');
DRAWTEXT(A1=180,1,'第六时间');
DRAWTEXT(A1=210,1,'第七时间');
DRAWTEXT(A1=240,1,'第八时间');
日显周
//日线
TJ:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(TJ,LOW,HIGH,0,0),ColorE9;
STICKLINE(TJ,LOW,CLOSE,8,0),Color80;
STICKLINE(TJ,LOW,CLOSE,6,0),ColorA5;
STICKLINE(TJ,LOW,CLOSE,4,0),ColorC0;
STICKLINE(TJ,LOW,CLOSE,2,0),ColorE6;
STICKLINE(NOT(TJ),HIGH,LOW,0,0),ColorAA00;
STICKLINE(NOT(TJ),CLOSE,OPEN,8,0),Color5000;
STICKLINE(NOT(TJ),CLOSE,OPEN,6,0),Color6600;
STICKLINE(NOT(TJ),CLOSE,OPEN,4,0),Color8000;
STICKLINE(NOT(TJ),CLOSE,OPEN,2,0),ColorA000;
{日周K线}
TBS:=POW(10,ABS(LOG(MINDIFF)));
//周线
BZ:=WEEKDAY;
ZB:=DATEDIFF(REF(DATE,1),DATE)<>BZ-REF(BZ,1) OR BARPOS=1;
ZW:=BARSLAST(ZB),LINETHICK;
Zdg:=ZW=0 or ISLASTBAR;
Zwx:=0*c;
for i=datacount-1 downto lbound(Zdg) do
if Zdg then
Zwx:=0;
else
Zwx:=Zwx[i+1]+1;
Zr:=BACKSET(ISLASTBAR,Zw+1)-ISLASTBAR;
Zwx:=refx(Zwx,1)+Zr,LINETHICK;
zq:=BARSLAST(ref(Zwx,1)=0 or BARPOS=1)+1;
Zo:=ref(o,Zw);
Zh:=hhv(h,Zw+1);
ZL:=LLv(L,Zw+1);
周开:ROUND(ZO*TBS)/TBS,LINETHICK,colored;
周高:ROUND(refx(Zh,Zwx)*TBS)/TBS,,COLORFF,LINETHICK;
周低:ROUND(refx(ZL,Zwx)*TBS)/TBS,COLORFF00,LINETHICK;
周收:ROUND(refx(c,Zwx)*TBS)/TBS,,COLORFF00FF,LINETHICK;
Zf:=周收>周开 or (周收=周开 and 周收>ref(周收,Zw+1));
Zj:=cross(Zw,Zwx);// OR ISLASTBAR;
yt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14));
//画横线
wv:=BARSLAST(zb),LINETHICK;
PARTLINE(wv>0 and zf,周收)COLOR0066ff;
PARTLINE(wv>0 and zf,周开)COLOR0066ff;
PARTLINE(wv>0 and not(zf),周收),COLORFFffcc;
PARTLINE(wv>0 and not(zf),周开),COLORFFffcc;
STICKLINE(wv>0 and not(zf) and zj,周开,周高,1,0)COLORFFffcc;
STICKLINE(wv>0 and not(zf) and zj,周收,周低,1,0)COLORFFffcc;
STICKLINE(wv=0 and not(zf),周开,周收,1,0)COLORFFffcc;
STICKLINE((refx(wv=0,1) or ISLASTBAR) and not(zf),周收,周开,1,0),COLORFFffcc;
//影线
{STICKLINE(Zw>0 and Zf and Zj,周低,周高,1,0)COLORAAAAEE;}
{STICKLINE(周开<周收,周开,周收,YT,0),COLORAAAAEE;}
{STICKLINE(Zw>0 and not(Zf) and Zj,周低,周高,0,0)COLOREEAAAA;}
{STICKLINE(周开>周收,周开,周收,YT,0),COLOREEAAAA;}
STICKLINE(Zw>0 and zf and zj,周收,周高,0,0),COLOR0066ff;
STICKLINE(Zw>0 and zf and zj,周开,周低,0,0),COLOR0066ff;
STICKLINE(Zw=0 and zf ,周收,周开,0,0),COLOR0066ff;
STICKLINE((refx(wv=0,1) or ISLASTBAR) and zf,周开,周收,0,0),COLOR0066ff;
时间窗
a1:ema((ema(close,1)+ema(close,3)+ema(close,5))/3,3),colorred;
a2:ema((ema(close,3)+ema(close,5)+ema( close,7))/3,3),colorred;
a3:ema((ema(close,5)+ema(close,7)+ema( close,9))/3,3),colorred;
a4:ema((ema(close,7)+ema(close,9)+ema( close,11))/3,3),colorred;
a5:ema((ema(close,9)+ema(close,11)+ema( close,13))/3,3),colorred;
a6:ema((ema(close,11)+ema(close,13)+ema( close,15))/3,3),colorred;
a7:ema((ema(close,13)+ema(close,15)+ema( close,17))/3,3),colorred;
a8:ema((ema(close,15)+ema(close,17)+ema( close,19))/3,3),colorred;
a9:ema((ema(close,17)+ema(close,19)+ema( close,21))/3,3),coloryellow;
a10:ema((ema(close,19)+ema(close,21)+ema( close,23))/3,3),coloryellow;
a11:ema((ema(close,21)+ema(close,23)+ema( close,25))/3,3),coloryellow;
A:=ema((EMA(close,29)+EMA(close,31)+EMA(close,33))/3,3),coloryellow;
B:=REF(A,1);
drawtext(a>b,(a+b)/2,'★'), COLORff00ff;
drawtext(a<=b,(a+b)/2,'☆'), COLORgreen;
STICKLINE(A>B,A,B,8,0),COLORff00ff;
STICKLINE(A<=B,A,B,8,1),COLORff0000;
a15:a-(a1-a*0.997),colorFF1010;
a16:a-(a2-a),colorff2010;
a17:a-(a3-a),colorff3010;
a18:a-(a4-a),colorff4010;
a19:a-(a5-a),colorff5010;
a20:a-(a6-a),colorff6010;
a21:a-(a7-a),colorff7010;
a22:a-(a8-a),colorff8010;
a23:a-(a9-a),colorff9010;
a24:a-(a10-a),colorffc010;
a25:a-(a11-a*0.997),colorffe010;
STICKLINE(open>=close ,O,C,9,0 ),COLORaaaaaa;
STICKLINE(open>=close ,O,C,6,0 ),COLORbbbbbb;
STICKLINE(open>=close ,O,C,2.4,0 ),COLORcccccc;
STICKLINE(open>=close ,O,C,1.1,0 ),COLORdddddd;
STICKLINE(close>open,O,C,9,0 ),COLOr6666cc;
STICKLINE(close>open,O,C,6 ,0 ),COLOR7777dd;
STICKLINE(close>open,O,C,2.4 ,0 ),COLOR8888ee;
STICKLINE(close>open,O,C,1.1 ,0 ),COLOR9999ff;
STICKLINE(close>open,open,low,0.5,0 ),COLOR1199ff;
STICKLINE(close>open,close,HIGH,0.5 ,0 ),COLOR1199ff;
STICKLINE(open>=close,close,low,0.5 ,0 ),COLORcccccc;
STICKLINE(open>=close,open,HIGH,0.5 ,0 ),COLORcccccc;
var31:=hhvbars(zig(3, 19)>ref(zig(3,19),1) and ref(zig(3,19), 1)
stickline(var31=2,l*0.95,l*0.98,8,0),color0000ff;
drawtext(var31=2,l*0.95,'3天'),coloryellow;
stickline(var31=4,h*1.05,h*1.02,8,0),color9966ff;
drawtext(var31=4,h*1.06,'5天'),coloryellow;
stickline(var31=7,l*0.95,l*0.98,8,0),color00ffff;
drawtext(var31=7,l*0.95,'8天'),coloryellow;
stickline(var31=12,h*1.05,h*1.02,8,0),colorff33ff;
drawtext(var31=12,h*1.06,'13天'),coloryellow;
stickline(var31=20,l*0.95,l*0.98,8,0),color0066ff;
drawtext(var31=20,l*0.95,'21天'),coloryellow;
stickline(var31=33,h*1.05,h*1.02,8,0),colorffff00;
drawtext(var31=33,h*1.06,'34天'),coloryellow;
stickline(var31=54,l*0.95,l*0.98,8,0),color006600;
drawtext(var31=54,l*0.95,'55天'),coloryellow;
stickline(var31=88,h*1.05,h*1.02,8,0),color00ff00;
drawtext(var31=88,h*1.06,'89天'),coloryellow;
stickline(var31=143,l*0.95,l*0.98,8,0),colorccffff;
drawtext(var31=143,l*0.95,'144天'),coloryellow;
stickline(var31=232 ,h*1.05,h*1.02,8,0),colorff0033;
drawtext(var31=232,h*1.06,'233天'),coloryellow;
stickline(var31=376,l*0.95,l*0.98,8,0),colorff9966;
drawtext(var31=376,l*0.95,'377天'),coloryellow;
股票箱
n=45
FH:=HIGH;
FL:=LOW;
SELL:=0*FH;
BUY:=SELL;
SIGNAL:=SELL;
BOXH:SELL,LINETHICK0;
BOXL:SELL,LINETHICK0;
VARIABLE:HC=0,LC=0,BT=FH[1],BB=FH[1];
FOR I=1 TO DATACOUNT DO BEGIN
IF HC>1 THEN BEGIN
IF LC>2 AND BT<=FH[I] THEN BEGIN
BUY[I]:=1;
FOR J=I-1 DOWNTO I-HC DO BEGIN
BOXH[J]:=FH[I-HC],LINETHICK0;
BOXL[J]:=FL[I-LC],LINETHICK0;
END;
HC:=0;
LC:=0;
END;
IF BT>FH[I] THEN BEGIN
IF LC>2 THEN BEGIN
IF BB>=FL[I] THEN BEGIN
SELL[I]:=1;
FOR J=I-1 DOWNTO I-HC DO BEGIN
BOXH[J]:=FH[I-HC],LINETHICK0;
BOXL[J]:=FL[I-LC],LINETHICK0;
END;
HC:=-1;
LC:=0;
END;ELSE BEGIN
BOXH[I]:=FH[I-HC],LINETHICK0;
BOXL[I]:=FL[I-LC],LINETHICK0;
END;
END;
HC:=HC+1;
IF LC>1 THEN BEGIN
IF BB
IF LC=3 THEN BEGIN
SIGNAL[I-HC+1]:=1;
FOR J=I DOWNTO I-HC+1 DO BEGIN
BOXH[J]:=FH[I-HC+1],LINETHICK0;
BOXL[J]:=FL[I-LC+1],LINETHICK0;
END;
END;
END;ELSE
LC:=0;
END;ELSE
IF LC=1 THEN BEGIN
IF BB
END;ELSE
LC:=0;
END;
IF LC=0 AND HC>1 THEN BEGIN
BB:=FL[I];
LC:=LC+1;
END;
END;ELSE BEGIN
HC:=0;
LC:=0;
END;
END;ELSE
IF HC=1 THEN BEGIN
IF BT>FH[I] THEN
HC:=HC+1;ELSE BEGIN
HC:=0;
LC:=0;
END;
END;
IF HC=0 THEN BEGIN
BT:=FH[I];
HC:=HC+1;
END;
END;
PARTLINE(BOXH AND BOXH=REF(BOXH,1),BOXH),POINTDOT,colorFFFF;
PARTLINE(BOXL AND BOXL=REF(BOXL,1),BOXL),POINTDOT,colorFFFF;
PARTLINE(BOXL AND BOXL=REF(BOXL,1),(BOXL+BOXH)/2),POINTDOT,colorFFFF;
STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),POINTDOT,colorFFFF;
DRAWICON(BUY,LOW*0.98,4);
DRAWICON(SELL,HIGH*1.02,5);
BOXHL:=(BOXL+BOXH)/2;
HAC:=CLOSE;
VARIABLE:HA=1;
FOR I=2 TO DATACOUNT DO BEGIN
IF BOXH[I-1]=0 AND BOXH[I]>0 AND (BOXH[I]<>BOXH[I-1] OR BOXL[I]<>BOXL[I-1]) THEN
HAC[I]:=0;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND (BOXH[I]<>BOXH[I-1] OR BOXL[I]<>BOXL[I-1]) THEN
HAC[I]:=0;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]<>BOXL[I-1] THEN
HAC[I]:=0;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]=BOXL[I-1] THEN
HAC[I]:=HA;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]<>BOXL[I-1] THEN
HAC[I]:=HA;
IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXH[I-2]=BOXH[I-1] THEN
HAC[I]:=HAC[I-1]+HA;
IF BOXH[I-1]>0 AND BOXH[I]=0 THEN
HAC[I]:=0;
IF BOXH[I-1]=0 AND BOXH[I]=0 THEN
HAC[I]:=0;
END;
NV:=HAC;
KK:=HAC[1];
LL:=HAC[1];
LLT:=HAC[1];
MM:=HAC[1];
MMT:=HAC[1];
FOR I=2 TO DATACOUNT DO BEGIN
IF HAC[I-1]=0 AND HAC[I]>0 THEN
KK:=I-1;
IF HAC[I-1]>0 AND HAC[I]>0 THEN
LLT:=I-1;
IF HAC[I-1]>0 AND HAC[I]>0 THEN
FOR J=KK TO LLT DO BEGIN
NV[J]:=HAC[I]+1;
END;
IF HAC[I-1]>0 AND HAC[I]=0 THEN
LL:=I-1;
IF HAC[I-1]>0 AND HAC[I]=0 THEN
FOR J=KK TO LL DO BEGIN
NV[J]:=HAC[I-1]+1;
END;
END;
XX:=NV;
BB25:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-26.5659*3.14159/180))+BOXH;
PARTLINE(REF(BB25,1)<>0 AND BOXH=REF(BOXH,1) AND BB25>0 AND BB25>BOXL-BOXL*0.05,BB25),POINTDOT,LINETHICK1,colorFF00FF;
DRAWLINE(BB25>0 AND BB25=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB25,BB25>0 AND BB25=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB25,1),colorFF00FF;
BB45:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-45*3.14159/180))+BOXH;
PARTLINE(REF(BB45,1)<>0 AND BOXH=REF(BOXH,1) AND BB45>0 AND BB45>BOXL-BOXL*0.05,BB45),LINETHICK1,colorFF00FF;
DRAWLINE(BB45>0 AND BB45=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB45,BB45>0 AND BB45=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB45,1),colorFF00FF;
BB66:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-63.435*3.14159/180))+BOXH;
PARTLINE(REF(BB66,1)<>0 AND BOXH=REF(BOXH,1) AND BB66>0 AND BB66>BOXL-BOXL*0.025,BB66),POINTDOT,LINETHICK1,colorFF00FF;
XBB23:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*TAN(26.5659*3.14159/180)+BOXL;
PARTLINE(XBB23>0 AND XBB23>BOXL AND XBB23
XBB45:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*TAN(45*3.14159/180)+BOXL;
PARTLINE(XBB45>0 AND XBB45>BOXL AND XBB45
XBB66:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*TAN(63.435*3.14159/180)+BOXL;
PARTLINE(XBB66>0 AND XBB66>BOXL AND XBB66
AH:=HIGH;
AL:=LOW;
AO:=OPEN;
STICKLINE(AC>=AO,AH,AC,1,0),color8899;
STICKLINE(AC>=AO,AH,AC,0,0),color77FFEE;
STICKLINE(AC>=AO,AO,AL,1,0),color8899;
STICKLINE(AC>=AO,AO,AL,0,0),color77FFEE;
STICKLINE(AC>AO,AC,AO,8,0),color8899;
STICKLINE(AC>AO,AC,AO,7,0),color1199AA;
STICKLINE(AC>AO,AC,AO,6,0),color22AABB;
STICKLINE(AC>AO,AC,AO,5,0),color33BBCC;
STICKLINE(AC>AO,AC,AO,4,0),color44CCDD;
STICKLINE(AC>AO,AC,AO,3,0),color55DDEE;
STICKLINE(AC>AO,AC,AO,2,0),color66EEEE;
STICKLINE(AC>AO,AC,AO,1,0),color77FFEE;
STICKLINE(AC<=AO,AH,AC,1,0),colorFF8800;
STICKLINE(AC<=AO,AH,AC,0,0),colorFFFF33;
STICKLINE(AC<=AO,AO,AL,1,0),colorFF8800;
STICKLINE(AC<=AO,AO,AL,0,0),colorFFFF33;
STICKLINE(AC<=AO,AC,AO,8,0),colorFF8800;
STICKLINE(AC<=AO,AC,AO,7,0),colorFF9900;
STICKLINE(AC<=AO,AC,AO,6,0),colorFFAA11;
STICKLINE(AC<=AO,AC,AO,5,0),colorFFBB11;
STICKLINE(AC<=AO,AC,AO,4,0),colorFFCC22;
STICKLINE(AC<=AO,AC,AO,3,0),colorFFDD22;
STICKLINE(AC<=AO,AC,AO,2,0),colorFFEE33;
STICKLINE(AC<=AO,AC,AO,1,0),colorFFFF33;
LQB黄金分割
//白林──精品黄金分割（飞狐3.9公式）
//如果感兴趣，请下载并保持原文件的完整性，本人支持原码公式
//公式名为：LQB黄金分割
//本公式可以跟随光标移动而移动，请打开十字光标并移动试试看
//黄金分割线──价格
Var1:=SYSPARAM(3)-SYSPARAM(2)+1;
Var2:=SYSPARAM(3)-BARPOS;
Var3:=HHV(HIGH,Var1);
Var4:=LLV(LOW,VaR1);
Var5:=REFX(Var3,Var2); //主图最高价
Var5:IF(SYSPARAM(3)<>SYSPARAM(1),SYSPARAM(6),Var5),COLOR0000FF;
Var6:REFX(Var4,Var2),COLOR0000FF; //主图最低价
黄191:(Var5-Var6)*0.191+Var6,COLOR0000FF,POINTDOT;
黄382:(Var5-Var6)*0.382+Var6,COLOR0000FF,POINTDOT;
黄500:(Var5-Var6)*0.500+Var6,COLOR0000FF;
黄618:(Var5-Var6)*0.618+Var6,COLOR0000FF,POINTDOT;
黄809:(Var5-Var6)*0.809+Var6,COLOR0000FF,POINTDOT;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.0381+Var6,'最低价('+NUMTOSTR(Var6,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.191+Var6,'黄金0.191('+NUMTOSTR(黄191,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.382+Var6,'黄金0.382('+NUMTOSTR(黄382,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.500+Var6,'黄金分割中轴('+NUMTOSTR(黄500,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.618+Var6,'黄金0.618('+NUMTOSTR(黄618,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.809+Var6,'黄金0.809('+NUMTOSTR(黄809,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.981+Var6,'最高价('+NUMTOSTR(Var5,2)+')'),COLOR00FF00;
//黄金分割线──时间
data21:=21+SYSPARAM(1)-1;
data34:=34+SYSPARAM(1)-1;
data55:=55+SYSPARAM(1)-1;
data89:=89+SYSPARAM(1)-1;
data144:=144+SYSPARAM(1)-1;
VERTLINE(ROUND(data21)=BARPOS),COLOR0000FF,POINTDOT;
VERTLINE(ROUND(data34)=BARPOS),COLOR0000FF,POINTDOT;
VERTLINE(ROUND(data55)=BARPOS),COLOR0000FF;
VERTLINE(ROUND(data89)=BARPOS),COLOR0000FF,POINTDOT;
VERTLINE(ROUND(data144)=BARPOS),COLOR0000FF,POINTDOT;
DRAWTEXT(ROUND(data21)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'21'),COLOR0000FF;
DRAWTEXT(ROUND(data34)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'34'),COLOR0000FF;
DRAWTEXT(ROUND(data55)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'55'),COLOR0000FF;
DRAWTEXT(ROUND(data89)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'89'),COLOR0000FF;
DRAWTEXT(ROUND(data144)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,'144'),COLOR0000FF;
DRAWTEXT(SYSPARAM(3)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,NUMTOSTR(SYSPARAM(3)-SYSPARAM(1)+1,0)),COLOR0000FF;
RSI高低点画线
input:n1(6,1,100),n2(12,1,100),n3(24,1,100),n(10,1,100),m1(10,1,100),m2(8,1,100);
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;
RSI3:SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100;
gz1:=PEAKBARSA(rsi1,n,m1);
gg1:=BACKSET(ISLASTBAR,gz1+1);
gz2:=PEAKBARSA(rsi1,n,m2);
gg2:=BACKSET(ISLASTBAR,gz2+1);
dz1:=TROUGHBARSA(rsi1,n,m1);
dg1:=BACKSET(ISLASTBAR,dz1+1);
dz2:=TROUGHBARSA(rsi1,n,m2);
dg2:=BACKSET(ISLASTBAR,dz2+1);
DRAWLINE(gg1<>ref(gg1,1),rsi1,gg2<>ref(gg2,1),rsi1,1),colorgreen,linethick2;
DRAWLINE(dg1<>ref(dg1,1),rsi1,dg2<>ref(dg2,1),rsi1,1),color5252ff,linethick2;
动态角度线
M:=(SYSPARAM(4)-SYSPARAM(5))/(SYSPARAM(3)-SYSPARAM(2));
DRAWSL(BARPOS=SYSPARAM(1),LOW,15*M/50,0,0),COLORWHITE;
DRAWSL(BARPOS=SYSPARAM(1),LOW,30*M/50,0,0),COLORGREEN;
DRAWSL(BARPOS=SYSPARAM(1),LOW,45*M/50,0,0),COLORMAGENTA;
DRAWSL(BARPOS=SYSPARAM(1),LOW,75*M/50,0,0),COLORCYAN;
DRAWSL(BARPOS=SYSPARAM(1),HIGH,-75*M/50,0,0),COLORWHITE;
DRAWSL(BARPOS=SYSPARAM(1),HIGH,-60*M/50,0,0),COLORGREEN;
DRAWSL(BARPOS=SYSPARAM(1),HIGH,-45*M/50,0,0),COLORMAGENTA;
DRAWSL(BARPOS=SYSPARAM(1),HIGH,-15*M/50,0,0),COLORCYAN;
黄金分割（可视画面）
n1:=sysparam(3);
n:=n1-sysparam(2)+1;
hh:=hhv(H,n);
ll:=llv(L,n);
最高:hh[n1];
最低:ll[n1];
最低+(最高-最低)*0.191;
最低+(最高-最低)*0.382;
最低+(最高-最低)*0.5;
最低+(最高-最低)*0.618;
最低+(最高-最低)*0.809;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'000%↑'),SHIFT5,COLORred;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.191,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'19.1%↑'),SHIFT5,COLORff8500;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.382,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'38.2%↑'),SHIFT5,COLOR9999;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.5,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'50%↑'),SHIFT5,COLORMAGENTA;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.618,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'61.8%↑'),SHIFT5,COLOR9999;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*0.809,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'80.9%↑'),SHIFT5,COLORff8500;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低+(最高-最低)*1,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'100%↑'),SHIFT5,COLORred;
江恩全集公式
http://www.chcj.net/thread-1163120-1-1.html
附件
江恩公式.ALG (6.72 KB)2008-7-28 09:30, 下载次数: 98
波浪尺
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),参236(-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:=H;
PL:=L;
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)]
drawline(barpos=K一浪a,p一浪a,barpos=K二浪b,p二浪b,0),color77FFFF,linethick1;
drawline(barpos=K二浪b,p二浪b,barpos=K三浪c,p三浪c,0),color77FFFF,linethick1;
一浪长: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 参236>-0.5 then
begin
倍数236:=0.236+整体偏移+参236;
y236:一浪长*倍数236,linethick0;
P236:=P三浪c+y236,linethick0;
partline(barpos>=K三浪c,p236),COLOR0099FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P236,numtostr(倍数236,3)+' '+numtostr(P236,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),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P0382,numtostr(倍数0382,3)+' '+numtostr(P0382,3)),COLOR77FFFF;
倍数1382:=1.382+整体偏移+参382;
y1382:一浪长*倍数1382,linethick0;
P1382:=P三浪c+y1382,linethick0;
partline(barpos>=K三浪c,p1382),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P1382,numtostr(倍数1382,3)+' '+numtostr(P1382,3)),COLOR77FFFF;
倍数2382:=2.382+整体偏移+参382;
y2382:一浪长*倍数2382,linethick0;
P2382:=P三浪c+y2382,linethick0;
partline(barpos>=K三浪c,p2382),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P2382,numtostr(倍数2382,3)+' '+numtostr(P2382,3)),COLOR77FFFF;
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),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P0618,numtostr(倍数0618,3)+' '+numtostr(P0618,3)),COLOR77FFFF;
倍数1618:=1.618+整体偏移+参618;
y1618:一浪长*倍数1618,linethick0;
P1618:=P三浪c+y1618,linethick0;
partline(barpos>=K三浪c,p1618),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P1618,numtostr(倍数1618,3)+' '+numtostr(P1618,3)),COLOR77FFFF;
倍数2618:=2.618+整体偏移+参618;
y2618:一浪长*倍数2618,linethick0;
P2618:=P三浪c+y2618,linethick0;
partline(barpos>=K三浪c,p2618),COLOR77FFFF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P2618,numtostr(倍数2618,3)+' '+numtostr(P2618,3)),COLOR77FFFF;
end;
{-------------------------------------}
{-------------------------------------}
if 参壹>-0.5 then
begin
倍数壹:=1+整体偏移+参壹;
y壹:一浪长*倍数壹,linethick0;
P壹:P三浪c+y壹,linethICK0;
POLYLINE(barpos>=K三浪c,p壹),COLORffffff,LINEDOT;
DRAWTEXT(barpos=K三浪c,P壹,numtostr(倍数壹,0)+' '+numtostr(P壹,3)),COLORFFFFFF;
{DRAWTEXT(barpos=K三浪c,P1,'1'),COLORFFFFFF;}
倍数贰:=2+整体偏移+参壹;
y贰:一浪长*倍数贰,linethick0;
P贰:P三浪c+y贰,linethICK0;
POLYLINE(barpos>=K三浪c,p贰),COLORffffff,LINEDOT;
DRAWTEXT(barpos=K三浪c,P贰,numtostr(倍数贰,0)+' '+numtostr(P贰,3)),COLORFFFFFF;
{按照飞狐原有参数，3倍的1这里先隐去，想恢复去掉下边前后的中括号即可}
{倍数叁:=3+整体偏移+参壹;
y叁:一浪长*倍数叁,linethick0;
P叁:P三浪c+y叁,linethICK0;
POLYLINE(barpos>=K三浪c,p叁),COLORffffff,LINEDOT;
DRAWTEXT(barpos=K三浪c,P叁,numtostr(倍数叁,0)+' '+numtostr(P叁,3)),COLORFFFFFF;
}
end;
{-------------------------------------}
if 参自定义1>-0.5 then
begin
倍数自定义1:= 参自定义1+整体偏移;
y自定义1:一浪长*倍数自定义1,linethick0;
P自定义1:=P三浪c+y自定义1,linethick0;
partline(barpos>=K三浪c,p自定义1),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义1,numtostr(倍数自定义1,3)+' '+numtostr(P自定义1,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义2>-0.5 then
begin
倍数自定义2:= 参自定义2+整体偏移;
y自定义2:一浪长*倍数自定义2,linethick0;
P自定义2:=P三浪c+y自定义2,linethick0;
partline(barpos>=K三浪c,p自定义2),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义2,numtostr(倍数自定义2,3)+' '+numtostr(P自定义2,3)),COLOR0000FF;
end;
{§历史影响现在，现在影响未来。§}
{-------------画k线---------------}
{觉得k线被线阻挡，就重新画k线}
{stickline(c>o,c,o,8,1),color5050ff;
stickline(c>o,h,c,0.5,0),color5050ff;
stickline(c>o,o,l,0.5,0),color5050ff;
stickline(c
移动费波周期
新浪科技：摩根士丹利报告全文：移动互联网是新技术周期
固定周期移动法寻找未来拐点信息!
中移动自有WAP业务将免除流量费
如何追回移动恶意扣去的话费
黑莓低价终端杀入中国 中移动超高月费吓跑用户
网络改造基本完成 中移动WAP业务将免除流量费
英国降低移动电话网间费 固话打手机优惠最大_
中移动承诺为奥运提供标准3G 以广告补贴转播费
中移动多地区大降GPRS流量费 降幅达2/3
吐血奉献：哥教你怎么拿回移动联通多收的话费_
斐波那契周期理论
经济周期股市周期行业周期人生周期
生理周期
睡眠周期
时间周期
时间周期
时间周期
商业周期
周期股
MACD周期
周期盘点
美元周期和全球经济周期
美元周期和全球经济周期