原本的程式碼
input:hpriceg(group,"機殼");
var:_hpsize(0),_hprice(0),i(0),avprice87(0),avprice284(0);
_hpsize=groupSize(hpriceg);
_hprice=0;
for i =1 to 50
begin
if i<=_hpsize then
_hprice+= getsymbolfield(hpriceg[i],"close");
end;
_hprice=_hprice/_hpsize;
avprice87=average(_hprice,87);
avprice284=average(_hprice,284);
value1 = 0;
for i = 1 to _hpsize
begin
value1 +=
(GetSymbolField(hpriceg[i],"Close")
-GetSymbolField(hpriceg[i],"Close")[1])
/GetSymbolField(hpriceg[i],"Close")[1]*100;
end;
value1 = value1 / _hpsize;
VALUE2=(GETSYmbolField("TSE.TW", "CLOSE")-GETSYmbolField("TSE.TW", "CLOSE")[1])/GETSYmbolField("TSE.TW", "CLOSE")[1]*100;
VALUE3=(GETSYmbolField("OTC.TW", "CLOSE")-GETSYmbolField("OTC.TW", "CLOSE")[1])/GETSYmbolField("OTC.TW", "CLOSE")[1]*100;
VALUE4 = 0;
for i = 1 to _hpsize
begin
VALUE4 +=
(GetSymbolField(hpriceg[i],"Close")
- GetSymbolField(hpriceg[i],"Close")[5])
/ GetSymbolField(hpriceg[i],"Close")[5]
* 100;
end;
VALUE4 = VALUE4 / _hpsize;
PLOT1(VALUE1,"漲跌");
PLOT2(VALUE2,"大盤");
PLOT3(VALUE3,"OTC");
PLOT4(VALUE4,"周漲跌");
plot5(_hprice,"現價");
plot6(avprice87,"87");
plot7(avprice284,"284");
顯示都正常 為什麼加入了下面的這段 就全部空白了?
value50 = 0;
for i = 1 to _hpsize
begin
value50 +=GetSymbolField(hpriceg[i],"投信買賣超金額" ,"D");
end;
value50 = value50 / _hpsize;
plot10(value50,"投信");
5 評論