 |
ifuian
資深會員

註冊日期: May 2004
來 自: 台灣
文章數量: 557 |
|
傳說中的-倚天劍
這是網友提供給我的.有加密.
試用期限至2004.11.30止.手腳要快喔.
附件: 倚天劍.alg
此文件已被下載 517 次。
__________________
人外有人 天外有天 不懼不貪 亦富亦安
|
|
向版主報告此篇 |  |
|
2004-10-12 15:17 |
|
|
|  |
 |
ifuian
資深會員

註冊日期: May 2004
來 自: 台灣
文章數量: 557 |
|
傳說中的-倚天劍
這是網友提供給我的.有加密.
試用期限至2004.11.30止.手腳要快喔.
ifuian 附帶上了此圖片:
__________________
人外有人 天外有天 不懼不貪 亦富亦安
|
|
向版主報告此篇 |  |
|
2004-10-12 15:18 |
|
|
|  |
 |
godhorse
JOHN
註冊日期: Jan 2004
來 自:
文章數量: 27 |
|
我這邊好像有原碼,無時間限制
提供大家參考,讓有需要的研究一下!!
=======================================
p:EMA(CLOSE,7)Color00FF00;
E21:EMA(CLOSE,21)Color008000;
E38:EMA(CLOSE,38)ColorFFFFFF;
E55:EMA(CLOSE,55)ColorFFFF00;
E89:EMA(CLOSE,89)Color0000FF;
E157:EMA(CLOSE,157)ColorFF00FF;
MA241:MA(CLOSE,241)ColorFF0000;
A:=(REF(p,1));
STICKLINE((p>A),A,p,6,0),Color00FF00;
STICKLINE((p<=A),A,p,6,0),Color0000FF;
VARA:=IF((CLOSE>150),91.3,0.91299998);
箱下沿:(INTPART((CLOSE)/(VARA)))*(VARA),ColorF0F000,POINTDOT;
箱上沿:箱下沿+VARA,Color00FFFF,POINTDOT;
箱中沿:(箱下沿+箱上沿)/(2),ColorFFFFFF,POINTDOT;
VAR31:=(HHVBARS((ZIG(1,19)>REF(ZIG(1,19),1)) AND (REF(ZIG(1,19),1)<REF(ZIG(1,19),3)),0));
LC:=(REF(CLOSE,1));
動力:=(((SUM(IF((CLOSE>LC),VOL,0),26))/(SUM(IF((CLOSE<=LC),VOL,0),26)))*(100));
WVAD10:=(MA(((CLOSE-OPEN)/(HIGH-LOW))*(VOL),10))/(1000)+(50);
神奇數字:=(0)ColorFFFFFF;
DRAWTEXT((VAR31=20),(LOW)*(0.99000001),'↑21'),Color00FFFF;
DRAWTEXT((VAR31=33),(HIGH)*(1.04),'↓34'),Color00FFFF;
DRAWTEXT((VAR31=54),(LOW)*(0.99000001),'↑55'),Color00FFFF;
DRAWTEXT((VAR31=88),(HIGH)*(1.05),'↓89'),Color00FFFF;
DRAWTEXT((VAR31=143),(LOW)*(0.99000001),'↑144'),Color00FFFF;
DRAWTEXT((VAR31=232),(HIGH)*(1.05),'↓233'),Color00FFFF;
DRAWTEXT((VAR31=376),(LOW)*(0.99000001),'↑377'),Color00FFFF;
M9:=(MA(CLOSE,9));
Y:=((HIGH+LOW)/(2));
AO:=MA(Y,5)-(MA(Y,34));
DU0:=(CROSS(AO,0));
UD0:=(CROSS(0,AO));
TDU0:=(BARSLAST(DU0));
TUD0:=(BARSLAST(UD0));
DU3:=(REF(DU0,1));
UD3:=(REF(UD0,1));
TDU3:=(BARSLAST(DU3));
TUD3:=(BARSLAST(UD3));
UDGLINE:=(IF((TDU3<TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3)));
JDU0:=(REF(CLOSE,1)<=REF(UDGLINE,1)) AND (CLOSE>UDGLINE) AND (TDU0<(TUD0));
JUD0:=(REF(CLOSE,1)>=REF(UDGLINE,1)) AND (CLOSE<UDGLINE) AND (TUD0<(TDU0));
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=(1);
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=(1);
JDU2:=JDU1 AND (REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1));
JUD2:=JUD1 AND (REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1));
JDU3:=JDU1 AND (REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1));
JUD3:=JUD1 AND (REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1));
DRAWTEXT(JDU2,(M9)*(0.94999998),'▲買▲'),Color;
VAR1:=(((CLOSE-MA(CLOSE,30))/(MA(CLOSE,30)))*(100));
VAR2:=(CLOSE>OPEN) AND OPEN-LOW>HIGH-(CLOSE);
VAR3:=(REF(VAR1,1)<(-20)) AND (VAR2);
VAR4:=(REF(VAR1,1)<(-20)) AND (CLOSE>OPEN) AND (((CLOSE-REF(CLOSE,1))/(REF(CLOSE,1)))*(1000)>20);
VAR5:=(FILTER((VAR3 or VAR4),3));
VAR6:=(OPEN>CLOSE) AND (HIGH-IF((CLOSE>OPEN),CLOSE,OPEN)>IF((OPEN<CLOSE),OPEN,CLOSE)-(LOW));
VAR7:=(REF(VAR1,1)>ABS((-20))) AND (VAR6);
VAR8:=(REF(VAR1,1)>ABS((-20))) AND (CLOSE<OPEN) AND (((REF(CLOSE,1)-CLOSE)/(REF(CLOSE,1)))*(1000)>20);
VAR9:=(FILTER((VAR7 or VAR8),3));
VAARA:=(REF(VAR1,1)<(-13)) AND (VAR2);
VARB:=(REF(VAR1,1)<(-13)) AND (CLOSE>OPEN) AND (((CLOSE-REF(CLOSE,1))/(REF(CLOSE,1)))*(1000)>20);
VARC:=(FILTER((VAARA or VARB),3));
VARD:=(REF(VAR1,1)>ABS((-13))) AND (VAR6);
VARE:=(REF(VAR1,1)>ABS((-13))) AND (CLOSE<OPEN) AND (((REF(CLOSE,1)-CLOSE)/(REF(CLOSE,1)))*(1000)>(20));
VARF:=(FILTER((VARD or VARE),3));
DRAWTEXT(((VARF)*(VAR1)>0),(1)*(REF(CLOSE,1)),'▼賣▼'),Color
godhorse 附帶上了此圖片:
__________________
JOHN
|
| 最後由 godhorse 在 2004-10-12 16:57 編輯 |
向版主報告此篇 |  |
|
2004-10-12 16:44 |
|
|
|  |
 |
ifuian
資深會員

註冊日期: May 2004
來 自: 台灣
文章數量: 557 |
|
因為這指標是網友提供.本人無權公布原碼.
感謝godhouse兄提供原碼...................
__________________
人外有人 天外有天 不懼不貪 亦富亦安
|
|
向版主報告此篇 |  |
|
2004-10-12 16:53 |
|
|
|  |
 |
mikeshih85
初級會員
註冊日期: Oct 2004
來 自: tai
文章數量: 10 |
|
倚天劍
原碼與倚天劍.alg好像不太一樣,要如何改才能一樣
|
|
向版主報告此篇 |  |
|
2004-10-19 11:16 |
|
|
|  |
 |
ifuian
資深會員

註冊日期: May 2004
來 自: 台灣
文章數量: 557 |
|
這是我修改過的.可參考網友的原碼
__________________
人外有人 天外有天 不懼不貪 亦富亦安
|
|
向版主報告此篇 |  |
|
2004-10-19 12:36 |
|
|
|  |
 |
hy911
初級會員
註冊日期: Jan 2007
來 自:
文章數量: 23 |
|
引用: 最初由 godhorse 發表
我這邊好像有原碼,無時間限制
提供大家參考,讓有需要的研究一下!!
=======================================
p:EMA(CLOSE,7)Color00FF00;
E21:EMA(CLOSE,21)Color008000;
E38:EMA(CLOSE,38)ColorFFFFFF;
E55:EMA(CLOSE,55)ColorFFFF00;
E89:EMA(CLOSE,89)Color0000FF;
E157:EMA(CLOSE,157)ColorFF00FF;
MA241:MA(CLOSE,241)ColorFF0000;
A:=(REF(p,1));
STICKLINE((p>A),A,p,6,0),Color00FF00;
STICKLINE((p<=A),A,p,6,0),Color0000FF;
VARA:=IF((CLOSE>150),91.3,0.91299998);
箱下沿:(INTPART((CLOSE)/(VARA)))*(VARA),ColorF0F000,POINTDOT;
箱上沿:箱下沿+VARA,Color00FFFF,POINTDOT;
箱中沿:(箱下沿+箱上沿)/(2),ColorFFFFFF,POINTDOT;
VAR31:=(HHVBARS((ZIG(1,19)>REF(ZIG(1,19),1)) AND (REF(ZIG(1,19),1)<REF(ZIG(1,19),3)),0));
LC:=(REF(CLOSE,1));
動力:=(((SUM(IF((CLOSE>LC),VOL,0),26))/(SUM(IF((CLOSE<=LC),VOL,0),26)))*(100));
WVAD10:=(MA(((CLOSE-OPEN)/(HIGH-LOW))*(VOL),10))/(1000)+(50);
神奇數字:=(0)ColorFFFFFF;
DRAWTEXT((VAR31=20),(LOW)*(0.99000001),'↑21'),Color00FFFF;
DRAWTEXT((VAR31=33),(HIGH)*(1.04),'↓34'),Color00FFFF;
DRAWTEXT((VAR31=54),(LOW)*(0.99000001),'↑55'),Color00FFFF;
DRAWTEXT((VAR31=88),(HIGH)*(1.05),'↓89'),Color00FFFF;
DRAWTEXT((VAR31=143),(LOW)*(0.99000001),'↑144'),Color00FFFF;
DRAWTEXT((VAR31=232),(HIGH)*(1.05),'↓233'),Color00FFFF;
DRAWTEXT((VAR31=376),(LOW)*(0.99000001),'↑377'),Color00FFFF;
M9:=(MA(CLOSE,9));
Y:=((HIGH+LOW)/(2));
AO:=MA(Y,5)-(MA(Y,34));
DU0:=(CROSS(AO,0));
UD0:=(CROSS(0,AO));
TDU0:=(BARSLAST(DU0));
TUD0:=(BARSLAST(UD0));
DU3:=(REF(DU0,1));
UD3:=(REF(UD0,1));
TDU3:=(BARSLAST(DU3));
TUD3:=(BARSLAST(UD3));
UDGLINE:=(IF((TDU3<TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3)));
JDU0:=(REF(CLOSE,1)<=REF(UDGLINE,1)) AND (CLOSE>UDGLINE) AND (TDU0<(TUD0));
JUD0:=(REF(CLOSE,1)>=REF(UDGLINE,1)) AND (CLOSE<UDGLINE) AND (TUD0<(TDU0));
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=(1);
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=(1);
JDU2:=JDU1 AND (REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1));
JUD2:=JUD1 AND (REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1));
JDU3:=JDU1 AND (REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1));
JUD3:=JUD1 AND (REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1));
DRAWTEXT(JDU2,(M9)*(0.94999998),'▲買▲'),Color;
VAR1:=(((CLOSE-MA(CLOSE,30))/(MA(CLOSE,30)))*(100));
VAR2:=(CLOSE>OPEN) AND OPEN-LOW>HIGH-(CLOSE);
VAR3:=(REF(VAR1,1)<(-20)) AND (VAR2);
VAR4:=(REF(VAR1,1)<(-20)) AND (CLOSE>OPEN) AND (((CLOSE-REF(CLOSE,1))/(REF(CLOSE,1)))*(1000)>20);
VAR5:=(FILTER((VAR3 or VAR4),3));
VAR6:=(OPEN>CLOSE) AND (HIGH-IF((CLOSE>OPEN),CLOSE,OPEN)>IF((OPEN<CLOSE),OPEN,CLOSE)-(LOW));
VAR7:=(REF(VAR1,1)>ABS((-20))) AND (VAR6);
VAR8:=(REF(VAR1,1)>ABS((-20))) AND (CLOSE<OPEN) AND (((REF(CLOSE,1)-CLOSE)/(REF(CLOSE,1)))*(1000)>20);
VAR9:=(FILTER((VAR7 or VAR8),3));
VAARA:=(REF(VAR1,1)<(-13)) AND (VAR2);
VARB:=(REF(VAR1,1)<(-13)) AND (CLOSE>OPEN) AND (((CLOSE-REF(CLOSE,1))/(REF(CLOSE,1)))*(1000)>20);
VARC:=(FILTER((VAARA or VARB),3));
VARD:=(REF(VAR1,1)>ABS((-13))) AND (VAR6);
VARE:=(REF(VAR1,1)>ABS((-13))) AND (CLOSE<OPEN) AND (((REF(CLOSE,1)-CLOSE)/(REF(CLOSE,1)))*(1000)>(20));
VARF:=(FILTER((VARD or VARE),3));
DRAWTEXT(((VARF)*(VAR1)>0),(1)*(REF(CLOSE,1)),'▼賣▼'),Color
有未来函数,不用为好
|
|
向版主報告此篇 |  |
|
2007-01-28 17:30 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|