 |
et169191
資深會員
註冊日期: Sep 2007
來 自: 台南縣
文章數量: 173 |
|
請叫各位大大
請叫各位大大以下那兒有錯為何不能使用.謝謝
{中期轉向}
Srz1:=HHV(H,13);
Srz2:=LLV(L,13);
kc:=c;
kh:=h;
kl:=l;
E1:=0*C;
for i=1 to datacount do
IF kh[i]>Srz1[i-1] and kc[i]>kc[i-1] Then E1[i]:=Srz2[i];
ELSE IF kl[i]<Srz2[i-1] and kc[i]<kc[i-1] Then E1[i]:=Srz1[i];
ELSE E1[i]:=E1[i-1];
中期:E1;
{短期轉向}
AHh:=HHV(H,13);
AL1:=LLV(L,5);
XC:=C;
XH:=H;
XL:=L;
EF:=0*C;
FOR i=1 TO DATACOUNT DO
IF XH[i]>AHh[i-1] AND XC[i]>XC[i-1]THEN EF[i]:=AL1[i];
ELSE IF XL[i]<AL1[i-1] AND XC[i]<XC[i-1] THEN EF[i]:=AHh[i];
ELSE EF[i]:=EF[i-1];
短期:EF;
{超短趨勢}
AC:=C;
AH:=WMA(H,13);
AL:=WMA(L,5);
B:=C*0;
FOR I=13+1 TO DATACOUNT DO BEGIN
IF AC[I]>AH[I-1] THEN B[I]:=1 ELSE
IF AC[I]<AL[I-1] THEN B[I]:=-1 ELSE
B[I]:=B[I-1];
END;
超短:IF(B=-1,MA(H,13),MA(L,5));
{K線}
aa1:=wma(c,2);
bb1:=ema(aa1,2);
a0:=ma(bb1,3);
aa2:=wma((h+c+o)/3,18);
dd3:=a0>=aa2 and c>aa2;
dd4:=a0<aa2 ;
dd5:=a0>aa2 ;
cc1:=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;
cc2:=cross(c,cc1) and cc1>ref(cc1,1);
{邊緣極限}
Sx1:=ema(cost(99.93),5);
Sx2:=llv(Sx1,89);
Xx1:=ema(cost(0.01),5);
Xx2:=llv(Xx1,89);
//CYC1:= "CYC@CYC5";
//CYC13: "CYC@CYC13",colormagenta;
//CYC34: "CYC@CYC34",COLORFF8800;
CYC∞:= "CYC@CYCMAX";
{公稱名稱: 生命線}
生命線:"生命線@a"(1),PRECISION2,SHIFT12,COLORYELLOW;
{K線}
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;
STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;
STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;
STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;
STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;
STICKLINE(cc2,h,l,0.5,0),colorwhite;
STICKLINE(cc2,o,c,7,0),colorwhite;
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.5,0),coloryellow;
__________________
小和
|
|
向版主報告此篇 |  |
|
2009-08-27 07:43 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18166 |
|
回覆: 請叫各位大大
引用:
最初由 et169191 發表
請叫各位大大以下那兒有錯為何不能使用.謝謝
{中期轉向}
Srz1:=HHV(H,13);
Srz2:=LLV(L,13);
kc:=c;
kh:=h;
kl:=l;
E1:=0*C;
for i=1 to datacount do
IF kh[i]>Srz1[i-1] and kc[i]>kc[i-1] Then E1[i]:=Srz2[i];
ELSE IF kl[i]<Srz2[i-1] and kc[i]<kc[i-1] Then E1[i]:=Srz1[i];
ELSE E1[i]:=E1[i-1];
中期:E1;
{短期轉向}
AHh:=HHV(H,13);
AL1:=LLV(L,5);
XC:=C;
XH:=H;
XL:=L;
EF:=0*C;
FOR i=1 TO DATACOUNT DO
IF XH[i]>AHh[i-1] AND XC[i]>XC[i-1]THEN EF[i]:=AL1[i];
ELSE IF XL[i]<AL1[i-1] AND XC[i]<XC[i-1] THEN EF[i]:=AHh[i];
ELSE EF[i]:=EF[i-1];
短期:EF;
{超短趨勢}
AC:=C;
AH:=WMA(H,13);
AL:=WMA(L,5);
B:=C*0;
FOR I=13+1 TO DATACOUNT DO BEGIN
IF AC[I]>AH[I-1] THEN B[I]:=1 ELSE
IF AC[I]<AL[I-1] THEN B[I]:=-1 ELSE
B[I]:=B[I-1];
END;
超短:IF(B=-1,MA(H,13),MA(L,5));
{K線}
aa1:=wma(c,2);
bb1:=ema(aa1,2);
a0:=ma(bb1,3);
aa2:=wma((h+c+o)/3,18);
dd3:=a0>=aa2 and c>aa2;
dd4:=a0<aa2 ;
dd5:=a0>aa2 ;
cc1:=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;
cc2:=cross(c,cc1) and cc1>ref(cc1,1);
{邊緣極限}
Sx1:=ema(cost(99.93),5);
Sx2:=llv(Sx1,89);
Xx1:=ema(cost(0.01),5);
Xx2:=llv(Xx1,89);
//CYC1:= "CYC@CYC5";
//CYC13: "CYC@CYC13",colormagenta;
//CYC34: "CYC@CYC34",COLORFF8800;
CYC∞:= "CYC@CYCMAX";
{公稱名稱: 生命線}
生命線:"生命線@a"(1),PRECISION2,SHIFT12,COLORYELLOW;
{K線}
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;
STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;
STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;
STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;
STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;
STICKLINE(cc2,h,l,0.5,0),colorwhite;
STICKLINE(cc2,o,c,7,0),colorwhite;
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.5,0),coloryellow;
這看起來應沒有問題(它需要DLL檔)
不能用
應該去問發表此公式的人或原作者
|
|
向版主報告此篇 | |
|
|
2009-08-27 10:01 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
