百年经典（你没有见过的经典公式源码）

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 飞狐公式 → 一键转帖：百年经典（你没有见过的经典公式源码）

软件名称：[B]百年经典（你没有见过的经典公式源码）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2011-04-27 05:23:07
软件简介:

input:间隔(3,1,8),角度(4,1,24);
DRAWGBK(CLOSE,COLORRGB(110,130,130),COLORRGB(25,15,0),1);
M1:=IF((CLOSE > 100),1,0.01);
M2:=(1 / 间隔);
PYEAR:=(角度 * 0.25);
BB:=LLV(YEAR,0);
PMONTH:=SUM(MONTH,0);
CC:=LLV(PMONTH,0);
PDAY:=SUM(DAY,0);
P1990:=LLV(PDAY,0);
T1990:=((((YEAR - 1990) * 365.24219) + ((MONTH - 1) * 30.43685)) + DAY);
A:=((((BB - 1990) * 365.24219) + ((CC - 1) * 30.436)) + P1990);
V1:=CEILING((T1990 - A));
V2:=((V1 * M1) * PYEAR);
V3:=(V2 - ((CEILING(((V2 - CLOSE) / (365.24219 * M1))) * 365.24219) * M1));
V333:=(V2 - ((FLOOR(((V2 - CLOSE) / (365.24219 * M1))) * 365.24219) * M1));
V444:=(V2 - (((CEILING(((V2 - CLOSE) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
V4:=(V2 - (((FLOOR(((V2 - CLOSE) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
PARTLINE((ABS((V444 - REF(V444,1))) < (10 * M1)),V444),,colorFF;
PARTLINE((ABS((V4 - REF(V4,1))) < (10 * M1)),V4),,colorFF;
V5:=REVERSE(V2);
V6:=(V5 + ((CEILING(((CLOSE - V5) / (365.24219 * M1))) * 365.24219) * M1));
V555:=(V5 + ((FLOOR(((CLOSE - V5) / (365.24219 * M1))) * 365.24219) * M1));
V666:=(V5 + (((CEILING(((CLOSE - V5) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
V22:=(V5 + (((FLOOR(((CLOSE - V5) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
PARTLINE((ABS((V666 - REF(V666,1))) < (10 * M1)),V666),,colorFF00;
PARTLINE((ABS((V22 - REF(V22,1))) < (10 * M1)),V22),,colorFF00;
V33:=(V2 - ((CEILING(((V2 - MA(CLOSE,30)) / (365.24219 * M1))) * 365.24219) * M1));
V3333:=(V2 - ((FLOOR(((V2 - MA(CLOSE,30)) / (365.24219 * M1))) * 365.24219) * M1));
V4444:=(V2 - (((CEILING(((V2 - MA(CLOSE,30)) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
V44:=(V2 - (((FLOOR(((V2 - MA(CLOSE,30)) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
PARTLINE((ABS((V4444 - REF(V4444,1))) < (10 * M1)),V4444),,colorFF;
PARTLINE((ABS((V44 - REF(V44,1))) < (10 * M1)),V44),,colorFF;
V55:=REVERSE(V2);
V66:=(V55 + ((CEILING(((MA(CLOSE,30) - V55) / (365.24219 * M1))) * 365.24219) * M1));
V5555:=(V55 + ((FLOOR(((MA(CLOSE,30) - V55) / (365.24219 * M1))) * 365.24219) * M1));
V6666:=(V55 + (((CEILING(((MA(CLOSE,30) - V55) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
VAR1:=(V55 + (((FLOOR(((MA(CLOSE,30) - V55) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
PARTLINE((ABS((V6666 - REF(V6666,1))) < (10 * M1)),V6666),,colorFF00;
PARTLINE((ABS((VAR1 - REF(VAR1,1))) < (10 * M1)),VAR1),,colorFF00;

m5:=ma(c,5);
e5:=ema(c,5);
m10:=ma(c,10);
e10:=ema(c,10);
m20:=ma(c,20);
e20:=ema(c,20);
m50:=ma(c,50);
e50:=ema(c,50);
m60:=ma(c,60);
e60:=ema(c,60);
m120:=ma(c,120);
e120:=ema(c,120);
m250:=ma(c,250);
e250:=ema(c,250);
STICKLINE((e250>=m250),e250,m250,2,0),COLORRED;//ColorEAB7FF;
STICKLINE((e120>=m120),e120,m120,6,0),COLORWHITE;
STICKLINE((e60>=m60),e60,m60,6,0),COLORBLUE;
STICKLINE((e50>=m50),e50,m50,6,0),COLORYELLOW;
STICKLINE((e20>=m20),e20,m20,6,0),COLORMAGENTA;
STICKLINE((e20>=m20),e20,m20,6,0),COLORMAGENTA;
STICKLINE((e20<=m20),m20,e20,6,0),COLORGREEN;
STICKLINE((e10>=m10),m10,e10,6,0),color88FF;
STICKLINE((e10<=m10),m10,e10,6,0),ColorFFCD02;STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.1,0),COLOR0000FF;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.1,0),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),LINETHICK2,COLOR5050FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0),COLOR5050FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6.6,0),COLOR5F5FFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0),COLOR5F5FFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5.5,0),COLOR6C6CFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0),COLOR6C6CFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4.4,0),COLOR7E7EFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),COLOR7E7EFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.3,0),COLOR9D9DFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR9D9DFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.2,0),COLORAFAFFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),COLORAFAFFF;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,1.2,0),COLORC1C1FF;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),COLORC1C1FF;
STICKLINE(c=o,c,o,8,0),COLOR009900;STICKLINE(CLOSE=OPEN,OPEN,LOW,0.1,0),COLORFF8A85;STICKLINE(CLOSE<OPEN,CLOSE,HIGH,0.1,0),COLORFF8A85;
STICKLINE(CLOSE<OPEN,OPEN,LOW,0.1,0),COLORFF8A85;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,8,0),LINETHICK2,COLOR008200;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,7,0),COLOR138B13;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,6,0),COLOR279227;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,5,0),COLOR419D41;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,4,0),COLOR62AB62;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),COLOR80B980;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2,0),COLOR90BE90;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,1,0),COLOR9FC49E;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),COLORB1CCB1;
A:=BACKSET(ISLASTBAR,HHVBARS(HIGH,45)+1);
B:=A>REF(A,1);
D:=BACKSET(ISLASTBAR,LLVBARS(LOW,45)+1);
E:=D>REF(D,1);
HH:=REF(HIGH,BARSLAST(B));
LL:=REF(LOW,BARSLAST(E));
选取最高:HH,LINETHICK2;
PARTLINE(1,HH*0.8709),colorFF0000;
PARTLINE(1,HH*0.75),POINTDOT,colorFFFFFF;
PARTLINE(1,HH*0.7252),colorFFFFFF;
PARTLINE(1,HH*0.667),POINTDOT,colorFF;
PARTLINE(1,HH*0.625),colorFF;
PARTLINE(1,HH*0.5),colorFFFF;
DRAWTEXT(ISLASTBAR,HH*0.8709,'无名底'),ALIGN1,colorFFFF;
DRAWTEXT(ISLASTBAR,HH*0.7252,'无名底'),ALIGN1,colorFFFF;
DRAWTEXT(ISLASTBAR,HH*0.625,'超跌底'),ALIGN1,colorFFFF;
DRAWTEXT(ISLASTBAR,HH*0.5,'狂跌底'),ALIGN1,colorFFFF;

[url=http://www.70822.com/soft/sort013/sort02/down-33132.html]百年经典（你没有见过的经典公式源码）[/url]