源码
Var2:=REF(CLOSE-OPEN, 2);
Var3:=REF(CLOSE, 1);
Var4:=REF(CLOSE, 2);
Var5:=REF(CLOSE, 3);
Var6:=REF(CLOSE, 4);
Var7:=MAX(MAX(MAX(CLOSE, Var3), Var4), Var5);
Var8:=MIN(MIN(MIN(CLOSE, Var3), Var4), Var5);
红持股:CLOSE=Var7 AND (Var3>=Var4 OR Var3>=Var5) OR Var3=Var7 AND (Var4=Var8 OR Var5=Var8) AND CLOSE>=Var4 OR
Var4=Var7 AND Var5=Var8 AND CLOSE>=Var3 OR Var5=Var7 AND CLOSE>=Var3 AND CLOSE>=Var4,COLORRED,LINETHICK0;
STICKLINE(红持股,Var3,CLOSE,6,1), COLORRED;
品红变盘:CLOSE=Var7 AND Var3=Var8,COLORMAGENTA,LINETHICK0;
STICKLINE(品红变盘,Var4,CLOSE,6,0),COLORMAGENTA;
绿下跌:CLOSE=Var8 AND (Var3<Var4 OR Var3<Var5) OR Var3=Var8 AND (Var4=Var7 OR Var5=Var7) AND CLOSE<Var4 OR
Var4=Var8 AND Var5=Var7 AND CLOSE<Var3 OR Var5=Var8 AND CLOSE<Var3 AND CLOSE<Var4,COLORGREEN,LINETHICK0;
STICKLINE(绿下跌,Var3,CLOSE,6,0),COLORGREEN;
STICKLINE(Var3=Var7 AND CLOSE=Var8, Var4, CLOSE, 6, 0), COLORYELLOW;
超跌:Var3=Var7 AND CLOSE=Var8 ,COLORCYAN,LINETHICK0;
STICKLINE(Var3=Var8 AND CLOSE>=Var4 OR (Var4=Var8 AND Var3<=Var5 OR Var5=Var8 AND Var3<=Var4) AND Var4<Var6 AND CLOSE>=Var3, Var3, Var4, 6, 0), COLORYELLOW;
黄买:Var3=Var8 AND CLOSE>=Var4 OR (Var4=Var8 AND Var3<=Var5 OR Var5=Var8 AND Var3<=Var4) AND Var4<Var6 AND CLOSE>=Var3, COLORYELLOW,LINETHICK0;
STICKLINE(Var3=Var7 AND CLOSE<Var4 OR (Var4=Var7 AND Var3>Var5 OR Var5=Var7 AND Var3>Var4) AND Var4>=Var6 AND CLOSE<Var3, Var3, Var4, 6, 0), COLORBLUE;
蓝卖:Var3=Var7 AND CLOSE<Var4 OR (Var4=Var7 AND Var3>Var5 OR Var5=Var7 AND Var3>Var4) AND Var4>=Var6 AND CLOSE<Var3, COLORBLUE,LINETHICK0;
DRAWICON((Var3=Var8 AND CLOSE>=Var4 OR (Var4=Var8 AND Var3<=Var5 OR Var5=Var8 AND Var3<=Var4) AND Var4<Var6 AND CLOSE>=Var3),LOW,4),align5;
XMA:MA(CLOSE,5),COLORMAGENTA;
BB5:=XMA-REF(XMA,1);
XMA速率:BB5*100,LINETHICK0;
DD5:=XMA<REF(XMA,1);
PARTLINE(DD5,XMA),colorgreen;
var1:=CLOSE*VOL;
var2:=EMA(var1,13)/EMA(VOL,13);
CYS:=(EMA((CLOSE-var2)/var2,1)*100),COLORRED;
AA:=CYS,COLORyellow,LINETHICK1;
MIDD:=MA(CYS,20),COLORWHITE;
CC:=MIDD+0.85*STD(CYS,10),LINETHICK1,color00848200;
tM6:=AA>CC;
PARTLINE(tM6,XMA),colorred,linethick2;
五日线红:BARSLAST(AA<CC),colorred,linethick0;
多空线:MA(CLOSE,14),LINETHICK2,COLORred;
DD:=多空线<REF(多空线,1);
PARTLINE(DD,多空线),colorblue,linethick3;
A:=(XMA>多空线);
PARTLINE(A,多空线),COLORYELLOW,POINTDOT;
笑脸:CROSS(XMA,多空线),COLORYELLOW,LINETHICK0;
DRAWICON(笑脸,L*0.995,1);
A1:=(XMA<多空线);
PARTLINE(A1,多空线),COLORWHITE;
n1:=SYSPARAM(3);
n:=n1-SYSPARAM(2)+1;
hh:=HHV(HIGH,n);
ll:=LLV(LOW,n);
//tsh:=HHVBARS(HIGH,n);
//tsl:=LLVBARS(LOW,n);
最高:hh[n1],COLORRED;
最低:ll[n1],COLORRED;
最低+(最高-最低)*0.191,COLORGREEN;
最低+(最高-最低)*0.382,COLORGRAY;
最低+(最高-最低)*0.5,COLORMAGENTA;
最低+(最高-最低)*0.618,COLORCYAN;
最低+(最高-最低)*0.809,COLORWHITE;
DRAWNUMBER((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF(最低,BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),REF(最低,BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),2),SHIFT110,colorFFFF;
DRAWNUMBER((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.191)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),REF((最低 + ((最高 – 最低) * 0.191)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),2),SHIFT110,colorFFFF;
DRAWNUMBER((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.382)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),REF((最低 + ((最高 – 最低) * 0.382)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),2),SHIFT110,colorFFFF;
DRAWNUMBER((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.5)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),REF((最低 + ((最高 – 最低) * 0.5)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),2),SHIFT110,colorFFFF;
DRAWNUMBER((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.618)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),REF((最低 + ((最高 – 最低) * 0.618)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),2),SHIFT110,colorFFFF;
DRAWNUMBER((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.809)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),REF((最低 + ((最高 – 最低) * 0.809)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),2),SHIFT110,colorFFFF;
DRAWNUMBER((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 1)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),REF((最低 + ((最高 – 最低) * 1)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),2),SHIFT110,colorFFFF;
DRAWTEXT((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF(最低,BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),’000%↑’),colorFFFF;
DRAWTEXT((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.191)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),’19.1%↑’),colorFFFF;
DRAWTEXT((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.382)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),’38.2%↑’),colorFFFF;
DRAWTEXT((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.5)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),’50%↑’),colorFFFF;
DRAWTEXT((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.618)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),’61.8%↑’),colorFFFF;
DRAWTEXT((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 0.809)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),’80.9%↑’),colorFFFF;
DRAWTEXT((BARSCOUNT(CLOSE) = SYSPARAM(2)),REF((最低 + ((最高 – 最低) * 1)),BARSLAST((BARSCOUNT(CLOSE) = SYSPARAM(2)))),’100%↑’),colorFFFF;
VAR1:=(100 – ((90 * (HHV(HIGH,21) – CLOSE)) / (HHV(HIGH,21) – LLV(LOW,21))));
VAR2:=(100 – MA(((100 * (HHV(HIGH,6) – CLOSE)) / (HHV(HIGH,6) – LLV(LOW,6))),34));
VAR3:=SAR(10,2,20);
ll:=COST(0);
hh:=COST(100);
aa1:=(hh-ll)/100;//把区间分成100份
tm1:=WINNER(ll[DATACOUNT]+aa1[DATACOUNT]);
tm:=tm1[DATACOUNT];
dyjw[1]:=ll[DATACOUNT]+aa1[DATACOUNT];
for k=2 to 100 do begin
dyjw[k]:=(ll[DATACOUNT]+k*aa1[DATACOUNT]);
dyhlp:=WINNER(dyjw[k]);
hlp:=dyhlp-tm1;
tm1:=dyhlp;
IF hlp[DATACOUNT]>tm then begin
tm:=hlp[DATACOUNT];
jg:=dyjw[k];
end;
end;
筹码密集峰价位:jg-aa1[DATACOUNT]/2,LINETHICK2,COLORYELLOW;
评论(0)