 |
源码：
{九阴真经}b:=SMA((3*h+2*c+o+l)/7,10,1);
w1:=-100*(HHV(Hhv(b,1),13)-b)/(HHV(Hhv(b,1),13)-LLV(Llv(b,1),13));
w2:=-100*(HHV(Hhv(b,1),34)-b)/(HHV(Hhv(b,1),34)-LLV(Llv(b,1),34));
w3:=-100*(HHV(Hhv(b,1),55)-b)/(HHV(Hhv(b,1),55)-LLV(Llv(b,1),55));
w4:=-100*(HHV(Hhv(b,1),5)-b)/(HHV(Hhv(b,1),5)-LLV(Llv(b,1),5));
价格WR:=(w1+w2+w3+w4)/4;
a:=SMA(vol,10,1);
wr1:=-100*(HHV(Hhv(a,1),13)-a)/(HHV(Hhv(a,1),13)-LLV(Llv(a,1),13));
wr2:=-100*(HHV(Hhv(a,1),34)-a)/(HHV(Hhv(a,1),34)-LLV(Llv(a,1),34));
wr3:=-100*(HHV(Hhv(a,1),55)-a)/(HHV(Hhv(a,1),55)-LLV(Llv(a,1),55));
wr4:=-100*(HHV(Hhv(a,1),5)-a)/(HHV(Hhv(a,1),5)-LLV(Llv(a,1),5));
量WR:=(wr1+wr2+wr3+wr4)/4;
WR:=-100*(HHV(HIGH,55)-CLOSE)/(HHV(HIGH,55)-LLV(LOW,55));
多空平衡:=-50;
ma55:=ma(c,55);
ma1:=ma(vol,5);
TJTS:=DISPSTATUS=2;
TIPTEXT(价格WR<=-80 AND 价格WR>-100 AND TJTS,0,'价格趋势较弱,不会保持太久。');
TIPTEXT(价格WR>-80 AND 价格WR<=-50 AND TJTS,0,'价格趋势有扭转要求,可观察。');
TIPTEXT(价格WR>-50 AND 价格WR<=-20 AND TJTS,0,'价格趋势中线转强。');
TIPTEXT(价格WR>-20 AND 价格WR<0 AND TJTS,0,'价格趋势中长线转强。');
TIPTEXT(价格WR=0 AND TJTS,0,'如果能量配合,已具备长线走牛的可能。');
TIPTEXT(价格WR=-100 AND TJTS,0,'趋势很弱,此股不看。');
TIPTEXT(REF(价格WR,3)>REF(价格WR,2) AND REF(价格WR,2)>REF(价格WR,1) AND REF(价格WR,1)>价格WR AND TJTS,0,'趋势转空。');
TIPTEXT(REF(价格WR,3) AND REF(价格WR,1)<价格WR AND TJTS,0,'趋势转多。');
TIPTEXT(WR1>=-50 AND TJTS,0,'股价正在走强,WR大于-45密切关注。');
TIPTEXT(量WR<=-80 AND 量WR>-100 AND TJTS,0,'介入资金散兵游勇。');
TIPTEXT(量WR>-80 AND 量WR<=-50 AND TJTS,0,'部分中线资金介入。');
TIPTEXT(量WR>-50 AND 量WR<=-20 AND TJTS,0,'中线资金有介入愿望,关注。');
TIPTEXT(量WR>-20 AND 量WR<0 AND TJTS,0,'有大资金愿意做此股。');
TIPTEXT(量WR=0 AND TJTS,0,'资金介入在疯狂。');
TIPTEXT(量WR>-20 AND 量WR<0 AND TJTS,0,'有大资金愿意做此股。');
TIPTEXT(量WR=-100 AND TJTS,0,'无资金照看。');
TIPTEXT(REF(量WR,3)>REF(量WR,2) AND REF(量WR,2)>REF(量WR,1) AND REF(量WR,1)>量WR AND TJTS,0,'资金在撤退。');
TIPTEXT(REF(量WR,3) AND REF(量WR,1)<量WR AND TJTS,0,'资金在介入。');
TIPTEXT(C>MA55 AND TJTS,0,'股价收在55日均线上,可能走强。');
TIPTEXT(VOL>MA1 AND TJTS,0,'当日成交量大于5日均量,密切关注。');
TIPTEXT(WR1>多空平衡 AND TJTS,0,'股价拉抬区,正是买入条件,快进场吧!');
TIPTEXT(ma(c,30)>=ref(ma(c,30),1) AND TJTS,0,'股价上升,30日均线开始抬头。');
TIPTEXT(cross(v,ma(v,5)) AND cross(ma(v,5),ma(v,34)) AND TJTS,0,'当日量大于5日均量和34日均量。');
TIPTEXT(v>ma(v,5) AND TJTS,0,'当日量大于5日均量。');
TIPTEXT(MA(C,5)>MA(c,10) AND TJTS,0,'MA5已金叉或将金叉MA10,可介入。');