王祖蓝恶搞林峰演唱会:【趋势主图A—B】新增三种画线的 - 【股票指标公式下载交流】 - 360股票论坛 中国最...
来源:百度文库 编辑:中财网 时间:2024/03/29 14:30:48
1#打印tT 奋发图强发表于 2009-4-6 20:26 | 只看该作者
朋友来说,有它无需多求。
二,有些朋友喜欢用未来捡测那就不用了。画线分折本身就是分析未来,在没
自动画线时代,手动不是也大量用吗?这里收集了两种画线方式,A和B区
分就在这点。
三,除少了均线外(需要时自己加),常用的小箱体、明日均线(有的用它也叫进
山出山,设置需把"经典大智慧"钩去掉)。撑压和底线实际上就上下起伏很
大的支撑压线和底线(见图)。为显示趋势线只在最后一天画出它们的位置。
{趋势主图A}
input:n(10,1,100);
DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
DRAWTEXTREL(20,30,'趋势主图A'),LINETHICK6,Coloryellow;
DRAWTEXTREL(200,30,STKLABEL ' ' STKNAME),LINETHICK6,ColorFFFF80;
wWj:=' ';
wyy1:=WEEKDAY;
if C>0 then begin;
wWj:=' 星期';
IF wyy1=5 then wWj:= wWj '五';
IF wyy1=4 then wWj:= wWj '四';
IF wyy1=3 then wWj:= wWj '三';
IF wyy1=2 then wWj:= wWj '二';
IF wyy1=1 then wWj:= wWj '一';
end;
wWl:='';
wWh:='';
wyy2:=LMONTH;
wyy3:=LDAY;
IF BARSTATUS=2 then wWw:=' 农历 ' NUMTOSTRN(wyy2,0) '月 ' NUMTOSTRN(wyy3,0) '日';
IF BARSTATUS=2 then wWh:=NUMTOSTRN(date 1000000,0);
IF BARSTATUS=2 then wWl:=wWj;
DRAWTEXTREL(20 ,40 ,' ' wWh wWl wWw),LINETHICK3,ColorFFFF80;
IF BARSTATUS=2 then
获利盘:=WINNER(CLOSE)*100;
IF BARSTATUS=2 then
平均成本:=COST(50);
日换手率:=vol/CAPITAL*100;
DRAWTEXTREL(20,700,'获利盘:' 获利盘 '% '),colormagenta;
DRAWTEXTREL(20,760,'平均成本:' 平均成本),colormagenta;
zg:=FINANCE2(35);{总股}
lta:=FINANCE2(37);{流通A}
sy:=FINANCE2(3);{收益}
sl:=DYNAINFO(39);{市盈率}
wf:=FINANCE2(8);{未分}
gj:=FINANCE2(7);{公积};
jz:=FINANCE2(4);{净资}
cw:='总股:' zg ' 流通A:' lta ' 收益:' sy ' 市盈率:' sl ' 未分:' wf ' 公积:' gj ' 净资:' jz;
DRAWTEXTREL(20,900,BKNAME),COLOR0055FF;
DRAWTEXTREL(20,960,cw),COLOR0055FF;
if DATATYPE>1 then begin;
xxx1:=(C L H)/3;
xxx2:EMA(xxx1,6),COLOR888888;
xxx3:EMA(xxx2,5);
VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2222:=CROSS(VAR1111,0.9);
VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4444:=CROSS(VAR3333,0.9);
压力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5;
支撑: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4444)),REF(LOW,BARSLAST(Var4444)),5,0),Color00b4ff;
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
aRSV:=SMA(下档线,3,1);
aK:=SMA(aRSV,3,1);
aD:=((3 * aRSV) - (2 * aK));
aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
aRSV24:=SMA(aJ12,3,1);
aK24:=SMA(aRSV24,3,1);
aD24:=((3 * aRSV24) - (2 * aK24));
撑压位:=IF(CROSS(aD24,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD24,aD))));
底:=LLV(HIGH,30);
STICKLINE(BARSTATUS=2 ,撑压位,撑压位,30,1),LINETHICK1,COLORFFFFFF;
DRAWTEXT(BARSTATUS=2 ,撑压位,' 撑压'),COLORFFFFFF,VALIGN1;
STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1;
DRAWTEXT(BARSTATUS=2 ,底,' 底线'),COLOR00FF00,VALIGN0;
END;
V7:=BARSTATUS=2;
V8:=(REF(HIGH,n) = HHV(HIGH,((2 * n) 1)));
V9:=FILTER(V8,n);
VA:=BACKSET(V9,(n 1));
VB:=FILTER(VA,n);
VC:=(VB OR V7);
VD:=(REF(LOW,n) = LLV(LOW,((2 * n) 1)));
VE:=FILTER(VD,n);
VF:=BACKSET(VE,(n 1));
V10:=FILTER(VF,n);
V11:=(V10 AND NOT(VB));
V12:=BACKSET(VC,(REF(BARSLAST(V11),1) 1));
V13:=(V12 > REF(V12,1));
V14:=BACKSET(V13,2);
V15:=(V14 > REF(V14,1));
V16:=BACKSET((V15 AND (COUNT(VC,(REF(BARSLAST(V11),1) 2)) = 0)),(REF(BARSLAST(V11),1) 2));
V17:=(V16 > REF(V16,1));
V18:=BACKSET((V17 AND (COUNT(VC,(REF(BARSLAST(V11),1) 2)) = 0)),(REF(BARSLAST(V11),1) 2));
V19:=(V18 > REF(V18,1));
V1A:=IF(VC,COUNT(V11,(REF(BARSLAST(VC),1) 1)),0);
V1B:=IF(((V1A = 1) AND VC),BARSLAST(V15),0);
V1C:=IF((VC AND (REF(LOW,BARSLAST(V15)) >= REF(LOW,BARSLAST(V17)))),BARSLAST(V17),BARSLAST(V15));
V1D:=IF(((V1A = 2) AND VC),V1C,0);
V1E:=IF(((V1A >= 3) AND VC),IF((VC AND (REF(LOW,V1C) >= REF(LOW,BARSLAST(V19)))),BARSLAST(V19),V1C),0);
V1F:=((V1B V1D) V1E);
V20:=BACKSET(VC,V1F);
V21:=(V20 > REF(V20,1));
V22:=BACKSET(V21,2);
V23:=(V22 > REF(V22,1));
V24:=(V23 OR V7);
V25:=BACKSET(V24,(REF(BARSLAST(VC),1) 1));
V26:=(V25 > REF(V25,1));
V27:=BACKSET(V26,2);
V28:=(V27 > REF(V27,1));
V29:=BACKSET((V28 AND (COUNT(V24,(REF(BARSLAST(VC),1) 2)) = 0)),(REF(BARSLAST(VC),1) 2));
V2A:=(V29 > REF(V29,1));
V2B:=BACKSET((V2A AND (COUNT(V24,(REF(BARSLAST(VC),1) 2)) = 0)),(REF(BARSLAST(VC),1) 2));
V2C:=(V2B > REF(V2B,1));
V2D:=IF(V24,COUNT(VB,(REF(BARSLAST(V24),1) 1)),0);
V2E:=IF(((V2D = 1) AND V24),BARSLAST(V28),0);
V2F:=IF((V24 AND (REF(HIGH,BARSLAST(V28)) <= REF(HIGH,BARSLAST(V2A)))),BARSLAST(V2A),BARSLAST(V28));
V30:=IF(((V2D = 2) AND V24),V2F,0);
V3B:=IF(((V2D >= 3) AND V24),IF((V24 AND (REF(HIGH,V2F) <= REF(HIGH,BARSLAST(V2C)))),BARSLAST(V2C),V2F),0);
V3C:=((V2E V30) V3B);
V3D:=BACKSET(V24,V3C);
V3E:=(V3D > REF(V3D,1));
AA:=BACKSET(V3E,2);
AAA:=(AA > REF(AA,1));
BB:=BACKSET(V7,(BARSLAST(AAA) 1));
CC1:=(BB > REF(BB,1));
CC:=BACKSET(CC1,(REF(BARSLAST(AAA),1) 2));
AAA2:=(CC > REF(CC,1));
DRAWLINE(AAA2,HIGH,CC1,HIGH,1),POINTDOT,color00AAAA;
BB2:=(REF(HIGH,4) = HHV(HIGH,((2 * 4) 1)));
CC22:=FILTER(BB2,4);
CC2:=BACKSET(CC22,(4 1));
EA:=FILTER(CC2,4);
EB:=(EA OR BARSTATUS=2);
A6:=(REF(LOW,4) = LLV(LOW,((2 * 4) 1)));
EE:=FILTER(A6,4);
FF1:=BACKSET(EE,(4 1));
EE2:=FILTER(FF1,4);
FF2:=(EE2 AND NOT(EA));
EE3:=BACKSET(EB,(REF(BARSLAST(FF2),1) 1));
FF3:=(EE3 > REF(EE3,1));
JS:=BACKSET(FF3,2);
G1:=(JS > REF(JS,1));
GA:=BACKSET((G1 AND (COUNT(EB,(REF(BARSLAST(FF2),1) 2)) = 0)),(REF(BARSLAST(FF2),1) 2));
G2:=(GA > REF(GA,1));
G3:=BACKSET((G2 AND (COUNT(EB,(REF(BARSLAST(FF2),1) 2)) = 0)),(REF(BARSLAST(FF2),1) 2));
GG:=(G3 > REF(G3,1));
JA:=IF(EB,COUNT(FF2,(REF(BARSLAST(EB),1) 1)),0);
JB:=IF(((JA = 1) AND EB),BARSLAST(G1),0);
JJ:=IF((EB AND (REF(LOW,BARSLAST(G1)) >= REF(LOW,BARSLAST(G2)))),BARSLAST(G2),BARSLAST(G1));
LD:=IF(((JA = 2) AND EB),JJ,0);
LD1:=IF(((JA >= 3) AND EB),IF((EB AND (REF(LOW,JJ) >= REF(LOW,BARSLAST(GG)))),BARSLAST(GG),JJ),0);
HEA:=((JB LD) LD1);
HEB:=BACKSET(EB,HEA);
HEE:=(HEB > REF(HEB,1));
HFF1:=BACKSET(HEE,2);
HEE2:=(HFF1 > REF(HFF1,1));
HFF2:=(HEE2 OR BARSTATUS=2);
HEE3:=BACKSET(HFF2,(REF(BARSLAST(EB),1) 1));
HFF3:=(HEE3 > REF(HEE3,1));
HJS:=BACKSET(HFF3,2);
HG1:=(HJS > REF(HJS,1));
HGA:=BACKSET((HG1 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) 2)) = 0)),(REF(BARSLAST(EB),1) 2));
HG2:=(HGA > REF(HGA,1));
HG3:=BACKSET((HG2 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) 2)) = 0)),(REF(BARSLAST(EB),1) 2));
HGG:=(HG3 > REF(HG3,1));
HJA:=IF(HFF2,COUNT(EA,(REF(BARSLAST(HFF2),1) 1)),0);
HJB:=IF(((HJA = 1) AND HFF2),BARSLAST(HG1),0);
HJJ:=IF((HFF2 AND (REF(HIGH,BARSLAST(HG1)) <= REF(HIGH,BARSLAST(HG2)))),BARSLAST(HG2),BARSLAST(HG1));
HD:=IF(((HJA = 2) AND HFF2),HJJ,0);
X1:=IF(((HJA >= 3) AND HFF2),IF((HFF2 AND (REF(HIGH,HJJ) <= REF(HIGH,BARSLAST(HGG)))),BARSLAST(HGG),HJJ),0);
X2:=((HJB HD) X1);
Y1:=BACKSET(HFF2,X2);
Y2:=(Y1 > REF(Y1,1));
Z1:=BACKSET(Y2,2);
Z2:=(Z1 > REF(Z1,1));
WW2:=BACKSET(BARSTATUS=2,(BARSLAST(HEE2) 1));
XX2:=(WW2 > REF(WW2,1));
VAR246:=BACKSET(XX2,(REF(BARSLAST(HEE2),1) 2));
VAR247:=(VAR246 > REF(VAR246,1));
DRAWLINE(VAR247,LOW,XX2,LOW,1),POINTDOT,color00AAAA;
VAR249:=BACKSET(BARSTATUS=2,(BARSLAST(Z2) 1));
VAR250:=(VAR249 > REF(VAR249,1));
VAR251:=BACKSET(VAR250,(REF(BARSLAST(Z2),1) 2));
VAR252:=(VAR251 > REF(VAR251,1));
DRAWLINE(VAR252,HIGH,VAR250,HIGH,1),POINTDOT,color00AAAA;
partline(c*2-ref(c,3),c>0),MOVE3,color005555,LAYER7;
partline(ref(c,1)*2-ref(c,4),c>0),MOVE2,color005500,LAYER7;
partline(ref(c,2)*2-ref(c,5),c>0),MOVE1,color553355,LAYER7;
===========================================================
{趋势主图B}
input:p1(3,1,100);
DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
DRAWTEXTREL(20,30,'趋势主图B'),LINETHICK6,Coloryellow;
DRAWTEXTREL(200,30,STKLABEL ' ' STKNAME),LINETHICK6,ColorFFFF80;
wWj:=' ';
wyy1:=WEEKDAY;
if C>0 then begin;
wWj:=' 星期';
IF wyy1=5 then wWj:= wWj '五';
IF wyy1=4 then wWj:= wWj '四';
IF wyy1=3 then wWj:= wWj '三';
IF wyy1=2 then wWj:= wWj '二';
IF wyy1=1 then wWj:= wWj '一';
end;
wWl:='';
wWh:='';
wyy2:=LMONTH;
wyy3:=LDAY;
IF BARSTATUS=2 then wWw:=' 农历 ' NUMTOSTRN(wyy2,0) '月 ' NUMTOSTRN(wyy3,0) '日';
IF BARSTATUS=2 then wWh:=NUMTOSTRN(date 1000000,0);
IF BARSTATUS=2 then wWl:=wWj;
DRAWTEXTREL(20 ,40 ,' ' wWh wWl wWw),LINETHICK3,ColorFFFF80;
IF BARSTATUS=2 then
获利盘:=WINNER(CLOSE)*100;
IF BARSTATUS=2 then
平均成本:=COST(50);
日换手率:=vol/CAPITAL*100;
DRAWTEXTREL(20,700,'获利盘:' 获利盘 '% '),colormagenta;
DRAWTEXTREL(20,760,'平均成本:' 平均成本),colormagenta;
zg:=FINANCE2(35);{总股}
lta:=FINANCE2(37);{流通A}
sy:=FINANCE2(3);{收益}
sl:=DYNAINFO(39);{市盈率}
wf:=FINANCE2(8);{未分}
gj:=FINANCE2(7);{公积};
jz:=FINANCE2(4);{净资}
cw:='总股:' zg ' 流通A:' lta ' 收益:' sy ' 市盈率:' sl ' 未分:' wf ' 公积:' gj ' 净资:' jz;
DRAWTEXTREL(20,900,BKNAME),COLOR0055FF;
DRAWTEXTREL(20,960,cw),COLOR0055FF;
if DATATYPE>1 then begin;
xxx1:=(C L H)/3;
xxx2:EMA(xxx1,6),COLOR888888;
xxx3:EMA(xxx2,5);
VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2222:=CROSS(VAR1111,0.9);
VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4444:=CROSS(VAR3333,0.9);
压力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5;
支撑: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4444)),REF(LOW,BARSLAST(Var4444)),5,0),Color00b4ff;
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
aRSV:=SMA(下档线,3,1);
aK:=SMA(aRSV,3,1);
aD:=((3 * aRSV) - (2 * aK));
aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
aRSV24:=SMA(aJ12,3,1);
aK24:=SMA(aRSV24,3,1);
aD24:=((3 * aRSV24) - (2 * aK24));
撑压位:=IF(CROSS(aD24,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD24,aD)))){,LINETHICK2,COLORFFFFFF};
底:=LLV(HIGH,30){,COLOR00FF00,LINETHICK};
STICKLINE(BARSTATUS=2 ,撑压位,撑压位,30,1),LINETHICK1,COLORFFFFFF;
DRAWTEXT(BARSTATUS=2 ,撑压位,' 撑压'),COLORFFFFFF,VALIGN1;
STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1;
DRAWTEXT(BARSTATUS=2 ,底,' 底线'),COLOR00FF00,VALIGN0;
END;
partline(c*2-ref(c,3),c>0),MOVE3,color005555,LAYER7;
partline(ref(c,1)*2-ref(c,4),c>0),MOVE2,color005500,LAYER7;
partline(ref(c,2)*2-ref(c,5),c>0),MOVE1,color553355,LAYER7;
wN:=p1;{原码 N:=3;}
wA1:=REF(H,wN)=HHV(H,2*wN 1); wB1:=FILTER(wA1,wN); wC1:=BACKSET(wB1,wN 1); wD1:=FILTER(wC1,wN);{高点}
wA2:=REF(L,wN)=LLV(L,2*wN 1); wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN 1); wD2:=FILTER(wC2,wN);{低点}
wE1:=(REF(LLV(L,2*wN),1) REF(HHV(H,2*wN),1))/2; wE2:=(H L)/2;{高低点出现在同一K线上时可作取舍}
wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR DISPSTATUS=2 OR BARSCOUNT(C)=1;
wL1:=(wD2 AND NOT(wD1 AND wE1<wE2)); wH2:=wD1 AND NOT(wD2 AND wE1>=wE2);
wX1:=REF(BARSLAST(wH1),1) 1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,L,10000),wX1));
wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2); wLD:=wI1>REF(wI1,1);{过滤后低点}
wL2:=wLD OR DISPSTATUS=2 OR BARSCOUNT(C)=1;
wX2:=REF(BARSLAST(wL2),1) 1; wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,H,0),wX2));
wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2); wHD:=wI2>REF(wI2,1);{过滤后高点}
wR1:=BACKSET(DISPSTATUS=2,BARSLAST(wHD) 1); wS1:=wR1>REF(wR1,1); {前一高}
wT1:=BACKSET(DISPSTATUS=2,BARSLAST(wLD) 1); wU1:=wT1>REF(wT1,1); {前一低}
wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1) 2); wS2:=wR2>REF(wR2,1); {前二高}
wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1) 2); wU2:=wT2>REF(wT2,1); {前二低}
wT3:=BACKSET(wU2,REF(BARSLAST(wLD),1) 2); wU3:=wT3>REF(wT3,1); {前三低}
wT4:=BACKSET(wU3,REF(BARSLAST(wLD),1) 2); wU4:=wT4>REF(wT4,1); {前四低}
wR3:=BACKSET(wS2,REF(BARSLAST(wHD),1) 2); wS3:=wR3>REF(wR3,1); {前三高}
wR4:=BACKSET(wS3,REF(BARSLAST(wHD),1) 2); wS4:=wR4>REF(wR4,1); {前四高}
DRAWLINE(wS2,H,wS1,H,1),Color008888; {★压力1:}
DRAWLINE(wU2,L,wU1,L,1),POINTDOT,Color008888;{★支撑1:}
DRAWLINE(wS3,H,wS2,H,1),Color888000; {★压力2:}
DRAWLINE(wU3,L,wU2,L,1),POINTDOT,Color888000;{★支撑2:}
DRAWLINE(wS4,H,wS3,H,1),Color0000CC;{★压力3:}
DRAWLINE(wU4,L,wU3,L,1),POINTDOT,Color0000CC;{★支撑3:}; 收藏 分享 评分
[大智慧新一代] 【趋势主图A—B】新增三种画线的
一,这里没有提示,对喜欢傻瓜抄股的朋友来说一点也用不上。对喜欢分析的朋友来说,有它无需多求。
二,有些朋友喜欢用未来捡测那就不用了。画线分折本身就是分析未来,在没
自动画线时代,手动不是也大量用吗?这里收集了两种画线方式,A和B区
分就在这点。
三,除少了均线外(需要时自己加),常用的小箱体、明日均线(有的用它也叫进
山出山,设置需把"经典大智慧"钩去掉)。撑压和底线实际上就上下起伏很
大的支撑压线和底线(见图)。为显示趋势线只在最后一天画出它们的位置。
{趋势主图A}
input:n(10,1,100);
DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
DRAWTEXTREL(20,30,'趋势主图A'),LINETHICK6,Coloryellow;
DRAWTEXTREL(200,30,STKLABEL ' ' STKNAME),LINETHICK6,ColorFFFF80;
wWj:=' ';
wyy1:=WEEKDAY;
if C>0 then begin;
wWj:=' 星期';
IF wyy1=5 then wWj:= wWj '五';
IF wyy1=4 then wWj:= wWj '四';
IF wyy1=3 then wWj:= wWj '三';
IF wyy1=2 then wWj:= wWj '二';
IF wyy1=1 then wWj:= wWj '一';
end;
wWl:='';
wWh:='';
wyy2:=LMONTH;
wyy3:=LDAY;
IF BARSTATUS=2 then wWw:=' 农历 ' NUMTOSTRN(wyy2,0) '月 ' NUMTOSTRN(wyy3,0) '日';
IF BARSTATUS=2 then wWh:=NUMTOSTRN(date 1000000,0);
IF BARSTATUS=2 then wWl:=wWj;
DRAWTEXTREL(20 ,40 ,' ' wWh wWl wWw),LINETHICK3,ColorFFFF80;
IF BARSTATUS=2 then
获利盘:=WINNER(CLOSE)*100;
IF BARSTATUS=2 then
平均成本:=COST(50);
日换手率:=vol/CAPITAL*100;
DRAWTEXTREL(20,700,'获利盘:' 获利盘 '% '),colormagenta;
DRAWTEXTREL(20,760,'平均成本:' 平均成本),colormagenta;
zg:=FINANCE2(35);{总股}
lta:=FINANCE2(37);{流通A}
sy:=FINANCE2(3);{收益}
sl:=DYNAINFO(39);{市盈率}
wf:=FINANCE2(8);{未分}
gj:=FINANCE2(7);{公积};
jz:=FINANCE2(4);{净资}
cw:='总股:' zg ' 流通A:' lta ' 收益:' sy ' 市盈率:' sl ' 未分:' wf ' 公积:' gj ' 净资:' jz;
DRAWTEXTREL(20,900,BKNAME),COLOR0055FF;
DRAWTEXTREL(20,960,cw),COLOR0055FF;
if DATATYPE>1 then begin;
xxx1:=(C L H)/3;
xxx2:EMA(xxx1,6),COLOR888888;
xxx3:EMA(xxx2,5);
VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2222:=CROSS(VAR1111,0.9);
VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4444:=CROSS(VAR3333,0.9);
压力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5;
支撑: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4444)),REF(LOW,BARSLAST(Var4444)),5,0),Color00b4ff;
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
aRSV:=SMA(下档线,3,1);
aK:=SMA(aRSV,3,1);
aD:=((3 * aRSV) - (2 * aK));
aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
aRSV24:=SMA(aJ12,3,1);
aK24:=SMA(aRSV24,3,1);
aD24:=((3 * aRSV24) - (2 * aK24));
撑压位:=IF(CROSS(aD24,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD24,aD))));
底:=LLV(HIGH,30);
STICKLINE(BARSTATUS=2 ,撑压位,撑压位,30,1),LINETHICK1,COLORFFFFFF;
DRAWTEXT(BARSTATUS=2 ,撑压位,' 撑压'),COLORFFFFFF,VALIGN1;
STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1;
DRAWTEXT(BARSTATUS=2 ,底,' 底线'),COLOR00FF00,VALIGN0;
END;
V7:=BARSTATUS=2;
V8:=(REF(HIGH,n) = HHV(HIGH,((2 * n) 1)));
V9:=FILTER(V8,n);
VA:=BACKSET(V9,(n 1));
VB:=FILTER(VA,n);
VC:=(VB OR V7);
VD:=(REF(LOW,n) = LLV(LOW,((2 * n) 1)));
VE:=FILTER(VD,n);
VF:=BACKSET(VE,(n 1));
V10:=FILTER(VF,n);
V11:=(V10 AND NOT(VB));
V12:=BACKSET(VC,(REF(BARSLAST(V11),1) 1));
V13:=(V12 > REF(V12,1));
V14:=BACKSET(V13,2);
V15:=(V14 > REF(V14,1));
V16:=BACKSET((V15 AND (COUNT(VC,(REF(BARSLAST(V11),1) 2)) = 0)),(REF(BARSLAST(V11),1) 2));
V17:=(V16 > REF(V16,1));
V18:=BACKSET((V17 AND (COUNT(VC,(REF(BARSLAST(V11),1) 2)) = 0)),(REF(BARSLAST(V11),1) 2));
V19:=(V18 > REF(V18,1));
V1A:=IF(VC,COUNT(V11,(REF(BARSLAST(VC),1) 1)),0);
V1B:=IF(((V1A = 1) AND VC),BARSLAST(V15),0);
V1C:=IF((VC AND (REF(LOW,BARSLAST(V15)) >= REF(LOW,BARSLAST(V17)))),BARSLAST(V17),BARSLAST(V15));
V1D:=IF(((V1A = 2) AND VC),V1C,0);
V1E:=IF(((V1A >= 3) AND VC),IF((VC AND (REF(LOW,V1C) >= REF(LOW,BARSLAST(V19)))),BARSLAST(V19),V1C),0);
V1F:=((V1B V1D) V1E);
V20:=BACKSET(VC,V1F);
V21:=(V20 > REF(V20,1));
V22:=BACKSET(V21,2);
V23:=(V22 > REF(V22,1));
V24:=(V23 OR V7);
V25:=BACKSET(V24,(REF(BARSLAST(VC),1) 1));
V26:=(V25 > REF(V25,1));
V27:=BACKSET(V26,2);
V28:=(V27 > REF(V27,1));
V29:=BACKSET((V28 AND (COUNT(V24,(REF(BARSLAST(VC),1) 2)) = 0)),(REF(BARSLAST(VC),1) 2));
V2A:=(V29 > REF(V29,1));
V2B:=BACKSET((V2A AND (COUNT(V24,(REF(BARSLAST(VC),1) 2)) = 0)),(REF(BARSLAST(VC),1) 2));
V2C:=(V2B > REF(V2B,1));
V2D:=IF(V24,COUNT(VB,(REF(BARSLAST(V24),1) 1)),0);
V2E:=IF(((V2D = 1) AND V24),BARSLAST(V28),0);
V2F:=IF((V24 AND (REF(HIGH,BARSLAST(V28)) <= REF(HIGH,BARSLAST(V2A)))),BARSLAST(V2A),BARSLAST(V28));
V30:=IF(((V2D = 2) AND V24),V2F,0);
V3B:=IF(((V2D >= 3) AND V24),IF((V24 AND (REF(HIGH,V2F) <= REF(HIGH,BARSLAST(V2C)))),BARSLAST(V2C),V2F),0);
V3C:=((V2E V30) V3B);
V3D:=BACKSET(V24,V3C);
V3E:=(V3D > REF(V3D,1));
AA:=BACKSET(V3E,2);
AAA:=(AA > REF(AA,1));
BB:=BACKSET(V7,(BARSLAST(AAA) 1));
CC1:=(BB > REF(BB,1));
CC:=BACKSET(CC1,(REF(BARSLAST(AAA),1) 2));
AAA2:=(CC > REF(CC,1));
DRAWLINE(AAA2,HIGH,CC1,HIGH,1),POINTDOT,color00AAAA;
BB2:=(REF(HIGH,4) = HHV(HIGH,((2 * 4) 1)));
CC22:=FILTER(BB2,4);
CC2:=BACKSET(CC22,(4 1));
EA:=FILTER(CC2,4);
EB:=(EA OR BARSTATUS=2);
A6:=(REF(LOW,4) = LLV(LOW,((2 * 4) 1)));
EE:=FILTER(A6,4);
FF1:=BACKSET(EE,(4 1));
EE2:=FILTER(FF1,4);
FF2:=(EE2 AND NOT(EA));
EE3:=BACKSET(EB,(REF(BARSLAST(FF2),1) 1));
FF3:=(EE3 > REF(EE3,1));
JS:=BACKSET(FF3,2);
G1:=(JS > REF(JS,1));
GA:=BACKSET((G1 AND (COUNT(EB,(REF(BARSLAST(FF2),1) 2)) = 0)),(REF(BARSLAST(FF2),1) 2));
G2:=(GA > REF(GA,1));
G3:=BACKSET((G2 AND (COUNT(EB,(REF(BARSLAST(FF2),1) 2)) = 0)),(REF(BARSLAST(FF2),1) 2));
GG:=(G3 > REF(G3,1));
JA:=IF(EB,COUNT(FF2,(REF(BARSLAST(EB),1) 1)),0);
JB:=IF(((JA = 1) AND EB),BARSLAST(G1),0);
JJ:=IF((EB AND (REF(LOW,BARSLAST(G1)) >= REF(LOW,BARSLAST(G2)))),BARSLAST(G2),BARSLAST(G1));
LD:=IF(((JA = 2) AND EB),JJ,0);
LD1:=IF(((JA >= 3) AND EB),IF((EB AND (REF(LOW,JJ) >= REF(LOW,BARSLAST(GG)))),BARSLAST(GG),JJ),0);
HEA:=((JB LD) LD1);
HEB:=BACKSET(EB,HEA);
HEE:=(HEB > REF(HEB,1));
HFF1:=BACKSET(HEE,2);
HEE2:=(HFF1 > REF(HFF1,1));
HFF2:=(HEE2 OR BARSTATUS=2);
HEE3:=BACKSET(HFF2,(REF(BARSLAST(EB),1) 1));
HFF3:=(HEE3 > REF(HEE3,1));
HJS:=BACKSET(HFF3,2);
HG1:=(HJS > REF(HJS,1));
HGA:=BACKSET((HG1 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) 2)) = 0)),(REF(BARSLAST(EB),1) 2));
HG2:=(HGA > REF(HGA,1));
HG3:=BACKSET((HG2 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) 2)) = 0)),(REF(BARSLAST(EB),1) 2));
HGG:=(HG3 > REF(HG3,1));
HJA:=IF(HFF2,COUNT(EA,(REF(BARSLAST(HFF2),1) 1)),0);
HJB:=IF(((HJA = 1) AND HFF2),BARSLAST(HG1),0);
HJJ:=IF((HFF2 AND (REF(HIGH,BARSLAST(HG1)) <= REF(HIGH,BARSLAST(HG2)))),BARSLAST(HG2),BARSLAST(HG1));
HD:=IF(((HJA = 2) AND HFF2),HJJ,0);
X1:=IF(((HJA >= 3) AND HFF2),IF((HFF2 AND (REF(HIGH,HJJ) <= REF(HIGH,BARSLAST(HGG)))),BARSLAST(HGG),HJJ),0);
X2:=((HJB HD) X1);
Y1:=BACKSET(HFF2,X2);
Y2:=(Y1 > REF(Y1,1));
Z1:=BACKSET(Y2,2);
Z2:=(Z1 > REF(Z1,1));
WW2:=BACKSET(BARSTATUS=2,(BARSLAST(HEE2) 1));
XX2:=(WW2 > REF(WW2,1));
VAR246:=BACKSET(XX2,(REF(BARSLAST(HEE2),1) 2));
VAR247:=(VAR246 > REF(VAR246,1));
DRAWLINE(VAR247,LOW,XX2,LOW,1),POINTDOT,color00AAAA;
VAR249:=BACKSET(BARSTATUS=2,(BARSLAST(Z2) 1));
VAR250:=(VAR249 > REF(VAR249,1));
VAR251:=BACKSET(VAR250,(REF(BARSLAST(Z2),1) 2));
VAR252:=(VAR251 > REF(VAR251,1));
DRAWLINE(VAR252,HIGH,VAR250,HIGH,1),POINTDOT,color00AAAA;
partline(c*2-ref(c,3),c>0),MOVE3,color005555,LAYER7;
partline(ref(c,1)*2-ref(c,4),c>0),MOVE2,color005500,LAYER7;
partline(ref(c,2)*2-ref(c,5),c>0),MOVE1,color553355,LAYER7;
===========================================================
{趋势主图B}
input:p1(3,1,100);
DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
DRAWTEXTREL(20,30,'趋势主图B'),LINETHICK6,Coloryellow;
DRAWTEXTREL(200,30,STKLABEL ' ' STKNAME),LINETHICK6,ColorFFFF80;
wWj:=' ';
wyy1:=WEEKDAY;
if C>0 then begin;
wWj:=' 星期';
IF wyy1=5 then wWj:= wWj '五';
IF wyy1=4 then wWj:= wWj '四';
IF wyy1=3 then wWj:= wWj '三';
IF wyy1=2 then wWj:= wWj '二';
IF wyy1=1 then wWj:= wWj '一';
end;
wWl:='';
wWh:='';
wyy2:=LMONTH;
wyy3:=LDAY;
IF BARSTATUS=2 then wWw:=' 农历 ' NUMTOSTRN(wyy2,0) '月 ' NUMTOSTRN(wyy3,0) '日';
IF BARSTATUS=2 then wWh:=NUMTOSTRN(date 1000000,0);
IF BARSTATUS=2 then wWl:=wWj;
DRAWTEXTREL(20 ,40 ,' ' wWh wWl wWw),LINETHICK3,ColorFFFF80;
IF BARSTATUS=2 then
获利盘:=WINNER(CLOSE)*100;
IF BARSTATUS=2 then
平均成本:=COST(50);
日换手率:=vol/CAPITAL*100;
DRAWTEXTREL(20,700,'获利盘:' 获利盘 '% '),colormagenta;
DRAWTEXTREL(20,760,'平均成本:' 平均成本),colormagenta;
zg:=FINANCE2(35);{总股}
lta:=FINANCE2(37);{流通A}
sy:=FINANCE2(3);{收益}
sl:=DYNAINFO(39);{市盈率}
wf:=FINANCE2(8);{未分}
gj:=FINANCE2(7);{公积};
jz:=FINANCE2(4);{净资}
cw:='总股:' zg ' 流通A:' lta ' 收益:' sy ' 市盈率:' sl ' 未分:' wf ' 公积:' gj ' 净资:' jz;
DRAWTEXTREL(20,900,BKNAME),COLOR0055FF;
DRAWTEXTREL(20,960,cw),COLOR0055FF;
if DATATYPE>1 then begin;
xxx1:=(C L H)/3;
xxx2:EMA(xxx1,6),COLOR888888;
xxx3:EMA(xxx2,5);
VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2222:=CROSS(VAR1111,0.9);
VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4444:=CROSS(VAR3333,0.9);
压力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5;
支撑: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4444)),REF(LOW,BARSLAST(Var4444)),5,0),Color00b4ff;
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
aRSV:=SMA(下档线,3,1);
aK:=SMA(aRSV,3,1);
aD:=((3 * aRSV) - (2 * aK));
aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
aRSV24:=SMA(aJ12,3,1);
aK24:=SMA(aRSV24,3,1);
aD24:=((3 * aRSV24) - (2 * aK24));
撑压位:=IF(CROSS(aD24,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD24,aD)))){,LINETHICK2,COLORFFFFFF};
底:=LLV(HIGH,30){,COLOR00FF00,LINETHICK};
STICKLINE(BARSTATUS=2 ,撑压位,撑压位,30,1),LINETHICK1,COLORFFFFFF;
DRAWTEXT(BARSTATUS=2 ,撑压位,' 撑压'),COLORFFFFFF,VALIGN1;
STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1;
DRAWTEXT(BARSTATUS=2 ,底,' 底线'),COLOR00FF00,VALIGN0;
END;
partline(c*2-ref(c,3),c>0),MOVE3,color005555,LAYER7;
partline(ref(c,1)*2-ref(c,4),c>0),MOVE2,color005500,LAYER7;
partline(ref(c,2)*2-ref(c,5),c>0),MOVE1,color553355,LAYER7;
wN:=p1;{原码 N:=3;}
wA1:=REF(H,wN)=HHV(H,2*wN 1); wB1:=FILTER(wA1,wN); wC1:=BACKSET(wB1,wN 1); wD1:=FILTER(wC1,wN);{高点}
wA2:=REF(L,wN)=LLV(L,2*wN 1); wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN 1); wD2:=FILTER(wC2,wN);{低点}
wE1:=(REF(LLV(L,2*wN),1) REF(HHV(H,2*wN),1))/2; wE2:=(H L)/2;{高低点出现在同一K线上时可作取舍}
wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR DISPSTATUS=2 OR BARSCOUNT(C)=1;
wL1:=(wD2 AND NOT(wD1 AND wE1<wE2)); wH2:=wD1 AND NOT(wD2 AND wE1>=wE2);
wX1:=REF(BARSLAST(wH1),1) 1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,L,10000),wX1));
wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2); wLD:=wI1>REF(wI1,1);{过滤后低点}
wL2:=wLD OR DISPSTATUS=2 OR BARSCOUNT(C)=1;
wX2:=REF(BARSLAST(wL2),1) 1; wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,H,0),wX2));
wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2); wHD:=wI2>REF(wI2,1);{过滤后高点}
wR1:=BACKSET(DISPSTATUS=2,BARSLAST(wHD) 1); wS1:=wR1>REF(wR1,1); {前一高}
wT1:=BACKSET(DISPSTATUS=2,BARSLAST(wLD) 1); wU1:=wT1>REF(wT1,1); {前一低}
wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1) 2); wS2:=wR2>REF(wR2,1); {前二高}
wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1) 2); wU2:=wT2>REF(wT2,1); {前二低}
wT3:=BACKSET(wU2,REF(BARSLAST(wLD),1) 2); wU3:=wT3>REF(wT3,1); {前三低}
wT4:=BACKSET(wU3,REF(BARSLAST(wLD),1) 2); wU4:=wT4>REF(wT4,1); {前四低}
wR3:=BACKSET(wS2,REF(BARSLAST(wHD),1) 2); wS3:=wR3>REF(wR3,1); {前三高}
wR4:=BACKSET(wS3,REF(BARSLAST(wHD),1) 2); wS4:=wR4>REF(wR4,1); {前四高}
DRAWLINE(wS2,H,wS1,H,1),Color008888; {★压力1:}
DRAWLINE(wU2,L,wU1,L,1),POINTDOT,Color008888;{★支撑1:}
DRAWLINE(wS3,H,wS2,H,1),Color888000; {★压力2:}
DRAWLINE(wU3,L,wU2,L,1),POINTDOT,Color888000;{★支撑2:}
DRAWLINE(wS4,H,wS3,H,1),Color0000CC;{★压力3:}
DRAWLINE(wU4,L,wU3,L,1),POINTDOT,Color0000CC;{★支撑3:}; 收藏 分享 评分
如果一条直线L经过不同的三点A(a,b),B(b,a)
802.11a 802.11b 802.11g三种无线电局域网的标准
企业技术创新的三种形式是?A专利 B著作 C商业秘密 D实用新型
如何画线段和角的三等分线?
已知A,B,C,三点共线,且A,B,C三点的横坐标分别为2,5,10,
已知A,B,C,三点共线,且A,B,C三点的横坐标分别为2,5,10,
已知A,B,C,三点共线,且A,B,C三点的横坐标分别为2,5,10,
酸A和盐B都是由X、Y、Z三种非金属元素组成,则A的化学式为( )B的化学式为( )
用边数分别为a..b..c..(a.b.c.互不相等)的三种正多边形各一个,恰好能组成镶嵌图形,求1/a 1/b 1/c的植
用边数分别为a.b.c(a.b.c互不相等)的三种正多边形各一个,恰好能组成镶嵌图形,求1/a+1/b+1/c的值
用边数分别为a、b、c(a、b、c互不相等)三种正多边形各一个,恰好能组成镶嵌图形,求1/a+1/b+1/c的值.
,(句形转换)He has English three time a week.(画线提问,three是画线的)
已知a,b,c为某三角形的三条边长,化简:∣a-b-c∣-∣a-b+c∣+∣b-a-c∣+∣a+b+c∣.
计算:a``+b``/a+b x a的负二次幂-—b的负二次幂/ab 除 a-b/ab(a``+b``)
已知a,b,c是三角形ABC的三遍,且满足(2a方
若相异的三数a(b-c),b(c-a),c(a-b)构成公比q为的等比数列,则q应满足的方程是________
有A.B. C三种一元碱,它们的相对分子质量之比为3:5:7.
A的狗咬了B,在此过程中,以下三种情况有何区别?
在vb中如何调用数据库中的数据画线(趋势图)?恳请高手帮助,在线等
在vb中如何调用数据库中的数据画线(趋势图)?恳请高手帮助,在线等.
已知A(0,a),B(2,0),C(8,0).若过A B C三点的圆的面积最小,则a=( ).
直线L的同侧有A,B,C三点,若过A,B的直线L1,过B,C的直线L2都与L平行,则A,B,C三点_,理由是
请问:惠州大学莱佛士学院,三A?三B?
已知三条线段的长分别为a,b,c,若线段a+b+c,a+b-c,a+c-b能组成三角形则一定有什么式子成立