分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
楚河汉界 - 改编
  • 软件大小:10.0 KB
  • 推荐星级:
  • 更新时间:2009-03-16 13:35:31
  • 软件类别: 国产软件 / 飞狐公式
  • 软件语言:简体中文
  • 授权方式: 解密版
  • 联系方式:暂无联系方式
  • 官方主页: Home Page
  • 点击大图:  【一键转帖到论坛】
  • 插件情况:
  • 运行环境:Win9X/2000/XP/2003/
  • 相关Tags:指标公式 股票软件,公式源码
  • (0)0%
    (1)100%

软件介绍

改编的[楚河汉界]。

{楚河漢界引用公式}
{公称名称: CHUS}

AAA:=1;TT:=1;
RC:=(REF(CLOSE,1) * AAA);
XA:=IF((RC > HIGH),RC,0);
XB:=IF(((HIGH >= RC) AND (RC > LOW)),HIGH,0);
XC:=IF((RC <= LOW),HIGH,0);
XD:=((XA + XB) + XC);
YA:=IF((RC > HIGH),LOW,0);
YB:=IF(((HIGH >= RC) AND (RC > LOW)),LOW,0);
YC:=IF((RC <= LOW),RC,0);
YD:=((YA + YB) + YC);
ATR:=SMA((XD - YD),20,1);
TT1: (EMA(CLOSE,20) + (2 * ATR)),LINETHICK0;
TT2: (EMA(CLOSE,20) - (2 * ATR)),LINETHICK0;
TT3: ((((TT1 + TT1) + TT1) + TT2) / 4),LINETHICK0;
TT4: ((((TT1 + TT2) + TT2) + TT2) / 4),LINETHICK0;
TT5: EMA(CLOSE,8),LINETHICK0;
TT6: EMA(CLOSE,20),LINETHICK0;


{西楚霸王}
DRAWGBK(1,colorrgb(0,0,100),colorrgb(0,0,0),1);
TT:=1;
CHECK:=0;
CHECK1:=0;
AAA:=IF((((CHECK = 0) OR (CHECK1 = 0)) AND (TT = 1)),1,0);
TD:=DATATYPE;
TT5:=(IF((TD = 1),"CHUS.TT1#min5",IF((TD = 2),"CHUS.TT1#min15",IF((TD = 3),"CHUS.TT1#min60",IF((TD = 4),"CHUS.TT1#min60",IF((TD = 5),"CHUS.TT1#day",IF((TD = 6),"CHUS.TT1#week","CHUS.TT1#year")))))) * TT);
TT6:=(IF((TD = 1),"CHUS.TT2#min5",IF((TD = 2),"CHUS.TT2#min15",IF((TD = 3),"CHUS.TT2#min60",IF((TD = 4),"CHUS.TT2#min60",IF((TD = 5),"CHUS.TT2#day",IF((TD = 6),"CHUS.TT2#week","CHUS.TT2#year")))))) * TT);
A3:=(IF((TD = 1),"CHUS.TT3#min5",IF((TD = 2),"CHUS.TT3#min15",IF((TD = 3),"CHUS.TT3#min60",IF((TD = 4),"CHUS.TT3#min60",IF((TD = 5),"CHUS.TT3#day",IF((TD = 6),"CHUS.TT3#week","CHUS.TT3#year")))))) * TT);
A4:=(IF((TD = 1),"CHUS.TT4#min5",IF((TD = 2),"CHUS.TT4#min15",IF((TD = 3),"CHUS.TT4#min60",IF((TD = 4),"CHUS.TT4#min60",IF((TD = 5),"CHUS.TT4#day",IF((TD = 6),"CHUS.TT4#week","CHUS.TT4#year")))))) * TT);
XC:=(IF((TD = 1),"CHUS.TT5#min5",IF((TD = 2),"CHUS.TT5#min15",IF((TD = 3),"CHUS.TT5#min60",IF((TD = 4),"CHUS.TT5#min60",IF((TD = 5),"CHUS.TT5#day",IF((TD = 6),"CHUS.TT5#week","CHUS.TT5#year")))))) * TT);
XD:=(IF((TD = 1),"CHUS.TT6#min5",IF((TD = 2),"CHUS.TT6#min15",IF((TD = 3),"CHUS.TT6#min60",IF((TD = 4),"CHUS.TT6#min60",IF((TD = 5),"CHUS.TT6#day",IF((TD = 6),"CHUS.TT6#week","CHUS.TT6#year")))))) * TT);
FILLRGN(((XC >= XD) AND (AAA = 1)),EMA(TT5,4),EMA(TT6,4)),color9933cc;
FILLRGN(((XC < XD) AND (AAA = 1)),EMA(TT5,4),EMA(TT6,4)),colorFccF00;
FILLRGN(((EMA(CLOSE,8) >= EMA(CLOSE,20)) AND (AAA = 1)),EMA(A3,4),EMA(A4,4)),colorFF99CC;
FILLRGN(((EMA(CLOSE,8) < EMA(CLOSE,20)) AND (AAA = 1)),EMA(A3,4),EMA(A4,4)),colorccFF66;
FO:=IF(CHECKUSER(1),OPEN,0);
FH:=IF(CHECKUSER(1),HIGH,0);
FL:=IF(CHECKUSER(1),LOW,0);
FC:=IF(CHECKUSER(1),CLOSE,0);
<%

vo=ffl.vardata("fo")
vh=ffl.vardata("fh")
vl=ffl.vardata("fl")
vc=ffl.vardata("fc")
last=ubound(vc)

vc(0)=(vh(0)+vl(0)+2*vc(0))/4
for i=1 to last
  vo(i)=(vo(i-1)+vc(i-1))/2
  if vo(i)>vh(i) then vh(i)=vo(i) else vh(i)=vh(i)
  if vo(i)<vl(i) then vl(i)=vo(i) else vl(i)=vl(i)
  vc(i)=(2*vc(i)+vh(i)+vl(i))/4
next

ffl.vardata("fo")=vo
ffl.vardata("fh")=vh
ffl.vardata("fl")=vl
ffl.vardata("fc")=vc


%>
KK:=IF(((FC >= FO) AND ((FC >= REF(FC,1)) OR (REF(FC,1) >= REF(FO,1)))),1,IF(((FC < FO) AND ((FC < REF(FO,1)) OR (REF(FC,1) < REF(FO,1)))),(0 - 1),0));
明日轉折:(ROUND(((FO + FC) / 2)) * AAA),SHIFT1,LINETHICK0,color0000FF;
今日轉折:=ROUND(IF((KK = 1),MIN(FC,FO),IF((KK = (0 - 1)),MAX(FC,FO),IF((REF(KK,1) = 1),MIN(FC,FO),IF((REF(KK,1) = (0 - 1)),MAX(FC,FO),((FC + FO) / 2))))));
DRAWNUMBER((ISLASTBAR AND (AAA = 1)),明日轉折,ROUND(明日轉折),2),SHIFT1,COLORRED;
STICKLINE((((FC > FO) AND (TT = 1)) AND (AAA = 1)),FH,FL,0.4,0),colorFF;
STICKLINE((((FO > FC) AND (TT = 1)) AND (AAA = 1)),FH,FL,0.4,0),colorFF0000;
STICKLINE(((((KK = 1) AND (FC >= FO)) AND (TT = 1)) AND (AAA = 1)),FO,FC,8,0),colorFF;
STICKLINE(((((KK = 1) AND (FC < FO)) AND (TT = 1)) AND (AAA = 1)),FO,FC,8,0),colorFF;
STICKLINE(((((KK = (0 - 1)) AND (FC >= FO)) AND (TT = 1)) AND (AAA = 1)),FO,FC,8,0),colorFF0000;
STICKLINE(((((KK = (0 - 1)) AND (FC < FO)) AND (TT = 1)) AND (AAA = 1)),FO,FC,8,0),colorFF0000;
STICKLINE(((((KK = 0) AND (FC >= FO)) AND (TT = 1)) AND (AAA = 1)),FO,FC,8,0),colorFF;
STICKLINE(((((KK = 0) AND (FC < FO)) AND (TT = 1)) AND (AAA = 1)),FO,FC,8,0),colorFF;
CC:=(CLOSE * TT);
DIFF:=(EMA(CC,26) - EMA(CC,52));
DEA:=EMA(DIFF,52);
MACD:=(2 * (DIFF - DEA));
DIF:=(EMA(CC,26) - EMA(CC,52));
ESS:=EMA(CC,26);
EGG:=EMA(CC,52);
RDIF:=REF(DIF,1);
RSS:=REF(ESS,1);
RGG:=REF(EGG,1);
RDEA:=REF(DEA,1);
RMACD:=REF(MACD,1);
RZZZ:=(RDEA + (((52 + 1) / (2 * (52 - 1))) * RMACD));
XDIF:=((((((52 - 1) * (26 + 1)) * RGG) - (((52 + 1) * (26 - 1)) * RSS)) + (((26 + 1) * (52 + 1)) * RDIF)) / ((2 * 52) - (2 * 26)));
XDEA:=((((((52 - 1) * (26 + 1)) * RGG) - (((52 + 1) * (26 - 1)) * RSS)) + (((26 + 1) * (52 + 1)) * RDEA)) / ((2 * 52) - (2 * 26)));
XMACD:=((((((52 - 1) * (26 + 1)) * RGG) - (((52 + 1) * (26 - 1)) * RSS)) + (((26 + 1) * (52 + 1)) * RZZZ)) / ((2 * 52) - (2 * 26)));
AA:=ISLASTBAR;
BB:=BACKSET((AA = 1),1);
Y:=BARSLAST((BB = 1));
X:=1;
TDIF:=(DIF * X);
TSS:=(ESS * X);
TGG:=(EGG * X);
TDEA:=(DEA * X);
TMACD:=(MACD * X);
TZZZ:=(TDEA + (((52 + 1) / (2 * (52 - 1))) * TMACD));
西楚霸王:(((((((((52 - 1) * (26 + 1)) * TGG) * AAA) - ((((52 + 1) * (26 - 1)) * TSS) * AAA)) + (((26 + 1) * (52 + 1)) * TDIF)) * AAA) / ((2 * 52) - (2 * 26))) * AAA);
PARTLINE(((西楚霸王 >= REF(西楚霸王,1)) AND (AAA = 1)),西楚霸王),LINETHICK3,colorFF;
PARTLINE(((西楚霸王 < REF(西楚霸王,1)) AND (AAA = 1)),西楚霸王),LINETHICK3,colorFF00;

Q5:=MA(EMA(TT6,4),4);
Q6:=MA(EMA(A3,4),4);
Q7:=MA(EMA(A4,4),4);
Q8:=MA(EMA(TT5,4),4);
STICKLINE(CROSS(BACKSET(ISLASTBAR,10),1) AND AAA=1,EMA(EMA(TT6,4),4),EMA(EMA(TT6,4),4),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,9),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),1),REF(EMA(EMA(TT6,4),4),1),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,8),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),2),REF(EMA(EMA(TT6,4),4),2),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,7),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),3),REF(EMA(EMA(TT6,4),4),3),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,6),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),4),REF(EMA(EMA(TT6,4),4),4),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,5),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),5),REF(EMA(EMA(TT6,4),4),5),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,4),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),6),REF(EMA(EMA(TT6,4),4),6),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,3),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),7),REF(EMA(EMA(TT6,4),4),7),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,2),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),8),REF(EMA(EMA(TT6,4),4),8),10,0),LINETHICK3,color80;
STICKLINE(CROSS(BACKSET(ISLASTBAR,1),1) AND AAA=1,REF(EMA(EMA(TT6,4),4),9),REF(EMA(EMA(TT6,4),4),9),10,0),L

软件评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

说明

* 使用方法:点击上面蓝色块,打开新页面按照提示进行

* 本网站提供的各种股票软件,例如大智慧软件,通达信软件,同花顺软件,东方财富通等等,和各种股票公式指标,例如大智慧公式,通达信公式,同花顺公式,文华公式,博易大师公式,股票价格计算公式等等公式指标等,都来源网上公开来源收集

本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!

* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。

* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程

* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明:本站所有股票公式软件资料均网上公开收集,如侵权请联系删帖。站内所有广告,均与本站无关!
Copyright © 2003-2022 fxjgsw.Com. All Rights Reserved .
页面执行时间:18,594.24000 毫秒