分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册
当前位置：分析家公式网 → 股票公式 → 飞狐公式 → 一键转帖：周期全息主图（源码 贴图 好欣赏飞狐版面）

软件名称：[B]周期全息主图（源码 贴图 好欣赏飞狐版面）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：9.00 KB
官方主页：Home Page
更新时间：2011-03-30 01:22:27
软件简介:

先建一个引用指标
{AAA引入}
Var1:=1/WINNER(CLOSE);
Var2:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
Var3:=100-ABS(Var2);
Var4:=3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var5:=3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var6:=100-Var5;
Var7:=100-Var4;
Var8:=MA(WINNER(CLOSE*0.95)*100,3);
Var9:=IF(Var1>5,IF(Var1<100,Var1,Var3-10),0);
VarA:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VarB:=SMA(VarA,3,1);
VarC:=SMA(VarB,3,1);
VarE:=(-1)*(EMA(Var7,12)-50)+50;
探索者:EMA(3*VarB-2*VarC,3),COLORWHITE;
ZS:MA(探索者,3),COLORRED;
ZM:MA(MA(探索者,3),3),COLORBROWN;





{周期全息主图}
aaat:=STKINDI('','aaa引入.探索者',0,0);
zst:=STKINDI('','aaa引入.zs',0,0);
aaa1:=STKINDI('','aaa引入.探索者',0,1);
zs1:=STKINDI('','aaa引入.zs',0,1);
aaa5:=STKINDI('','aaa引入.探索者',0,2);
zs5:=STKINDI('','aaa引入.zs',0,2);
aaa15:=STKINDI('','aaa引入.探索者',0,3);
zs15:=STKINDI('','aaa引入.zs',0,3);
aaa30:=STKINDI('','aaa引入.探索者',0,4);
zs30:=STKINDI('','aaa引入.zs',0,4);
aaa60:=STKINDI('','aaa引入.探索者',0,5);
zs60:=STKINDI('','aaa引入.zs',0,5);
aaah:=STKINDI('','aaa引入.探索者',0,11);
zsh:=STKINDI('','aaa引入.zs',0,11);
aaad:=STKINDI('','aaa引入.探索者',0,6);
zsd:=STKINDI('','aaa引入.zs',0,6);
aaaw:=STKINDI('','aaa引入.探索者',0,7);
zsw:=STKINDI('','aaa引入.zs',0,7);
aaam:=STKINDI('','aaa引入.探索者',0,8);
zsm:=STKINDI('','aaa引入.zs',0,8);
aaay:=STKINDI('','aaa引入.探索者',0,9);
zsy:=STKINDI('','aaa引入.zs',0,9);

CCT:=aaaT;
zdT:=CCT[SYSPARAM(3)];
CDT:=MAX(1,ABS(INTPART(10*zdt/100)));
HXT:='_________________________________________________________';
IF ZDT>=0 THEN BEGIN
DRAWTEXTEX(1,0,250,38,STRLEFT(HXt,CDt)),COLORCF;
DRAWTEXTEX(1,0,250,39,STRLEFT(HXt,CDt)),COLOREF;
DRAWTEXTEX(1,0,250,40,STRLEFT(HXt,CDt)),COLOR60FF;
DRAWTEXTEX(1,0,250,41,STRLEFT(HXt,CDt)),COLORA1FF;
DRAWTEXTEX(1,0,250,42,STRLEFT(HXt,CDt)),COLORCAFF;
DRAWTEXTEX(1,0,250,43,STRLEFT(HXt,CDt)),COLOR60FFFF;
DRAWTEXTEX(1,0,250,44,STRLEFT(HXt,CDt)),COLORD5FF;
DRAWTEXTEX(1,0,250,45,STRLEFT(HXt,CDt)),COLORC4FF;
DRAWTEXTEX(1,0,250,46,STRLEFT(HXt,CDt)),COLORA0FF;
DRAWTEXTEX(1,0,250,47,STRLEFT(HXt,CDt)),COLOR7FFF;
DRAWTEXTEX(1,0,250,48,STRLEFT(HXt,CDt)),COLOR50FF;
DRAWTEXTEX(1,0,250,49,STRLEFT(HXt,CDt)),COLOREF;
DRAWTEXTEX(1,0,250,50,STRLEFT(HXt,CDt)),COLORCF;
end;
ELSE BEGIN
DRAWTEXTEX(1,0,250,38,STRLEFT(HXt,CDt)),COLOR7E00;
DRAWTEXTEX(1,0,250,39,STRLEFT(HXt,CDt)),COLOR8E00;
DRAWTEXTEX(1,0,250,40,STRLEFT(HXt,CDt)),COLORAE00;
DRAWTEXTEX(1,0,250,41,STRLEFT(HXt,CDt)),COLORBE00;
DRAWTEXTEX(1,0,250,42,STRLEFT(HXt,CDt)),COLORCE00;
DRAWTEXTEX(1,0,250,43,STRLEFT(HXt,CDt)),COLORDE00;
DRAWTEXTEX(1,0,250,44,STRLEFT(HXt,CDt)),COLORFF60;
DRAWTEXTEX(1,0,250,45,STRLEFT(HXt,CDt)),COLORDE30;
DRAWTEXTEX(1,0,250,46,STRLEFT(HXt,CDt)),COLORCE00;
DRAWTEXTEX(1,0,250,47,STRLEFT(HXt,CDt)),COLORBE00;
DRAWTEXTEX(1,0,250,48,STRLEFT(HXt,CDt)),COLORAE00;
DRAWTEXTEX(1,0,250,49,STRLEFT(HXt,CDt)),COLOR9E00;
DRAWTEXTEX(1,0,250,50,STRLEFT(HXt,CDt)),COLOR8E00;
DRAWTEXTEX(1,0,250,51,STRLEFT(HXt,CDt)),COLOR7E00;
DRAWTEXTEX(1,0,250,52,STRLEFT(HXt,CDt)),COLOR7E00;
end;

CC1:=aaa1;
zd1:=CC1[SYSPARAM(3)];
CD1:=MAX(1,ABS(INTPART(10*zd1/100)));
HX1:='_________________________________________________________';
IF ZD1>=0 THEN BEGIN
DRAWTEXTEX(1,0,250,53,STRLEFT(HX1,CD1)),COLORCF;
DRAWTEXTEX(1,0,250,54,STRLEFT(HX1,CD1)),COLOREF;
DRAWTEXTEX(1,0,250,55,STRLEFT(HX1,CD1)),COLOR60FF;
DRAWTEXTEX(1,0,250,56,STRLEFT(HX1,CD1)),COLORA1FF;
DRAWTEXTEX(1,0,250,57,STRLEFT(HX1,CD1)),COLORCAFF;
DRAWTEXTEX(1,0,250,58,STRLEFT(HX1,CD1)),COLOR60FFFF;
DRAWTEXTEX(1,0,250,59,STRLEFT(HX1,CD1)),COLORD5FF;
DRAWTEXTEX(1,0,250,60,STRLEFT(HX1,CD1)),COLORC4FF;
DRAWTEXTEX(1,0,250,61,STRLEFT(HX1,CD1)),COLORA0FF;
DRAWTEXTEX(1,0,250,62,STRLEFT(HX1,CD1)),COLOR7FFF;
DRAWTEXTEX(1,0,250,63,STRLEFT(HX1,CD1)),COLOR50FF;
DRAWTEXTEX(1,0,250,64,STRLEFT(HX1,CD1)),COLOREF;
DRAWTEXTEX(1,0,250,65,STRLEFT(HX1,CD1)),COLORCF;
end;
ELSE BEGIN
DRAWTEXTEX(1,0,250,53,STRLEFT(HX1,CD1)),COLOR7E00;
DRAWTEXTEX(1,0,250,54,STRLEFT(HX1,CD1)),COLOR8E00;
DRAWTEXTEX(1,0,250,55,STRLEFT(HX1,CD1)),COLORAE00;
DRAWTEXTEX(1,0,250,56,STRLEFT(HX1,CD1)),COLORBE00;
DRAWTEXTEX(1,0,250,57,STRLEFT(HX1,CD1)),COLORCE00;
DRAWTEXTEX(1,0,250,58,STRLEFT(HX1,CD1)),COLORDE00;
DRAWTEXTEX(1,0,250,59,STRLEFT(HX1,CD1)),COLORFF60;
DRAWTEXTEX(1,0,250,60,STRLEFT(HX1,CD1)),COLORDE30;
DRAWTEXTEX(1,0,250,61,STRLEFT(HX1,CD1)),COLORCE00;
DRAWTEXTEX(1,0,250,62,STRLEFT(HX1,CD1)),COLORBE00;
DRAWTEXTEX(1,0,250,63,STRLEFT(HX1,CD1)),COLORAE00;
DRAWTEXTEX(1,0,250,64,STRLEFT(HX1,CD1)),COLOR9E00;
DRAWTEXTEX(1,0,250,65,STRLEFT(HX1,CD1)),COLOR8E00;
DRAWTEXTEX(1,0,250,66,STRLEFT(HX1,CD1)),COLOR7E00;
DRAWTEXTEX(1,0,250,67,STRLEFT(HX1,CD1)),COLOR7E00;
end;

CC5:=aaa5;
zd5:=CC5[SYSPARAM(3)];
CD5:=MAX(1,ABS(INTPART(10*zd5/100)));
HX5:='_________________________________________________________';
IF ZD5>=0 THEN BEGIN
DRAWTEXTEX(1,0,250,68,STRLEFT(HX5,CD5)),COLORCF;
DRAWTEXTEX(1,0,250,69,STRLEFT(HX5,CD5)),COLOREF;
DRAWTEXTEX(1,0,250,70,STRLEFT(HX5,CD5)),COLOR60FF;
DRAWTEXTEX(1,0,250,71,STRLEFT(HX5,CD5)),COLORA1FF;
DRAWTEXTEX(1,0,250,72,STRLEFT(HX5,CD5)),COLORCAFF;
DRAWTEXTEX(1,0,250,73,STRLEFT(HX5,CD5)),COLOR60FFFF;
DRAWTEXTEX(1,0,250,74,STRLEFT(HX5,CD5)),COLORD5FF;
DRAWTEXTEX(1,0,250,75,STRLEFT(HX5,CD5)),COLORC4FF;
DRAWTEXTEX(1,0,250,76,STRLEFT(HX5,CD5)),COLORA0FF;
DRAWTEXTEX(1,0,250,77,STRLEFT(HX5,CD5)),COLOR7FFF;
DRAWTEXTEX(1,0,250,78,STRLEFT(HX5,CD5)),COLOR50FF;
DRAWTEXTEX(1,0,250,79,STRLEFT(HX5,CD5)),COLOREF;
DRAWTEXTEX(1,0,250,80,STRLEFT(HX5,CD5)),COLORCF;
end;
ELSE BEGIN
DRAWTEXTEX(1,0,250,69,STRLEFT(HX5,CD5)),COLOR7E00;
DRAWTEXTEX(1,0,250,70,STRLEFT(HX5,CD5)),COLOR8E00;
DRAWTEXTEX(1,0,250,71,STRLEFT(HX5,CD5)),COLORAE00;
DRAWTEXTEX(1,0,250,72,STRLEFT(HX5,CD5)),COLORBE00;
DRAWTEXTEX(1,0,250,73,STRLEFT(HX5,CD5)),COLORCE00;
DRAWTEXTEX(1,0,250,74,STRLEFT(HX5,CD5)),COLORDE00;
DRAWTEXTEX(1,0,250,75,STRLEFT(HX5,CD5)),COLORFF60;
DRAWTEXTEX(1,0,250,76,STRLEFT(HX5,CD5)),COLORDE30;
DRAWTEXTEX(1,0,250,77,STRLEFT(HX5,CD5)),COLORCE00;
DRAWTEXTEX(1,0,250,78,STRLEFT(HX5,CD5)),COLORBE00;
DRAWTEXTEX(1,0,250,79,STRLEFT(HX5,CD5)),COLORAE00;
DRAWTEXTEX(1,0,250,80,STRLEFT(HX5,CD5)),COLOR9E00;
DRAWTEXTEX(1,0,250,81,STRLEFT(HX5,CD5)),COLOR8E00;
DRAWTEXTEX(1,0,250,82,STRLEFT(HX5,CD5)),COLOR7E00;
DRAWTEXTEX(1,0,250,83,STRLEFT(HX5,CD5)),COLOR7E00;
end;

CC15:=aaa15;
zd15:=CC15[SYSPARAM(3)];
CD15:=MAX(1,ABS(INTPART(10*zd15/100)));
HX15:='_________________________________________________________';
IF ZD15>=0 THEN BEGIN
DRAWTEXTEX(1,0,250,84,STRLEFT(HX15,CD15)),COLORCF;
DRAWTEXTEX(1,0,250,85,STRLEFT(HX15,CD15)),COLOREF;
DRAWTEXTEX(1,0,250,86,STRLEFT(HX15,CD15)),COLOR60FF;
DRAWTEXTEX(1,0,250,87,STRLEFT(HX15,CD15)),COLORA1FF;
DRAWTEXTEX(1,0,250,88,
[url=http://www.70822.com/soft/sort013/sort02/down-32165.html]周期全息主图（源码 贴图 好欣赏飞狐版面）[/url]

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