 |
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1893 |
引用: 最初由 lin123 發表
共有十章(免費電子書) lin123
只找到六章
|
|
向版主報告此篇 |  |
|
2005-05-06 00:26 |
|
|
|  |
 |
p0068
資深會員
註冊日期: Jan 2004
來 自: 台中市
文章數量: 564 |
請把下列移除即可任何周期使用
IF DATATYPE<>0 then begin
DRAWTEXT(ISLASTBAR,0,'只能運行在分筆週期!\n \n請切換到分筆週期!!'),align2;
exit;
end;
__________________
shujenwen
|
|
向版主報告此篇 |  |
|
2005-05-19 11:55 |
|
|
|  |
 |
p0068
資深會員
註冊日期: Jan 2004
來 自: 台中市
文章數量: 564 |
引用: 最初由 lin123 發表
日線不知如何辦到?
以下代碼: 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]];
以下貼圖是網上來的日線圖 不知如何辦到??
把此處刪除即可
if datatype<>0 then begin
drawtext(islastbar,0,'只能運行在分筆週期!\n \n請切換到分筆週期!!'),align2;
exit;
end;
__________________
shujenwen
|
|
向版主報告此篇 |  |
|
2005-05-19 12:10 |
|
|
|  |
 |
p0068
資深會員
註冊日期: Jan 2004
來 自: 台中市
文章數量: 564 |
引用: 最初由 p0068 發表
把此處刪除即可
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]];
p0068 附帶上了此圖片:
__________________
shujenwen
|
|
向版主報告此篇 |  |
|
2005-05-20 00:08 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|