软件名称：[B]自适应均线+全功能量尺+背离[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：11.0 KB
官方主页：Home Page
更新时间：2010-01-25 07:57:31
软件简介:
{叠加引用}
{自适应均线+全功-引用}
CCC:=CLOSE;
HHH:=HIGH;
LLL:=LOW;
VVV:=VOL;
OOO:=O;
IF SYSPARAM(1)>=260 THEN Begin
XX:=SETLBOUND(CCC,SYSPARAM(1)-259);
XX:=SETLBOUND(HHH,SYSPARAM(1)-259);
XX:=SETLBOUND(LLL,SYSPARAM(1)-259);
XX:=SETLBOUND(VVV,SYSPARAM(1)-259);
XX:=SETLBOUND(OOO,SYSPARAM(1)-259);
End;OO:OOO,LINETHICK0;CC:CCC,LINETHICK0;
HH:HHH,LINETHICK0;LL:LLL,LINETHICK0;
DV:VVV,LINETHICK0;
{自适应均线+全功能量尺+背离}
gb:=SYSPARAM(1);
if gb<1 or gb>datacount then exit;
gb2:=SYSPARAM(2);
gb3:=SYSPARAM(3);
gbp:=gb=BARPOS;
gbp2:=gb2=BARPOS;
gbp3:=gb3=BARPOS;
CCC:=C;
HHH:=HIGH;
LLL:=LOW;
VVV:=VOL;
OOO:=O;
IF gb>=500 THEN Begin
XX:=SETLBOUND(CCC,gb-499);
XX:=SETLBOUND(HHH,gb-499);
XX:=SETLBOUND(LLL,gb-499);
XX:=SETLBOUND(VVV,gb-499);
XX:=SETLBOUND(OOO,gb-499);
End;
HH:=hhv(hHH,2);
LL:=llv(lLL,2);
A1:=HH>REF(HH,2) and cCC>REF(cCC,2);
A2:=LL<REF(LL,2) and cCC<REF(cCC,2);
A3:=BARSLAST(A1);
A4:=BARSLAST(A2);
A5:=IF(A1,LL,REF(LL,A3));
A6:=IF(A2,HH,REF(HH,A4));
yzx:=IF(A3>A4,A6,A5);
PARTLINE(gb-20<BARPOS and gb>=BARPOS and yzx[gb]<cCC[gb],yzx[gb]),Color5252ff,linethick1,shift1;
PARTLINE(gb-20<BARPOS and gb>=BARPOS and yzx[gb]>=cCC[gb],yzx[gb]),colorblue,linethick1,shift1;
bc2:=barslast(gbp)+1;
金H:=IF(cCC>100,SUM(hHH*vvv,bc2)/SUM(vvv,bc2),sum(AMOUNT,bc2)/sum(vvv,bc2)/100*SUM(hHH,bc2)/SUM(CCC,BC2));
金L:=IF(cCC>100,SUM(lLL*vvv,bc2)/SUM(VOL,bc2),sum(AMOUNT,bc2)/sum(vvv,bc2)/100*SUM(lLL,bc2)/SUM(CCC,BC2));
dsc:=if(ref(hHH,bc2-1)>ref(hHH,bc2) and ref(hHH,bc2-1)>ref(hHH,bc2-2) ,金h,金l);
PARTLINE(gb<BARPOS,dsc),colorBC00AF,LINETHICK2;
金:dsc[gb3],LINETHICK0;
cc:=ccc;
M5:=if(gb>6,ma(ccc,5),ma(ccc,0));
M10:=if(gb>11,ma(ccc,10),ma(ccc,0));
M20:=if(gb>21,ma(ccc,20),ma(ccc,0));
M30:=if(gb>31,ma(ccc,30),ma(ccc,0));
M60:=if(gb>61,ma(ccc,60),ma(ccc,0));
M90:=if(gb>91,ma(ccc,90),ma(ccc,0));
M120:=if(gb>121,ma(ccc,120),ma(ccc,0));
M240:=if(gb>241,ma(ccc,240),ma(ccc,0));
p[1]:=CC[gb];p[2]:=M5[gb];
p[3]:=M10[gb];p[4]:=M20[gb];
p[5]:=M30[gb];
p[6]:=M60[gb];
p[7]:=M90[gb];
p[8]:=M120[gb];
p[9]:=M240[gb];
s[1]:=CC[gb];s[2]:=M5[gb];
s[3]:=M10[gb];s[4]:=M20[gb];
s[5]:=M30[gb];
s[6]:=M60[gb];
s[7]:=M90[gb];
s[8]:=M120[gb];
s[9]:=M240[gb];
VARIABLE:ptr[9]='';
ptr[1]:='●';ptr[2]:='⑤';
ptr[3]:='①';ptr[4]:='②';
ptr[5]:='③';
ptr[6]:='⑥';
ptr[7]:='⑨';
ptr[8]:=' B';
ptr[9]:=' N';
VARIABLE:ptrs[9]='';
ptrs[1]:=if(cc[gb]>=cc[gb-1],'↑','↓');
ptrs[2]:=if(m5[gb]>=m5[gb-1],'↑','↓');
ptrs[3]:=if(m10[gb]>=m10[gb-1],'↑','↓');
ptrs[4]:=if(m20[gb]>=m20[gb-1],'↑','↓');
ptrs[5]:=if(m30[gb]>=m30[gb-1],'↑','↓');
ptrs[6]:=if(m60[gb]>=m60[gb-1],'↑','↓');
ptrs[7]:=if(m90[gb]>=m90[gb-1],'↑','↓');
ptrs[8]:=if(m120[gb]>=m120[gb-1],'↑','↓');
ptrs[9]:=if(m240[gb]>=m240[gb-1],'↑','↓');
px:=SORTPOS(p,0,1,9);
nu1:=if(c>1000,NUMTOSTR(s[p[1]],0),NUMTOSTR(s[p[1]],2));
nu2:=if(c>1000,NUMTOSTR(s[p[2]],0),NUMTOSTR(s[p[2]],2));
nu3:=if(c>1000,NUMTOSTR(s[p[3]],0),NUMTOSTR(s[p[3]],2));
nu4:=if(c>1000,NUMTOSTR(s[p[4]],0),NUMTOSTR(s[p[4]],2));
nu5:=if(c>1000,NUMTOSTR(s[p[5]],0),NUMTOSTR(s[p[5]],2));
nu6:=if(c>1000,NUMTOSTR(s[p[6]],0),NUMTOSTR(s[p[6]],2));
nu7:=if(c>1000,NUMTOSTR(s[p[7]],0),NUMTOSTR(s[p[7]],2));
nu8:=if(c>1000,NUMTOSTR(s[p[8]],0),NUMTOSTR(s[p[8]],2));
nu9:=if(c>1000,NUMTOSTR(s[p[9]],0),NUMTOSTR(s[p[9]],2));
NUS1:=IF(s[p[1]]>100 OR s[p[1]]<10,' ','');
NUS2:=IF(s[p[2]]>100 OR s[p[2]]<10,' ','');
NUS3:=IF(s[p[3]]>100 OR s[p[3]]<10,' ','');
NUS4:=IF(s[p[4]]>100 OR s[p[4]]<10,' ','');
NUS5:=IF(s[p[5]]>100 OR s[p[5]]<10,' ','');
NUS6:=IF(s[p[6]]>100 OR s[p[6]]<10,' ','');
NUS7:=IF(s[p[7]]>100 OR s[p[7]]<10,' ','');
NUS8:=IF(s[p[8]]>100 OR s[p[8]]<10,' ','');
NUS9:=IF(s[p[9]]>100 OR s[p[9]]<10,' ','');
SHSZ:=STRCMP(MARKETLABEL,'SH')=0;
IF SHSZ=1 THEN X:='1A0001';
IF SHSZ=0 THEN X:='399001';
叠开:=STKINDI(X,'叠加引用.OO',0,-1),LINETHICK0;
叠高:=STKINDI(X,'叠加引用.HH',0,-1),LINETHICK0;
叠低:=STKINDI(X,'叠加引用.LL',0,-1),LINETHICK0;
叠收:=STKINDI(X,'叠加引用.CC',0,-1),LINETHICK0;
ttst:=if(hhv(hhh,80)=hhv(hhh,160),'',' ');
tts:=if(hhv(hhh,55)>=hhv(hhh,145),' ',ttst);
DRAWTEXT(gbp2 and ptrs[p[1]]='↓',ccc,tts+ptr[p[1]]+nu1+nus1),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[2]]='↓',ccc,tts+' '+ptr[p[2]]+nu2+nus2),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[3]]='↓',ccc,tts+' '+ptr[p[3]]+nu3+nus3),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[4]]='↓',ccc,tts+' '+ptr[p[4]]+nu4+nus4),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[5]]='↓',ccc,tts+' '+ptr[p[5]]+nu5+nus5),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[6]]='↓',ccc,tts+' '+ptr[p[6]]+nu6+nus6),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[7]]='↓',ccc,tts+' '+ptr[p[7]]+nu7+nus7),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[8]]='↓',ccc,tts+' '+ptr[p[8]]+nu8+nus8),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[9]]='↓',ccc,tts+' &
[url=http://www.70822.com/soft/sort013/sort02/down-16035.html]自适应均线+全功能量尺+背离[/url]