价值1万公式请改为大智慧L2
请高手改为大智慧2的公式 希望不要搞什么特效之类, 最重要是运行速度快 波神++点石成金 飞狐的 INPUT:最近天(20,1,360); 当前月:=FRACPART(ROUND(CURRENTDATE/100)/100)*100; 月:=MONTH;日:=DAY; VERTLINE(月=1 AND ( 日=25)),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=3 AND ( 日=20)),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=5 AND ( 日=12)),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=6 AND (日=14 )),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=7 AND ( 日=19 )),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=8 AND ( 日=6 )),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=9 AND ( 日=18 )),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=10 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=11 AND ( 日=28)),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=12 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=1 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=2 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=3 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=4 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=5 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=6 AND ( 日=6 OR 日=21)),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=7 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=8 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=9 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=10 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=11 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT; VERTLINE(月=12 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT; N:=IF(SYSPARAM(1)=DATACOUNT,最近天,DATACOUNT-SYSPARAM(1)); HH:=HHV(HIGH,N); LL:=LLV(LOW,N); VN:=N; {LAST1:=DATACOUNT;} IF VN>DATACOUNT THEN VN:=DATACOUNT+1; FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN HH[I]:=HH[DATACOUNT]; LL[I]:=LL[DATACOUNT]; END; TMP:=SETLBOUND(hh,DATACOUNT-VN+1); TMP:=SETLBOUND(ll,DATACOUNT-VN+1); 阶段高:HH,LINETHICK2,color0000FF;阶段低:LL,LINETHICK2,color00FF00; 中线:(HH+LL)/2,linethick0; KKH:=BARSLAST(HIGH=HH); KKL:=BARSLAST(LOW=LL); N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0)),LINETHICK; N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0)),LINETHICK; 多空:IF(N低日>N高日,2,1),LINETHICK0; 多空天:IF(N低日<N高日,kkl,kkh),LINETHICK0; DATE1:=IF(多空=1,N低日,N高日);{} hh0:=REF(HIGH,BARSLAST(DATE1=DATE)); ll0:=REF(LOW,BARSLAST(DATE1=DATE)); H1:=STRTONUM(NUMTOSTR(Hh0,3)),POINTDOT; L1:=STRTONUM(NUMTOSTR(Ll0,3)),POINTDOT; PARTLINE(1,H1),,POINTDOT,linethick0; PARTLINE(1,L1),,POINTDOT,linethick0; LL:=H1 - L1; VERTLINE(DATE=DATE1),COLORFFAAAA,,LINETHICK2; DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n \n始\n \n线'),COLORFFFFFF; 起始至今天:BARSLAST(DATE1=DATE),COLORFFFF00,LINETHICK0; 涨幅:(CLOSE-REF(CLOSE,起始至今天))/REF(CLOSE,起始至今天)*100,COLORFFDDDD,LINETHICK0; IF 多空=1 THEN BEGIN {看多} 开门线: PARTLINE(DATE>=N低日,LL*1.50801 + L1),LINETHICK1,COLOREE99FF;; PARTLINE(DATE>=N低日,LL*2.00001 + L1),COLOR9999FF,LINEDOT; 多2线: PARTLINE(DATE>=N低日,LL*2.40001 + L1),COLORFFFF99,linethick1; PARTLINE(DATE>=N低日,LL*3.05001 + L1),COLOR99FF99,LINEDOT; PARTLINE(DATE>=N低日,LL*3.75001 + L1),COLORFF9999,LINEDOT; 多5线: PARTLINE(DATE>=N低日,LL*4.15001 + L1),COLORMAGENTA,linethick2,LINEDOT; PARTLINE(DATE>=N低日,LL*4.80001 + L1),COLORRED,LINEDOT; 多7线: PARTLINE(DATE>=N低日,LL*5.50001 + L1),COLORCYAN,linethick2; PARTLINE(DATE>=N低日,LL*6.10001 + L1),COLORGREEN,LINEDOT; PARTLINE(DATE>=N低日,LL*6.90001 + L1),LINETHICK1,COLORRED; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*1.50801+0.002,NUMTOSTR(L1+LL*1.50801,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.00001+0.002,NUMTOSTR(L1+LL*2.00001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.40001+0.002,'NO.2 '+NUMTOSTR(L1+LL*2.40001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.05001+0.002,NUMTOSTR(L1+LL*3.05001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.75001+0.002,NUMTOSTR(L1+LL*3.75001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.15001+0.002,'NO.5 '+NUMTOSTR(L1+LL*4.15001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.80001+0.002,NUMTOSTR(L1+LL*4.80001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*5.50001+0.002,'NO.7 '+NUMTOSTR(L1+LL*5.50001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.10001+0.002,NUMTOSTR(L1+LL*6.10001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.90001+0.002,NUMTOSTR(L1+LL*6.90001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(DATE=DATE1,LL*1.50801 + L1+0.002,'多开门'),colorred; DRAWTEXT(DATE=DATE1,LL*6.90001 + L1+0.002,'多关门'),colorred; END; ELSE BEGIN {看空} 空开门线: PARTLINE(DATE>=N高日,H1-LL*1.50801),LINETHICK1,COLOREE99FF; PARTLINE(DATE>=N高日,H1-LL*2.00001),COLOR9999FF,LINEDOT; 空2线: PARTLINE(DATE>=N高日,H1-LL*2.40001),COLORFFFF99; PARTLINE(DATE>=N高日,H1-LL*3.05001),COLOR99FF99,LINEDOT; PARTLINE(DATE>=N高日,H1-LL*3.75001),COLORFF9999,LINEDOT; 空5线: PARTLINE(DATE>=N高日,H1-LL*4.15001),COLORMAGENTA; PARTLINE(DATE>=N高日,H1-LL*4.80001),COLORRED,LINEDOT; 空7线: PARTLINE(DATE>=N高日,H1-LL*5.50001),COLORCYAN; PARTLINE(DATE>=N高日,H1-LL*6.10001),COLORGREEN,LINEDOT; 空关门线: PARTLINE(DATE>=N高日,H1-LL*6.90001),LINETHICK1,COLORRED; DRAWTEXT(DATE=DATE1,H1-LL*1.50801+0.002,'空开门'),color3333FF; DRAWTEXT(DATE=DATE1,H1-LL*6.90001+0.002,'空关门'),color3333FF; DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*1.50801+0.002,NUMTOSTR(H1-LL*1.50801,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.00001+0.002,NUMTOSTR(H1-LL*2.00001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.40001+0.002,'NO.2 '+NUMTOSTR(H1-LL*2.40001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.05001+0.002,NUMTOSTR(H1-LL*3.05001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.75001+0.002,NUMTOSTR(H1-LL*3.75001,2)),COLORAAAAAA,ALIGN2; DRAWT |
- 软件大小:6.00 KB
- 推荐星级:
- 更新时间:2009-01-20 21:30:43
- 软件类别: 国产软件 / 飞狐公式
- 软件语言:简体中文
- 授权方式: 解密版
- 联系方式:暂无联系方式
- 官方主页: Home Page
- 点击大图: 【一键转帖到论坛】
- 插件情况:
- 运行环境:Win9X/2000/XP/2003/
- 相关Tags:指标公式 股票软件,公式源码
-
(1)50%(1)50%
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!