标题: [飞狐] 真正的黄金分割(转)
狐狸
☆大学生
Rank: 4



UID 250
精华 0
积分 3014
帖子 335
经验 543
金钱 943
贡献 154
阅读权限 50
注册 2007-11-24
状态 离线
发表于 2008-2-4 19:42  资料  个人空间  短消息  加为好友 
真正的黄金分割(转)

主图:(飞狐)

input:n(30,1,1000);
HH:HHV(H,N);
LL:LLV(L,N);

<%

VH=FFL.VARDATA("HH")

VL=FFL.VARDATA("LL")

VN=FFL.VARDATA("N")

LAST=UBOUND(VH)

IF VN>LAST THEN VN=LAST+1

FOR I=LAST TO LAST-VN+1 STEP-1

    VH(I)=VH(LAST)

    VL(I)=VL(LAST)

NEXT

FFL.VARDATA("HH")=VH

FFL.VARDATA("LL")=VL

FFL.VARSTARTINDEX("HH")=LAST-VN+1

FFL.VARSTARTINDEX("LL")=LAST-VN+1

%>

HH,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,HH,'【黄金分割】↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH,HH,2),align2,coloryellow;
LL+((HH-LL)*0.809),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL+((HH-LL)*0.809),' 0.809↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.809),LL+((HH-LL)*0.809),2),align2,coloryellow;
LL+((HH-LL)*0.764),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL+((HH-LL)*0.764),' 0.764↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.764),LL+((HH-LL)*0.764),2),align2,coloryellow;
LL+((HH-LL)*0.618),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL+((HH-LL)*0.618),' 0.618↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.618),LL+((HH-LL)*0.618),2),align2,coloryellow;
LL+((HH-LL)*0.500),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL+((HH-LL)*0.500),' 0.500↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.500),LL+((HH-LL)*0.500),2),align2,coloryellow;
LL+((HH-LL)*0.382),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL+((HH-LL)*0.382),' 0.382↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.382),LL+((HH-LL)*0.382),2),align2,coloryellow;
LL+((HH-LL)*0.333),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL+((HH-LL)*0.333),' 0.333↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.333),LL+((HH-LL)*0.333),2),align2,coloryellow;
LL+((HH-LL)*0.236),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL+((HH-LL)*0.236),' 0.236↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.236),LL+((HH-LL)*0.236),2),align2,coloryellow;
LL+((HH-LL)*0.191),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL+((HH-LL)*0.191),' 0.191↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.191),LL+((HH-LL)*0.191),2),align2,coloryellow;
LL,coloryellow;
DRAWTEXT(c>0  and ISLASTBAR=1,LL,'〖底部起点〗↑'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL,LL,2),align2,coloryellow;



 附件: 您所在的用户组无法下载或查看附件
顶部
满车春
版主
Rank: 7Rank: 7Rank: 7


UID 1729
精华 2
积分 4723
帖子 537
经验 365
金钱 1653
贡献 100
阅读权限 150
注册 2007-12-4
状态 离线
发表于 2008-2-4 21:42  资料  个人空间  短消息  加为好友 
技术看盘有帮助,谢谢,顶一个。





顶部
一壶新茶
☆高中生
Rank: 3Rank: 3



UID 703
精华 0
积分 1271
帖子 243
经验 64
金钱 551
贡献 14
阅读权限 30
注册 2007-11-27
来自 重庆市
状态 离线
发表于 2008-2-4 22:35  资料  个人空间  短消息  加为好友 
有没有L-2或通达信版的?谢谢!!

顶部
吉祥如意
☆高中生
Rank: 3Rank: 3


UID 2245
精华 0
积分 1168
帖子 179
经验 38
金钱 420
贡献 13
阅读权限 30
注册 2007-12-7
状态 离线
发表于 2008-2-4 23:12  资料  个人空间  短消息  加为好友 
装试了一下,大智慧和通达信都显示有错误,

顶部
meifeisewu
☆初中生
Rank: 2



UID 1978
精华 0
积分 532
帖子 85
经验 20
金钱 216
贡献 1
阅读权限 20
注册 2007-12-7
状态 离线
发表于 2008-2-12 10:18  资料  个人空间  短消息  加为好友 
我 的不行啊 真郁闷

顶部
 



当前时区 GMT+8, 现在时间是 2008-7-7 05:58

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.5.0  © 2001-2007
Processed in 0.105690 second(s), 6 queries
清除 Cookies - 联系我们 - 散户之家 - Archiver - WAP -