{江恩轮中轮-儒雅2010} INPUT:最近天(30,1,360);当前月:=FRACPART(ROUND(CURRENTDATE/100)/100)*100; 月:=MONTH;日:=DAY; N:=IF(SYSPARAM(1)=DATACOUNT,最近天,DATACOUNT-SYSPARAM(1)+1); HH:=HHV(HIGH,N); LL:=LLV(LOW,N); VN:=N; 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); KKH:=BARSLAST(HIGH=HH); KKL:=BARSLAST(LOW=LL); N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0)); N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0)); 多空:=IF(N低日>N高日,2,1),LINETHICK0; DATE1:=IF(多空=1,N低日,N高日); LLOW:=REF(LOW,BARSLAST(DATE1=DATE)); H1:=STRTONUM(NUMTOSTR(hh,2)); L1:=STRTONUM(NUMTOSTR(LLOW,2)); VERTLINE(DATE=DATE1),COLORFFAAAA,LINETHICK1; {DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n \n\n测\n \n点'),COLORFFFFFF;}
IF 多空=1 THEN BEGIN PARTLINE(DATE>N低日,L1),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.042),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.083),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.125),COLORMAGENTA; PARTLINE(DATE>N低日,L1*1.167),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.208),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.25),COLORMAGENTA; PARTLINE(DATE>N低日,L1*1.292),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.33),COLORMAGENTA; PARTLINE(DATE>N低日,L1*1.375),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.417),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.458),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.5),COLORMAGENTA; PARTLINE(DATE>N低日,L1*1.542),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.583),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.625),COLORMAGENTA; PARTLINE(DATE>N低日,L1*1.667),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.708),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.75),COLORMAGENTA; PARTLINE(DATE>N低日,L1*1.792),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.833),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.875),COLORMAGENTA; PARTLINE(DATE>N低日,L1*1.917),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*1.958),COLORFFFF99,LINEDOT; PARTLINE(DATE>N低日,L1*2),COLORMAGENTA; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+0.002,NUMTOSTR(L1,2)+' 0 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.042+0.002,NUMTOSTR(L1*1.042,2)+' 15 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.083+0.002,NUMTOSTR(L1*1.083,2)+' 30 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.125+0.002,NUMTOSTR(L1*1.125,2)+' 45 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.167+0.002,NUMTOSTR(L1*1.167,2)+' 60 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.208+0.002,NUMTOSTR(L1*1.208,2)+' 75 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.25+0.002,NUMTOSTR(L1*1.25,2)+' 90 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.292+0.002,NUMTOSTR(L1*1.292,2)+' 105 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.33+0.002,NUMTOSTR(L1*1.33,2)+' 120 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.375+0.002,NUMTOSTR(L1*1.375,2)+' 135 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.417+0.002,NUMTOSTR(L1*1.417,2)+' 150 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.458+0.002,NUMTOSTR(L1*1.458,2)+' 165 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.5+0.002,NUMTOSTR(L1*1.5,2)+' 180 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.542+0.002,NUMTOSTR(L1*1.542,2)+' 195 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.583+0.002,NUMTOSTR(L1*1.583,2)+' 210 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.625+0.002,NUMTOSTR(L1*1.625,2)+' 225 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.667+0.002,NUMTOSTR(L1*1.667,2)+' 240 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.708+0.002,NUMTOSTR(L1*1.708,2)+' 255 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.75+0.002,NUMTOSTR(L1*1.75,2)+' 270 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.792+0.002,NUMTOSTR(L1*1.792,2)+' 285 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.833+0.002,NUMTOSTR(L1*1.833,2)+' 290 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.875+0.002,NUMTOSTR(L1*1.875,2)+' 315 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.917+0.002,NUMTOSTR(L1*1.917,2)+' 330 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.958+0.002,NUMTOSTR(L1*1.958,2)+' 345 '),COLORWHITE,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1*2+0.002,NUMTOSTR(L1*2,2)+' 360 '),COLORWHITE,ALIGN2; END; ELSE BEGIN PARTLINE(DATE>N高日,H1),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.042),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.083),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.125),COLORMAGENTA; PARTLINE(DATE>N高日,H1-H1*0.167),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.208),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.25),COLORMAGENTA; PARTLINE(DATE>N高日,H1-H1*0.292),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.33),COLORMAGENTA; PARTLINE(DATE>N高日,H1-H1*0.375),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.417),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.458),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.5),COLORMAGENTA; PARTLINE(DATE>N高日,H1-H1*0.542),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.583),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.625),COLORMAGENTA; PARTLINE(DATE>N高日,H1-H1*0.667),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.708),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.75),COLORMAGENTA; PARTLINE(DATE>N高日,H1-H1*0.792),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.833),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.875),COLORMAGENTA; PARTLINE(DATE>N高日,H1-H1*0.917),COLORFFFF99,LINEDOT; PARTLINE(DATE>N高日,H1-H1*0.958),COLORMAGENTA; |
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!