求助跨周期画线

02-20 09:25发布

ImPort

#ImPort [sec,15,BBB] As S1
Vars
Numeric F1;
Numeric B;
Numeric HH;
Numeric LL;
Numeric U;
Numeric D;
Begin
PlotNumeric("S15", AV1=S1.AvPrice1);

PlotNumeric("B", F1>REF(F1,1)||F1
PlotNumeric("HH", VALUEWHEN(B,H),NODRAW;
PlotNumeric("LL",VALUEWHEN(B,L),NODRAW;
PlotNumeric("U",BARSLAST(C>HH)
PlotNumeric("D",BARSLAST(CHH);

FILLRGN(U,0,F1,RGB(37,16,13));
FILLRGN(D,0,F1,RGB(19,31,18));
POLYLINE(B,H,RGB(231,231,231 ));
POLYLINE(B,L,RGB(231,231,231 ));
DRAWCOLORKLINE(ISUP,COLORRED,1);
DRAWCOLORKLINE(ISDOWN,COLORCYAN,0);
DRAWCOLORKLINE(ISEQUAL,COLORWHITE,1);
老师帮我调整一下,宽语言不太会谢谢!

ImPort
#ImPort [sec,15,BBB] As S1
Vars
Numeric F1;
Numeric B;
Numeric HH;
Numeric LL;
Numeric U;
Numeric D;
Begin
PlotNumeric("S15", AV1=S1.AvPrice1);

PlotNumeric("B", F1>REF(F1,1)||F1
PlotNumeric("HH", VALUEWHEN(B,H),NODRAW;
PlotNumeric("LL",VALUEWHEN(B,L),NODRAW;
PlotNumeric("U",BARSLAST(C>HH)
PlotNumeric("D",BARSLAST(CHH);

FILLRGN(U,0,F1,RGB(37,16,13));
FILLRGN(D,0,F1,RGB(19,31,18));
POLYLINE(B,H,RGB(231,231,231 ));
POLYLINE(B,L,RGB(231,231,231 ));
DRAWCOLORKLINE(ISUP,COLORRED,1);
DRAWCOLORKLINE(ISDOWN,COLORCYAN,0);
DRAWCOLORKLINE(ISEQUAL,COLORWHITE,1);
老师帮我调整一下,宽语言不太会谢谢!
付费偷看设置
发送
9条回答
文华解答
2楼-- · 02-20 10:17
需要上传下BBB的编写,您定义下1楼模型中F1。
文华问答
3楼-- · 02-20 10:36
Vars
Numeric AvPrice1;
Begin
AvPrice1=Ref(AvPrice,1);

End

F1:就是BBB
文华解答
4楼-- · 02-20 10:57

参考:

ImPort
#ImPort [sec,15,BBB] As S1
Vars
Numeric AV1,F1,S15,B,HH,LL,U,D;
Begin
F1=S1.AvPrice1;
B= F1>REF(F1,1)||F1HH=VALUEWHEN(B,HIGH);
LL=VALUEWHEN(B,LOW);
U=BARSLAST(CLOSE>HH)D=BARSLAST(CLOSEHH);

PlotNumeric("S15", AV1=S1.AvPrice1);
//PlotNumeric("B", F1>REF(F1,1)||F1PlotNumeric("HH", VALUEWHEN(B,High));
PlotNumeric("LL",VALUEWHEN(B,Low));
//PlotNumeric("U",BARSLAST(CLOSE>HH)//PlotNumeric("D",BARSLAST(CLOSEHH),NoDraw);

//FILLRGN(U,0,F1,RGB(37,16,13));
DrawGbk1(U,RGB(37,16,13));
//FILLRGN(D,0,F1,RGB(19,31,18));
DrawGbk1(D,RGB(19,31,18));
POLYLINE(B,HIGH,RGB(231,231,231 ));
POLYLINE(B,LOW,RGB(231,231,231 ));
DRAWCOLORKLINE(ISUP,RED,1);
DRAWCOLORKLINE(ISDOWN,Cyan,0);
DRAWCOLORKLINE(ISEQUAL,White,1);
END

文华问答
5楼-- · 02-20 11:17
老师不要指标线有画线就行
文华解答
6楼-- · 02-20 11:36

只保留K线和变色背景:

ImPort
#ImPort [sec,15,BBB] As S1
Vars
Numeric AV1,F1,S15,B,HH,LL,U,D;
Begin
F1=S1.AvPrice1;
B= F1>REF(F1,1)||F1HH=VALUEWHEN(B,HIGH);
LL=VALUEWHEN(B,LOW);
U=BARSLAST(CLOSE>HH)D=BARSLAST(CLOSEHH);

//PlotNumeric("S15", AV1=S1.AvPrice1);
//PlotNumeric("B", F1>REF(F1,1)||F1//PlotNumeric("HH", VALUEWHEN(B,High));
//PlotNumeric("LL",VALUEWHEN(B,Low));
//PlotNumeric("U",BARSLAST(CLOSE>HH)//PlotNumeric("D",BARSLAST(CLOSEHH),NoDraw);

//FILLRGN(U,0,F1,RGB(37,16,13));
DrawGbk1(U,RGB(37,16,13));
//FILLRGN(D,0,F1,RGB(19,31,18));
DrawGbk1(D,RGB(19,31,18));
//POLYLINE(B,HIGH,RGB(231,231,231 ));
//POLYLINE(B,LOW,RGB(231,231,231 ));
DRAWCOLORKLINE(ISUP,RED,1);
DRAWCOLORKLINE(ISDOWN,Cyan,0);
DRAWCOLORKLINE(ISEQUAL,White,1);
END

文华问答
7楼-- · 02-20 11:57
U1:=U=1&&REF(U,1)=0;
D1:=D=1&&REF(D,1)=0;
老师这个用宽语言怎么写谢谢

一周热门 更多>

相关问答