 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18233 |
|
回覆: [求救]给版主和各位高手拜年,有一问题,请帮忙!谢谢!
引用: 最初由 lxfyyylrx 發表
第1:关于macd一次0轴以下macd的最小值,第2小值,以及第3小值,怎么表答。和他们到现在的周期数谢谢!
如图A为macd的最小值,B为第2小值,C为第3小值小a,b,c,为macd缩短的开始【第一图】
//程式範例
原碼: SS:=SGN(MACD);
CKA:=SS<>ref(SS,1) or barpos=1;
CKZ:=SS<>refx(SS,1) or barpos=datacount;
高轉:=macd>0 and macd>ref(macd,1) and macd>refx(macd,1) or barpos=0;
低轉:=macd<0 and macd<ref(macd,1) and macd<refx(macd,1) or barpos=0;
WH:=C*0; WL:=WH;
for i=1 to datacount do begin
if CKA[i] then begin
H1:=0; L1:=0; H2:=0; L2:=0; H3:=0; L3:=0;
H1P:=0; L1P:=0; H2P:=0; L2P:=0; H3P:=0; L3P:=0;
end;
if 高轉[i] then begin
if MACD[i]>H1 then begin
H3:=H2; H3P:=H2P; H2:=H1; H2P:=H1P; H1:=MACD[i]; H1P:=i;
end else if MACD[i]>H2 then begin
H3:=H2; H3P:=H2P; H2:=MACD[i]; H2P:=i;
end else if MACD[i]>H3 then begin
H3:=MACD[i]; H3P:=i;
end;
end else if 低轉[i] then begin
if MACD[i]<L1 then begin
L3:=L2; L3P:=L2P; L2:=L1; L2P:=L1P; L1:=MACD[i]; L1P:=i;
end else if MACD[i]<L2 then begin
L3:=L2; L3P:=L2P; L2:=MACD[i]; L2P:=i;
end else if MACD[i]<L3 then begin
L3:=MACD[i]; L3P:=i;
end;
end;
if CKZ[i] then begin
if MACD[i]>0 then begin
WH[H1P]:=1; WH[H2P]:=2; WH[H3P]:=3;
end else if MACD[i]<0 then begin
WL[L1P]:=1; WL[L2P]:=2; WL[L3P]:=3;
end;
end;
end;
DRAWTEXT(WH=1,0,'A') colorred pxdn10 ALIGN0;
DRAWTEXT(WH=2,0,'B') colorred pxdn10 ALIGN0;
DRAWTEXT(WH=3,0,'C') colorred pxdn10 ALIGN0;
DRAWTEXT(WL=1,0,'A') colorgreen pxup30 ALIGN0;
DRAWTEXT(WL=2,0,'B') colorgreen pxup30 ALIGN0;
DRAWTEXT(WL=3,0,'C') colorgreen pxup30 ALIGN0;
|
|
向版主報告此篇 |  |
|
2011-02-07 14:27 |
|
|
|  |
 |
lxfyyylrx
中級會員
註冊日期: Jun 2010
來 自:
文章數量: 46 |
|
回覆: 回覆: [求救]给版主和各位高手拜年,有一问题,请帮忙!谢#
引用: 最初由 cgjj 發表
//程式範例
原碼: SS:=SGN(MACD);
CKA:=SS<>ref(SS,1) or barpos=1;
CKZ:=SS<>refx(SS,1) or barpos=datacount;
高轉:=macd>0 and macd>ref(macd,1) and macd>refx(macd,1) or barpos=0;
低轉:=macd<0 and macd<ref(macd,1) and macd<refx(macd,1) or barpos=0;
WH:=C*0; WL:=WH;
for i=1 to datacount do begin
if CKA[i] then begin
H1:=0; L1:=0; H2:=0; L2:=0; H3:=0; L3:=0;
H1P:=0; L1P:=0; H2P:=0; L2P:=0; H3P:=0; L3P:=0;
end;
if 高轉[i] then begin
if MACD[i]>H1 then begin
H3:=H2; H3P:=H2P; H2:=H1; H2P:=H1P; H1:=MACD[i]; H1P:=i;
end else if MACD[i]>H2 then begin
H3:=H2; H3P:=H2P; H2:=MACD[i]; H2P:=i;
end else if MACD[i]>H3 then begin
H3:=MACD[i]; H3P:=i;
end;
end else if 低轉[i] then begin
if MACD[i]<L1 then begin
L3:=L2; L3P:=L2P; L2:=L1; L2P:=L1P; L1:=MACD[i]; L1P:=i;
end else if MACD[i]<L2 then begin
L3:=L2; L3P:=L2P; L2:=MACD[i]; L2P:=i;
end else if MACD[i]<L3 then begin
L3:=MACD[i]; L3P:=i;
end;
end;
if CKZ[i] then begin
if MACD[i]>0 then begin
WH[H1P]:=1; WH[H2P]:=2; WH[H3P]:=3;
end else if MACD[i]<0 then begin
WL[L1P]:=1; WL[L2P]:=2; WL[L3P]:=3;
end;
end;
end;
DRAWTEXT(WH=1,0,'A') colorred pxdn10 ALIGN0;
DRAWTEXT(WH=2,0,'B') colorred pxdn10 ALIGN0;
DRAWTEXT(WH=3,0,'C') colorred pxdn10 ALIGN0;
DRAWTEXT(WL=1,0,'A') colorgreen pxup30 ALIGN0;
DRAWTEXT(WL=2,0,'B') colorgreen pxup30 ALIGN0;
DRAWTEXT(WL=3,0,'C') colorgreen pxup30 ALIGN0;
谢谢版主帮忙,另外怎样求出MACD,A.B.C三点的具体数值。谢谢!
|
|
向版主報告此篇 |  |
|
2011-02-08 13:53 |
|
|
|  |
 |
lxfyyylrx
中級會員
註冊日期: Jun 2010
來 自:
文章數量: 46 |
|
回覆: 回覆: 回覆: 回覆: [求救]给版主和各位高手拜年,有一问题,请帮忙!
引用: 最初由 cgjj 發表
用 ref 搭配 barslast(條件) 就可向前取值了
再次感谢版主帮助,谢谢!!!!!!
|
|
向版主報告此篇 |  |
|
2011-02-09 03:58 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|