|
论坛版主
指标公式版主 - 帖子
- 3206
- 积分
- 15905
- 威望
- 0
- 注册时间
- 2007-4-11
|
48楼
大 中
小 发表于 2008-4-26 08:43 只看该作者
引用:“分价图” ---- 优品 短，中皆宜 —— 出手即赢
应大家要求 源码发布！
原帖由 慕远 于 2005-10-7 09:34 发表
节日休闲，在 南山 一鸣； bajatje（懒汉）等友的协助下，完成了一个好指标，
在此对以上各友表示感谢！！
如朋友们认为能认可，支持的朋友多，可发源码！
言而有信，既然朋友们喜欢，呵呵，我就发了.........
使用方法：
1.橙色阶梯不断上升，股价在支撑线之上，且上无压力，买入最安全。
2.蓝色乌云密布，阶梯不断下降，股价在支撑之下，且上压力大，应空仓。
3.股价在安全线之下，一般来讲股价比较低了，可关注。
4.股价在中枢线附近，只要橙色阶梯不断上升，守仓。
另可用1；2；两种方法判断追，杀！
5.股价在警惕线之上，一般来讲股价比较高了，要警惕了！可用1；2；两种 方法判断，一但股价落在支撑之下，且压力线上升，就应该逢高减仓了。
6.蓝色乌云显现，可清仓。
7.追高时，要注意大盘的配合，切切！！
《分价图》原帖复制内容到剪贴板 代码: DRAWGBK(1, COLORRGB(100,50,0), COLORRGB(100,100,0),0);
x1:=(C+L+H)/3;
x2:=EMA(x1,6);
x3:=EMA(x2,5);
STICKLINE(x2>=x3,x2,x3,10,1),Color00A6F6;
STICKLINE(x2<x3,x2,x3,10,1), COLORBLUE;
n1:=sysparam(3);
n:=n1-sysparam(2)+1;
hh:=hhv(H,n);
ll:=llv(L,n);
最高:=hh[n1];
最低:=ll[n1];
安全:最低+(最高-最低)*0.191,POINTDOT,PRECISION2,LINETHICK3,ColorFF8900;
中枢:最低+(最高-最低)*0.5,LINEDOT,PRECISION2,COLORMAGENTA;
警惕:最低+(最高-最低)*0.809,LINEDOT,PRECISION2,COLORYELLOW;
aa1:=wma(c,2);
bb1:=ema(aa1,2);
a:=ma(bb1,3);
aa2:=wma((h+c+o)/3,18);
dd3:=a>=aa2 and c>aa2;
dd4:=a<aa2 ;
dd5:=a>aa2 ;
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;
STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;
STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;
STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;
STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.8,1),coloryellow;
X1:=HHV(H,3);//一鸣
X2:=LLV(L,3);
Xc:=c;
Xh:=h;
Xl:=l;
for i=1 to datacount do
IF Xh[i]>x1[i-1] and Xc[i]>Xc[i-1] Then Ycjy[i]:=x2[i];
ELSE IF Xl[i]<x2[i-1] and Xc[i]<Xc[i-1] Then Ycjy[i]:=x1[i];
ELSE Ycjy[i]:=Ycjy[i-1];
y1:=hhv(h,13);
y2:=if(y1>ref(y1,30),y1,ref(y1,21));
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1),COLORWHITE;
D:=SMA(K,3,1),COLORYELLOW;
j1:=-(3*K-2*D)+100;
j2:=if(j1<0 ,0 ,j1);
j:=if(j2>100,100,j2),COLORBLUE;
超短:=SMA(AMOUNT,3,1)/100000000;
中线:=SMA(AMOUNT,13,1)/100000000;
压力:if(j<k and 超短>中线 and c<y2,Ycjy,y2),PRECISION2,LINEDOT,COLORCYAN;
支撑:Ycjy,PRECISION2,COLORGREEN;创幻分价图的ＦＸＪ版:
input:M(30);
DRAWGBKlast(1, strip(RGB(100,50,0), RGB(100,100,0),1));
#define Mariah(N,cc) kk:=0; su:=0; dc:=0;\
for i=N downto 1 do begin\
kk:=kk + if(i=N,0,1);\
su:=i*ref(cc,kk) + su;\
dc:=dc + i;\
end\
Carey:=su/dc;
x1:=(C+L+H)/3;
x2:=EMA(x1,6);
x3:=EMA(x2,5);
STICKLINE(x2>=x3,x2,x3,10,1),Color00A6F6;
STICKLINE(x2<x3,x2,x3,10,1), COLORBLUE;
N1:=(barslast(dispstatus=2)=0);
N:=barssince(dispstatus=1)+1;
hh:=hhv(H,N);
ll:=llv(L,N);
最高:=hh;
最低:=ll;
安全:最低+(最高-最低)*0.191,POINTDOT,PRECIS2,LINETHICK0,ColorFFcc00;
中枢:最低+(最高-最低)*0.5,pointDOT,PRECIS2,COLORffcceb,linethick0;
警惕:最低+(最高-最低)*0.809,pointDOT,PRECIS2,COLOR99ffff,linethick0;;
stickline(n1,最低+(最高-最低)*0.191,最低+(最高-最低)*0.191,25*N,0),colorffcc00;
stickline(n1,最低+(最高-最低)*0.5,最低+(最高-最低)*0.5,25*N,0),colorffcceb;
stickline(n1,最低+(最高-最低)*0.809,最低+(最高-最低)*0.809,25*N,0),color99ffff;
drawtext(n1,安全*1.015,numtostr(安全)),colorffcc00;
drawtext(n1,中枢*1.015,numtostr(中枢)),colorffcceb;
drawtext(n1,警惕*1.015,numtostr(警惕)),color99ffff;
Mariah(2,close);
aa1:=Carey;
bb1:=ema(aa1,2);
a:=ma(bb1,3);
Mariah(18,(h+c+o)/3);
aa2:=Carey;
dd3:=a>=aa2 and c>aa2;
dd4:=a<aa2 ;
dd5:=a>aa2 ;
STICKLINE((dd4 or dd5) and o<=c and not(dd3 or c>aa2) and not(MA(C,13)>O and C>MA(C,13) and O<c),h,l,0.5,0),Color00cc99;
STICKLINE((dd4 or dd5) and o<=c and not(dd3 or c>aa2) and not(MA(C,13)>O and C>MA(C,13) and O<c),c,o,7,0),Color00cc99;
STICKLINE((dd4 or dd5) and o>=c and not(dd3 or c>aa2) and not(MA(C,13)>O and C>MA(C,13) and O<c),h,l,0.5,0),Color3F8C3A;
STICKLINE((dd4 or dd5) and o>=c and not(dd3 or c>aa2) and not(MA(C,13)>O and C>MA(C,13) and O<c),c,o,7,0),Color3F8C3A;
STICKLINE((dd3 or c>aa2) and not(MA(C,13)>O and C>MA(C,13) and O<c) and o<=c,c,o,7,0),Colorred;
STICKLINE((dd3 or c>aa2) and not(MA(C,13)>O and C>MA(C,13) and O<c) and o<=c,h,l,0.5,0),Colorred;
STICKLINE((dd3 or c>aa2) and not(MA(C,13)>O and C>MA(C,13) and O<c) and o>=c,c,o,7,0),Colorff33ff;
STICKLINE((dd3 or c>aa2) and not(MA(C,13)>O and C>MA(C,13) and O<c) and o>=c,h,l,0.5,0),Colorff33ff;
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.8,1),coloryellow;
aa:=HHV(H,3);
bb:=LLV(L,3);
cc:=High;
dd:=LOW;
ee:=Close;
IF cc>REF(aa,1) and ee>c[1] Then varJN:=bb;
ELSE IF dd<REF(bb,1) and ee<c[1] Then varJN:=aa;
ELSE varJN:=REF(varJN,1);
y1:=hhv(h,13);
y2:=if(y1>ref(y1,M),y1,ref(y1,M));
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
j1:=-(3*K-2*D)+100;
j2:=if(j1<0 ,0 ,j1);
j:=if(j2>100,100,j2);
超短:=SMA(AMOUNT,3,1)/100000000;
中线:=SMA(AMOUNT,13,1)/100000000;
压力:if(j<k and 超短>中线 and c<y2,varjn,y2),PRECIS2,COLORCYAN;
支撑:varjn,precis2,COLORGREEN; [ 本帖最后由 蓝鼠 于 2008-4-26 08:47 编辑 ] 附件: 您所在的用户组无法下载或查看附件
骤雨过，琼珠乱撒，打遍新荷。
人生百年有几，念良辰美景，休放虚过。
穷通前定，何用苦张罗。
命友邀宾玩赏，对芳尊浅酌低歌。
且酩酊，任他两轮日月，来往如梭。
|
