请不要跟贴，精品代码不断更新
如果您认为有好的代码，可跟贴
如果您有疑问或者问题，可开新贴提出


求证券历史最高、最低价时的日期

复制内容到剪贴板

代码:

hhp:=HHVBARS(HIGH,0);
llp:=LLVBARS(LOW,0);

hhd:REF(DATE,hhp);
lld:REF(DATE,llp);

求历史最高、次高、最低、次低时价格

复制内容到剪贴板

代码:

fh:=HIGH;
ph:=fh;
fl:=LOW;
pl:=fl;
a:=SORTPOS(ph,1,1,DATACOUNT);
a:=SORTPOS(pl,0,1,DATACOUNT);
最高:fh[ph[1]];
次高:fh[ph[2]];
最低:fl[pl[1]];
次低:fl[pl[2]];

求证券上市日期

复制内容到剪贴板

代码:

fd:=date;
上市日期:fd[1];

求证券首日收盘价格

方法一

复制内容到剪贴板

代码:

REF(CLOSE,BARPOS-1);

方法二

复制内容到剪贴板

代码:

REF(CLOSE,BARSSINCE(CLOSE));

副图显示指数

方法一

复制内容到剪贴板

代码:

foxc:="1A0001$close";foxo:="1A0001$open";foxl:="1A0001$low";foxh:="1A0001$high";

ktj:=(foxc>foxo or foxc=o and foxc>ref(foxc,1));
stickline(ktj,foxh,foxl,0.1,1),colorred;
stickline(ktj,foxc,foxo,7,1),colorred;

stickline(not(ktj),foxh,foxl,0.1,0),colorcyan;
stickline(not(ktj),foxc,foxo,7,0),colorcyan;

方法二

复制内容到剪贴板

代码:

XO:=INDEXO;XH:=INDEXH;XL:=INDEXL;XC:=INDEXC;
STICKLINE(XC>XO OR (XC=XO AND XC>REF(XO,1)),XC,XH,0.1,0),COLORMAGENTA;
STICKLINE(XC>XO OR (XC=XO AND XC>REF(XO,1)),XO,XL,0.1,0),COLORMAGENTA;
STICKLINE(XC>XO OR (XC=XO AND XC>REF(XO,1)),XO,XC,7,0),COLORMAGENTA;
STICKLINE(XC<XO OR (XC=XO AND XC<=REF(XO,1)),XH,XL,0.1,0),COLORCYAN;
STICKLINE(XC<XO OR (XC=XO AND XC<=REF(XO,1)),XO,XC,7,0),COLORCYAN;
对应指数开:INDEXO LINETHICK0 PRECISION0 COLORYELLOW;高:INDEXH LINETHICK0 PRECISION0 COLORWHITE;
低:INDEXL LINETHICK0 PRECISION0 COLORRED;收:INDEXC LINETHICK0 PRECISION0 COLORCYAN;

序列变量值用在判断语句

复制内容到剪贴板

代码:

fc:=CLOSE;
fo:=OPEN;
for i=1 to DATACOUNT do
  IF fc[i]>fo[i] then A[i]:fc[i]+5;

取光标位置K线日期

复制内容到剪贴板

代码:

REF(DATE,BARSLAST(SYSPARAM(1)=BARPOS));

k线数的数值随光标移动显示

复制内容到剪贴板

代码:

DRAWTEXT(SYSPARAM(1)=BARPOS,1,'K线数='+NUMTOSTR(SYSPARAM(1),0));

求某一年最低价格
比如 2002 年
方法一：

复制内容到剪贴板

代码:

n:=2002;
fl:=IF(YEAR=2002,LOW,10000000);
ll:LLV(fl,0);

方法二：

复制内容到剪贴板

代码:

TS:=BARSSINCE(YEAR=2002)+1;
BB:=REF(LLV(LOW,TS),BARSLAST(YEAR=2002));
BB[DATACOUNT];

求某一年最高价格
比如 2002 年

复制内容到剪贴板

代码:

A:=HHV(H*(YEAR=2002),0);
YH:A[DATACOUNT];

求每年最大成交量

复制内容到剪贴板

代码:

VARIABLE:maxv[20]=0,n=1;
fy:=year;fv:=v;
maxv[1]:=fv[1];
for i=2 to DATACOUNT do begin
if fy[i]<>fy[i-1] then n:=n+1;
maxv[n]:=max(maxv[n],fv[i]);
end;

求 N年最低价

复制内容到剪贴板

代码:

input:n(1,1,100);
tj1:=YEAR<>ref(year,1);
ts1:=sumbars(tj1,N);
ts:=BARSSINCE(ts1)+1;
N年最低价:llv(l,ts);

计算以成交量为权重的平均股价

复制内容到剪贴板

代码:

SUM(VOL*CLOSE,3)/SUM(VOL,3);

成本集中度

复制内容到剪贴板

代码:

成本集中度:(COST(95)-COST(5))/(COST(95)+COST(5))*100;

取历史某日数据
假设取2003年9月30日收盘价格

复制内容到剪贴板

代码:

IF(DATE=1030930,CLOSE,0);

取历史某日数据，而后向右延伸

复制内容到剪贴板

代码:

REF(CLOSE,BARSLAST(DATE=1030930));

统计 N 天内最高价和最低价之间的天数以及它们之间换手率之和。

复制内容到剪贴板

代码:

INPUT:N(150);
HH:=HHVBARS(HIGH,N); LL:=LLVBARS(LOW,N);
HD:=MAX(HH,LL); LD:=MIN(HH,LL);
周期:HD-LD,LINETHICK0;
HSL:=VOL/CAPITAL*N;
换手率之和:SUM(HSL,HD)-SUM(HSL,LD),LINETHICK0;

计算 N 日内阳线的成交量之和与 N 日内阴线的成交量之和的比率

复制内容到剪贴板

代码:

INPUT:N(10);
阳线量:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),n);
阴线量:=SUM(IF(CLOSE<REF(CLOSE,1),VOL,0),n);
阳线量/阴线量;

文字跟随光标移动

复制内容到剪贴板

代码:

tj:=barpos=sysparam(1);
drawtext(tj,c,stklabel+'\n'+stkname);

表达涨停板

复制内容到剪贴板

代码:

{如果为ST涨停为5%，否则为10%}
bl:=if(STKINBLOCK(STKLABEL,'ST板块'),1.0495,1.095);

{如果涨停返回1，否则返回0}
ztb:(c>=intpart(ref(c,1)*bl*100+0.495)/100);

复制内容到剪贴板

代码:

st:=IF(STRFIND(STKNAME,'ST',1),5,10);
zt:=ROUND(REF(CLOSE,1)*(100+st));//涨停

st的

[ 本帖最后由 pengyou 于 2007-10-12 21:48 编辑 ]

网上部分

[ 本帖最后由 pengyou 于 2007-10-12 22:04 编辑 ]

Var2:=(C-MA(C,6))/MA(C,6)*100;
Var3:=(C-MA(C,12))/MA(C,12)*100;
Var4:=(C-MA(C,24))/MA(C,24)*100;
Var5:=REF(C,1);
Var6:=SMA(MAX(C-Var5,0),5,1)/SMA(ABS(C-Var5),5,1)*100;
Var7:=(H+L+C)/3;
Var8:=(Var7-MA(Var7,14))/(0.015*AVEDEV(Var7,14));
Var9:=Var2>-15.8 AND Var2<-12.2;
VarA:=Var3<-20.8;
VarB:=Var4<-27.5;
VarC:=Var6<11.7;
VarD:=Var8<-145;
选股公式:=Var9 AND VarA AND VarB AND VarC AND VarD;
Filter(选股公式,5);
DrawIcon (选股公式,88,8){,align1};
Drawtext (选股公式,68,'20-10%成功率96.17%'),coloryellow;
条件选股:38*Filter(选股公式,5),colorgreen;

接二连三灌水总算够分,挤了进来!!!惭愧!!!

在外看着神秘

xiexie

看这贴子真不容易,好不容易才有了20分.不过内容很好,谢谢.

学习

学习 谢谢 收藏