软件名称：[B]量价齐升，既然没人改通达信格式，我来改[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2010-02-25 05:21:37
软件简介:

飞狐的量价齐升，既然没人改，我来改

可惜的是，我仅仅能改一部分，文字太多，没法布局
b:=SMA((3*h+2*c+o+l)/7,10,1);
W1:=-100*(HHV(HHV(B,1),N1)-B)/(HHV(HHV(B,1),N1)-LLV(LLV(B,1),N1));
W2:=-100*(HHV(HHV(B,1),N2)-B)/(HHV(HHV(B,1),N2)-LLV(LLV(B,1),N2));
W3:=-100*(HHV(HHV(B,1),N3)-B)/(HHV(HHV(B,1),N3)-LLV(LLV(B,1),N3));
W4:=-100*(HHV(HHV(B,1),N4)-B)/(HHV(HHV(B,1),N4)-LLV(LLV(B,1),N4));
价咯WR:(W1+W2+W3+W4)/4,COLORGREEN,LINETHICK1;
A:=SMA(VOL,10,1);
WR1:=-100*(HHV(HHV(A,1),N1)-A)/(HHV(HHV(A,1),N1)-LLV(LLV(A,1),N1));
WR2:=-100*(HHV(HHV(A,1),N2)-A)/(HHV(HHV(A,1),N2)-LLV(LLV(A,1),N2));
WR3:=-100*(HHV(HHV(A,1),N3)-A)/(HHV(HHV(A,1),N3)-LLV(LLV(A,1),N3));
WR4:=-100*(HHV(HHV(A,1),N4)-A)/(HHV(HHV(A,1),N4)-LLV(LLV(A,1),N4));
量WR:(WR1+WR2+WR3+WR4)/4,COLORYELLOW,LINETHICK1;
多空平衡:-50,POINTDOT;安全线:-20,POINTDOT;风险区:-80,POINTDOT,COLORCYAN;
MA55:=MA(C,55);
MA1:=MA(VOL,5);
DRAWTEXT(量WR<=-80 AND 量WR>-100,-10,'小资金');
DRAWTEXT(量WR>-80 AND 量WR<=-50,-20,'部分中线资金');
DRAWTEXT(量WR>-50 AND 量WR<=-20,-30,'中线资金有介入愿望');
DRAWTEXT(量WR>-20 AND 量WR<0,-40,'有大资金');
DRAWTEXT(量WR=0,-50,'资金疯狂。');
DRAWTEXT(量WR=-100,-60,'无资金照看。');
DRAWTEXT(REF(量WR,3)>REF(量WR,2) AND REF(量WR,2)>REF(量WR,1) AND REF(量WR,1)>量WR,-70,'资金在撤退。');
DRAWTEXT(REF(量WR,3) AND REF(量WR,1)<量WR,-80,'资金在介入。');
DRAWTEXT(WR1>多空平衡,-90,'拉抬区,买入');
DRAWTEXT(CROSS(V,MA(V,5)) AND CROSS(MA(V,5),MA(V,34)),-100,'量大于5、34日均量');
GHJ:=CROSS(WR1,-50) AND CROSS(量WR,-50);
量价齐升:IF(GHJ,-50,-80),COLORGREEN;
绝顶:IF (WR1>-3  AND 量WR>-3  AND 价咯WR>-3,-50,0),COLORYELLOW;
量价齐升▼:DRAWTEXT(GHJ ,-50,'▲'),COLORGREEN;
绝顶▲:DRAWTEXT(WR1>-6 AND 量WR>-6 AND 价咯WR>-6,0,'▼'),COLORYELLOW;

原公式如下：
b:=SMA((3*h+2*c+o+l)/7,10,1);
w1:=-100*(HHV(Hhv(b,1),N1)-b)/(HHV(Hhv(b,1),N1)-LLV(Llv(b,1),N1));
w2:=-100*(HHV(Hhv(b,1),N2)-b)/(HHV(Hhv(b,1),N2)-LLV(Llv(b,1),N2));
w3:=-100*(HHV(Hhv(b,1),N3)-b)/(HHV(Hhv(b,1),N3)-LLV(Llv(b,1),N3));
w4:=-100*(HHV(Hhv(b,1),N4)-b)/(HHV(Hhv(b,1),N4)-LLV(Llv(b,1),N4));
价咯WR:(w1+w2+w3+w4)/4,colorgreen,linethick1;
a:=SMA(vol,10,1);
wr1:=-100*(HHV(Hhv(a,1),N1)-a)/(HHV(Hhv(a,1),N1)-LLV(Llv(a,1),N1));
wr2:=-100*(HHV(Hhv(a,1),N2)-a)/(HHV(Hhv(a,1),N2)-LLV(Llv(a,1),N2));
wr3:=-100*(HHV(Hhv(a,1),N3)-a)/(HHV(Hhv(a,1),N3)-LLV(Llv(a,1),N3));
wr4:=-100*(HHV(Hhv(a,1),N4)-a)/(HHV(Hhv(a,1),N4)-LLV(Llv(a,1),N4));
量WR:(wr1+wr2+wr3+wr4)/4,coloryellow,linethick1;

WR1: -100*(HHV(HIGH,55)-CLOSE)/(HHV(HIGH,55)-LLV(LOW,55)),colorred,linethick2;
多空平衡:-50,pointdot;安全线:-20,pointdot;风险区:-80,pointdot,colorcyan;
EXPLAIN(价咯WR<=-80 AND 价咯WR>-100,'价咯趋势较弱,不会保持太久'),COLORYELLOW;
EXPLAIN(价咯WR>-80 AND 价咯WR<=-50,'价咯趋势有扭转要求,可观察'),COLORYELLOW;
EXPLAIN(价咯WR>-50 AND 价咯WR<=-20,'价咯趋势中线转强'),COLORYELLOW;
EXPLAIN(价咯WR>-20 AND 价咯WR<0,'价咯趋势中长线转强'),COLORYELLOW;
EXPLAIN(价咯WR=0,'如果能量配合,已具备长线走牛的可能'),COLORYELLOW;
EXPLAIN(价咯WR=-100,'趋势很弱,此股不看'),COLORYELLOW;
EXPLAIN(REF(价咯WR,3)>REF(价咯WR,2) AND REF(价咯WR,2)>REF(价咯WR,1)
AND REF(价咯WR,1)>价咯WR,'趋势转空'),COLORYELLOW;
EXPLAIN(REF(价咯WR,3)<REF(价咯WR,2) AND REF(价咯WR,2)<REF(价咯WR,1)
AND REF(价咯WR,1)<价咯WR,'趋势转多'),COLORYELLOW;
EXPLAIN(WR1>=-50 ,'股价正在走强关注，WR大于-45密切关注'),colorred;
EXPLAIN(量WR<=-80 AND 量WR>-100,'介入资金散兵游勇'),COLORGREEN;
EXPLAIN(量WR>-80 AND 量WR<=-50,'部分中线资金介入'),COLORGREEN;
EXPLAIN(量WR>-50 AND 量WR<=-20,'中线资金有进一步介入愿望,关注'),COLORGREEN;
EXPLAIN(量WR>-20 AND 量WR<0,'有大资金愿意做此股'),COLORGREEN;
EXPLAIN(量WR=0,'资金介入在疯狂'),COLORGREEN;
EXPLAIN(量WR=-100,'无资金照看'),COLORGREEN;
EXPLAIN(REF(量WR,3)>REF(量WR,2) AND REF(量WR,2)>REF(量WR,1)
AND REF(量WR,1)>量WR,'资金在撤退'),COLORGREEN;
EXPLAIN(REF(量WR,3)<REF(量WR,2) AND REF(量WR,2)<REF(量WR,1)
AND REF(量WR,1)<量WR,'资金在介入'),COLORGREEN;
MA21:MA(C,21);
MA34:MA(C,34);
MA55:MA(C,55);

EXPLAIN(C>MA55 , '条件1.MA55:股价收在55日均线上,股价走强,'),COLORYELLOW;
MA1:MA(VOL,5),linethick0;
EXPLAIN(VOL>MA1 ,'条件2:当日成交量大于5日均量,请密切关注'),COLORRED;
EXPLAIN(WR1>多空平衡 ,'条件3:现在股价进入台势区,三个条件出时正是买的条件,还在犹豫什么,快快进场吧!'),COLORgreen;
EXPLAIN(ma(c,30)>=ref(ma(c,30),1),'股价上升的首要条件是，30日均线已经走来或上扬了')coloryellow,linethick2;
EXPLAIN(EXIST(cross(v,ma(v,5)),10) AND EXIST(cross(ma(v,5),ma(v,34)),10),'当日量大于5日均量和34日均量'),colorred,linethick2;
EXPLAIN(v>ma(v,5),'当日量大于5日均量'),colorgreen;
EXPLAIN(MA(C,5)>MA(c,10) , '条件4.MA5已金叉或将金叉MA10，可介入'),colorred;

参数
n1    14
n2    34
n3    55
n4    5

 

[url=http://www.70822.com/soft/sort013/sort03/down-16730.html]量价齐升，既然没人改通达信格式，我来改[/url]