老師還是那位大俠幫幫忙

作者：開拓者 TB 來源：cxh99.com 發(fā)布時間：2017年05月02日

咨詢內(nèi)容： 文華改tb 哪里有問題
Params
Numeric N(2);
Numeric Q(0);

Vars
NumericSeries HH;
NumericSeries Lh;
NumericSeries h1;
NumericSeries l1;
NumericSeries h2;
NumericSeries l2;
NumericSeries K1;
NumericSeries K2;
NumericSeries G;
Begin
hh = HighestFC(High,n);
lh = LowestFC(Low,n);
h1 = IIF(hh<hh[1]&&lh<lh[1]&&OPEN[1]>Close&&OPEN>CLOSE&&(HighestFC(Open,q)-CLOSE)>q,hh[n],0);
l1 = IIF(lh>lh[1]&&hh>hh[1]&&Open[1]<CLOSE&&Open<CLOSE&&(CLOSE-LowestFC(Open,0))>q,lh[n],0);
If(h1>0)
{
h2=h1;
}Else
{
      h2=h1[1];
}
If(l1>0)
{
l2=l1;
}Else
{
      l2=l1[1];
}
k1 = IIF(CLOSE>h2,-3,IIF(Close<l2,1,0));
If(k1!=0)
{
      k2 = k1;
}Else
{
k2 = k1[1];
}
If(k2==1)
{
G = h2;
}Else
{
G =l2;
}
/*G =Iif(k2=1,h2,l2);*/
PlotNumeric("g",g);

End

文華碼
HH:=HHV(HIGH,N);
LH:=LLV(LOW,N);
H1:=IFELSE(HH<REF(HH,1)&&LH<REF(LH,1)&&REF(OPEN,1)>CLOSE&&OPEN>CLOSE&&(HHV(OPEN,Q)-CLOSE)>Q1,REF(HH,N1),0);
L1:=IFELSE(LH>REF(LH,1)&&HH>REF(HH,1)&&REF(OPEN,1)<CLOSE&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,Q))>Q1,REF(LH,N1),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,H2,L2);