以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请修改任何錯句  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=99529)

--  作者:annbi
--  发布时间:2016/6/24 10:05:41
--  请修改任何錯句
附件是我剛学写而写出,見笑了,
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:請修改任何錯误.txt

白綫显示没冋题,但篮綫显示很有冋题,有時显示,有時長期零平綫, 篮显示時感觉没錯太致邏輯,所以估計码的太致上没大錯,唯初学,不知錯在那些句,請修改令篮綫显示長久显示而非零平綫,谢谢
註,不知什么原因间中或某品种图会有條绿色平綫走出來,我只显示白和
[此贴子已经被作者于2016-6-24 10:07:13编辑过]

--  作者:jinzhe
--  发布时间:2016/6/24 10:28:13
--  

T:=MA((MIN(L,4)-MAX(C,4))/(MAX(H,5)-MAX(C,5))*100,2);
s1:=2*T-1.5*T;
S2:=T-0.4*T;
RUNMODE:0;
variable:G=0;
   

VARIABLE:Q=0;

if (T>REF(S1,1)) then
begin
 G:=1;
End
If (T<REF(S2,1)) then
begin
G:=-1;
end             
r1:=ref(s2,1);
q1:=ref(q,1);
if G>0 THEN BEGIN
         
                if S2<r1 THEN
                    BEGIN   
                    S2:=R1;
                     Q:=S2;
                  END
          if Q<q1 THEN
                    BEGIN   
                    Q:=q1;
                 
                  END

                    

END
         
 if g<=0 then begin
         
                if (S1>r1) THEN
                    BEGIN   
                    S1:=R1;
                     Q:=S1;
                  END
                if (Q>q1) THEN
                    BEGIN    Q:=q1;
                  
                  END
end


TDRAW:T,COLORWHITE;
QDRAW:Q,COLORBLUE;


--  作者:annbi
--  发布时间:2016/6/24 10:47:21
--  
1楼,已放入軟件, 篮色线是有数值显示的, 但奇怪為何長久显示為平零錢, 請修改令篮色线可显示正常些,谢谢
--  作者:jinzhe
--  发布时间:2016/6/24 10:50:23
--  

平线说明 g<=0 和 (S1>r1) 这两个条件不成立,导致q值不变化,是正常的。                  


--  作者:annbi
--  发布时间:2016/6/24 11:01:43
--  
回4楼, 概然篮Q值已显示到数值出來,只是其之显示時常為平零綫而已,  可否另加些內句码令Q值另以黄色綫显示出來图像化呢?怎写呢,谢谢
[此贴子已经被作者于2016-6-24 11:02:24编辑过]

--  作者:jinzhe
--  发布时间:2016/6/24 11:09:05
--  

1就如前面所言,出现平的线是正常的,是因为你代码里面的条件不成立导致了

2.黄色:

qqq:Q,COLORyellow;


--  作者:annbi
--  发布时间:2016/6/24 11:21:44
--  
回楼上,黄綫情況一样;

概然篮Q值已显示到数值出來,不如如何extract抽出q的显示数值再画它出來,怎写呢,谢谢

--  作者:jinzhe
--  发布时间:2016/6/24 11:28:02
--  
什么意思?上面的代码已经把q显示数值画出来了,结果直线是因为你代码里面逻辑导致了条件不成立时,q值是不变的
--  作者:annbi
--  发布时间:2016/6/24 11:37:35
--  
我在軟件試了, 黄綫仍是平零线, 雖然qdraw有正常数值显示,怎抽出这些正常数值显示出來呢
--  作者:pyd
--  发布时间:2016/6/24 13:31:42
--  

要怎么显示?图上显示线?还是把值输出到txt里?