|
日線不知如何辦到?
以下代碼: by 博庭 南客(分筆) but 奇狐 3.5好像有問題
if datatype<>0 then begin
drawtext(islastbar,0,'只能運行在分筆週期！\n \n請切換到分筆週期！！'),align2;
exit;
end;
fv:=vol;
fc:=close;
fcp:=fc;
a:=sortpos(fcp,0,1,datacount);
fvmax:=0; fvmaxp:=1; fvtemp:=fv[fcp[1]];
fbmax:=0; fbmaxp:=1; fbtemp:=1;
if datacount>1 then begin
for i=2 to datacount do
if fc[fcp[i]]=fc[fcp[i-1]] then begin
fvtemp:=fvtemp+fv[fcp[i]];
fbtemp:=fbtemp+1;
end else begin
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
if fbmax<fbtemp then begin
fbmax:=fbtemp;
fbmaxp:=i-1;
end;
fvtemp:=fv[fcp[i]];
fbtemp:=1;
end;
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
if fbmax<fbtemp then begin
fbmax:=fbtemp;
fbmaxp:=i-1;
end;
end;
svmin:=0; svminp:=fv[fcp[1]]; svmax:=0; svmaxp:=fv[fcp[1]];
for i=1 to datacount do begin
svmin:=svmin+fv[fcp[i]];
if svmin>=dynainfo(8)/6 then begin
svminp:=i;
break;
end;
end;
for i=datacount downto 1 do begin
svmax:=svmax+fv[fcp[i]];
if svmax>=dynainfo(8)/6 then begin
svmaxp:=i;
break;
end;
end;
量聚焦價:fc[fcp[fvmaxp]];//聚焦點，即成交量最大的價格
次數聚焦價:fc[fcp[fbmaxp]];//成交筆數（次數）最多的價格
量聚焦成交量:fvmax,linethick0;
量聚焦成交筆數:count(close=量聚焦價,0);
次數聚焦成交量:sum((close=次數聚焦價)*vol,0);
次數聚焦成交筆數:fbmax,linethick0;
活躍區成交筆數:count(close>=fc[fcp[svminp]] and close<=fc[fcp[svmaxp]],0),linethick0;
活躍區成交量:sum(if(close>=fc[fcp[svminp]] and close<=fc[fcp[svmaxp]],vol,0),0),linethick0;
活躍上限:fc[fcp[svmaxp]];
活躍下限:fc[fcp[svminp]];
以下貼圖是網上來的日線圖 不知如何辦到？？
|
2004-10-12 23:19
很感動 好神奇的點子
