
等级: 新手上路
- 注册:
- 2023-8-15
- 曾用名:
|
老师好!
这个公式,以公式包安装可以正常显示,如何把源码复制出来则提示有问题,麻烦技术人员看看是什么问题?谢谢
//微型缺口显示v1,20160601,qq=1045351
wxqkup := ref(h,1)<refx(l,1);
wxqkdown := ref(l,1)>refx(h,1);
qkupl:=ref(h,1);
qkuph:=refx(l,1);
qkdownh:=ref(l,1);
qkdownl:=refx(h,1);
mlow[DATACOUNT]:=low[datacount];
mhigh[DATACOUNT]:=high[datacount];
for i:=(DATACOUNT-1) downto 1 do
begin
if low[i+1]<mlow[i+1] then mlow[i]:=low[i+1];
else mlow[i]:=mlow[i+1];
if high[i+1]>mhigh[i+1] then mhigh[i]:=HIGH[i+1];
else mhigh[i]:=mhigh[i+1];
end;
wxu:=wxqkup and (qkupl<mlow);
wxd:=wxqkdown and (qkdownh>mhigh);
// version 居士
STICKLINE(ref(wxu,1)and ref(qkuph,1)>ref(mlow,1),ref(h,2),ref(mlow,1),14,0,rgb(255, 130, 71));
STICKLINE(ref(wxu,1)and ref(qkuph,1)<=ref(mlow,1),ref(h,2),l,14,0,rgb(255, 130, 71));
stickline(ref(wxd,1)and ref(qkdownl,1)<ref(mhigh,1),ref(QKDOWNH,1),ref(mhigh,1),14,0,colorgray);
stickline(ref(wxd,1)and ref(qkdownl,1)>=ref(mhigh,1),ref(QKDOWNH,1),ref(qkdownl,1),14,0,colorgray);
|
|