投资者咨询：麻烦老师帮忙修改 (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-6-19 19:42
1
{TREND STRENGTH INDICATOR}A1:=IF(C>MA(C,PRD1),10,IF(C<MA(C,PRD1),-10,0));
A2:=IF(C>MA(C,PRD1/STEP),10,IF(C<MA(C,PRD1/STEP),-10,0));
A3:=IF(C>MA(C,INTPART(PRD1/POW(STEP,2))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,2))),-10,0));
A4:=IF(C>MA(C,INTPART(PRD1/POW(STEP,3))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,3))),-10,0));
A5:=IF(C>MA(C,INTPART(PRD1/POW(STEP,4))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,4))),-10,0));
A6:=IF(C>MA(C,INTPART(PRD1/POW(STEP,5))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,5))),-10,0));
A7:=IF(C>MA(C,INTPART(PRD1/POW(STEP,6))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,6))),-10,0));
A8:=IF(C>MA(C,INTPART(PRD1/POW(STEP,7))-1),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,7))-1),-10,0));
A9:=IF(C>MA(C,INTPART(PRD1/POW(STEP,8))-1),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,8))-1),-10,0));
A10:=IF(C>MA(C,INTPART(PRD1/POW(STEP,9))-3),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,9))-3),-10,0));
(A1+A2+A3+A4+A5+A6+A7+A8+A9+A10);
{TREND DIRECTION & FORCE INDEX BY PIOTR WOJDYO}
PER1:=17;
MMA:=EMA(C,PER1);
SMMA:=EMA(MMA,PER1);
IMPETMMA:=MMA - REF(MMA,1);
IMPETSMMA:=SMMA - REF(SMMA,1);
DIVMA:= ABS(MMA - SMMA);
AVERIMPET:= (IMPETMMA+IMPETSMMA)/2;
TDF:= POW(DIVMA,1)*POW(AVERIMPET,3);
NTDF:=TDF/HHV(ABS(TDF),PER1*3);
-0.05,COLORBLUE;0.05,COLORBLUE;NTDF,COLORRED,LINETHICK2;
PER1:=17;
MMA:=EMA(C,PER1);
SMMA:=EMA(MMA,PER1);
IMPETMMA:=MMA - REF(MMA,1);
IMPETSMMA:=SMMA - REF(SMMA,1);
DIVMA:= ABS(MMA - SMMA);
AVERIMPET:= (IMPETMMA+IMPETSMMA)/2;
TDF:= POW(DIVMA,1)*POW(AVERIMPET,3);
NTDF:=TDF/HHV(ABS(TDF),PER1*3);
-0.05,COLORBLUE;0.05,COLORBLUE;NTDF,COLORRED,LINETHICK2;
LL:=LLV(LOW,N);
HH1:=BARSLAST((HH > REF(HH,1)));
LL1:=BARSLAST((LL < REF(LL,1)));
PARTLINE((HH1 < LL1),LL),LINETHICK2,colorBB0066;
PARTLINE((HH1 > LL1),HH),LINETHICK2,color1B8800;
STICKLINE((HH1 < LL1),CLOSE,OPEN,9,0),colorFF;
STICKLINE((HH1 < LL1),HIGH,LOW,0,0),colorFF;
STICKLINE((HH1 > LL1),CLOSE,OPEN,9,0),colorFF0000;
STICKLINE((HH1 > LL1),HIGH,LOW,0,0),colorFF0000;
DRAWICON(CROSS(HH1,LL1),HH,11);
DRAWICON(CROSS(LL1,HH1),LL,12);
DRAWTEXT(CROSS(HH1,LL1),HH,'卖'),colorFF00;
DRAWTEXT(CROSS(LL1,HH1),LL,'买'),colorFF00FF;
DRAWTEXT(FILTER(((HH1 < REF(HH1,1)) AND (HH1 < LL1)),90),LOW,':male_sign:加'),colorFF00FF;
DRAWTEXT(FILTER(((LL1 < REF(LL1,1)) AND (HH1 > LL1)),90),HIGH,':female_sign:减'),colorFF00;
drawtext(BARPOS=SYSPARAM(2),h,'会员专用'),align4,colorffff;
技术人员回复
日期:2018-6-19 19:47
1参考：
STEP:=(SQRT(5)-1)/2;
PRD1:=10;
A1:=IF(C>MA(C,PRD1),10,IF(C<MA(C,PRD1),-10,0));
A2:=IF(C>MA(C,PRD1/STEP),10,IF(C<MA(C,PRD1/STEP),-10,0));
A3:=IF(C>MA(C,INTPART(PRD1/POW(STEP,2))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,2))),-10,0));
A4:=IF(C>MA(C,INTPART(PRD1/POW(STEP,3))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,3))),-10,0));
A5:=IF(C>MA(C,INTPART(PRD1/POW(STEP,4))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,4))),-10,0));
A6:=IF(C>MA(C,INTPART(PRD1/POW(STEP,5))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,5))),-10,0));
A7:=IF(C>MA(C,INTPART(PRD1/POW(STEP,6))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,6))),-10,0));
A8:=IF(C>MA(C,INTPART(PRD1/POW(STEP,7))-1),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,7))-1),-10,0));
A9:=IF(C>MA(C,INTPART(PRD1/POW(STEP,8))-1),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,8))-1),-10,0));
A10:=IF(C>MA(C,INTPART(PRD1/POW(STEP,9))-3),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,9))-3),-10,0));
PER1:=17;
MMA:=EMA(C,PER1);
SMMA1:=EMA(MMA,PER1);
IMPETMMA:=MMA - REF(MMA,1);
IMPETSMMA:=SMMA1 - REF(SMMA1,1);
DIVMA:= ABS(MMA - SMMA1);
AVERIMPET:= (IMPETMMA+IMPETSMMA)/2;
TDF:= POW(DIVMA,1)*POW(AVERIMPET,3);
NTDF:=TDF/HHV(ABS(TDF),PER1*3);
-0.05,COLORBLUE;
0.05,COLORBLUE;
NTDF,COLORRED,LINETHICK2;
N:=10;
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
HH1:=BARSLAST((HH > REF(HH,1)));
LL1:=BARSLAST((LL < REF(LL,1)));
PARTLINE((HH1 < LL1),LL,COLORBB0066),LINETHICK2;
PARTLINE((HH1 > LL1),HH,COLOR1B8800),LINETHICK2;
STICKLINE((HH1 < LL1),CLOSE,OPEN,9,0),COLORFF0000;
STICKLINE((HH1 < LL1),HIGH,LOW,0,0),COLORFF0000;
STICKLINE((HH1 > LL1),CLOSE,OPEN,9,0),COLORFF0000;
STICKLINE((HH1 > LL1),HIGH,LOW,0,0),COLORFF0000;
DRAWICON(CROSS(HH1,LL1),HH,11);
DRAWICON(CROSS(LL1,HH1),LL,12);
DRAWTEXT(CROSS(HH1,LL1),HH,'卖'),COLORFF0000;
DRAWTEXT(CROSS(LL1,HH1),LL,'买'),COLORFF00FF;
DRAWTEXT(FILTER(((HH1 < REF(HH1,1)) AND (HH1 < LL1)),90),LOW,':male_sign:加'),COLORFF00FF;
DRAWTEXT(FILTER(((LL1 < REF(LL1,1)) AND (HH1 > LL1)),90),HIGH,':female_sign:减'),COLORFF0000;
