851.问:
如何将字符串2005-04-20,转换成数字20050420
答(bajatje):
ty:=STRLEFT('2005-04-20',4);
tm:=STRMID('2005-04-20',6,2);
td:=STRRIGHT('2005-04-20',2);
STRTONUM(ty+tm+td)



QUOTE:
852.问:
昨天，突然放量（小阴线，十字线，小阳线，大阴线）这里的放量是指相对其近期来说的。
但是，第2天，或者第3天就能以小的量，收复那天放量的K线
答(股市骑兵00):
x1:=v/ref(v,1)>=3;
x2:=BARSLAST(x1);
x3:=v/ref(v,x2)<=0.5;
x2<3 and all(x3,x2) and c>ref(c,x2);

答(原野):
还可以如下表示:
ref(v,1)/ref(ma(v,5),2)>=3 and ref(c/o,1)<1.02 and v/ref(v,1)<0.55 and c>ref(c,1);




QUOTE:
853.问:
在一分钟k线上能显示3－4天的高低点延长线

答(bajatje):
w:=sumbars(barslast(hour<ref(hour,1))=0,3);
hh:=hhv(h,w);
hh[datacount];
LL:=LLv(L,w);
LL[datacount];
答(股市骑兵00):
tb:=date<>ref(date,1);
x1:=sumbars(tb,1);
x2:=sumbars(tb,2);
h1:=hhv(h,x1);l1:=llv(l,x1);
h2:=ref(hhv(h,ref(x1,x1)),x1);
l2:=ref(llv(l,ref(x1,x1)),x1);
h3:=ref(hhv(h,ref(x1,x2)),x2);
l3:=ref(llv(l,ref(x1,x2)),x2);
h1[datacount];l1[datacount];
h2[datacount];l2[datacount];
h3[datacount];l3[datacount];



QUOTE:
854.问:
找出 10日乖離率在高(低)檔產生背離 之個股, 股價創新高 ,Bias(10)數值
卻比上一個(Bias(10)數值)波峰低0.5以上, (比如 設距今日30個交易日之內)
1)＂誰＂跟＂誰＂作比較產生乖離率？股價 跟 Bias(10)數值 作比較產生 "背離 "
2)、差異要多大您才認為是背離？Bias(10) 數值差 >0.5 以上
請問這樣條件 寫得出公式嗎? 或者不用選股 只要做出指標"會特別標示背離產生"即可

答(股市骑兵00):
大概这个样子的。
BIAS10:=(CLOSE-MA(CLOSE,10))/MA(CLOSE,10)*100;
hhv(c,30)>ref(hhv(c,30),1) and hhv(BIAS10,30)-BIAS10>0.5;



QUOTE:
855.问:
上式可否再幫我改成:
BIAS低檔背離的原碼? (條件相同),或者幫我把 高低檔背離 的公式合成一個
答(股市骑兵00):
BIAS10:=(CLOSE-MA(CLOSE,10))/MA(CLOSE,10)*100;
顶背离:hhv(c,30)>ref(hhv(c,30),1) and hhv(BIAS10,30)-BIAS10>0.5;
底背离:llv(c,30)<ref(llv(c,30),1) and BIAS10-llv(BIAS10,30)>0.5;



QUOTE:
856.问:
在副图画两条水平的白色彩带,第一条当周KD的K大于D时变为黄色,
第二条当月KD的K大于D时变为红色. 用在日线上,最好是全部周期.

答(股市骑兵00):
zk:="kd.k#week";zd:="kd.d#week";
rk:="kd.k#MONTH";rd:="kd.d#MONTH";
PARTLINE(1,0),COLORWHITE,LINETHICK10;
PARTLINE(zk>zd,0),COLORYELLOW,LINETHICK10;
PARTLINE(1,10),COLORWHITE,LINETHICK10;
PARTLINE(rk>rd,10),COLORRED,LINETHICK10;



QUOTE:
857.问:
这种平均线如何写？如果在日线图界面,则ma:(c,30)//下面的不显示
如果切换到120分钟,则ma:(c,20) //前面的ma:(c,30)不显示
如果切换到60分钟,则ma:(c,10) //前面的ma:(c,30)　ma:(c,20)不显示
答(bajatje):
if DATATYPE=6 then
ma:(c,30)//下面的不显示
if DATATYPE=11 then
ma:(c,20) //前面的ma:(c,30)不显示
if DATATYPE=5 then
ma:(c,10) //前面的ma:(c,30)　ma:(c,20)　不显示



QUOTE:
858.问:
根据指定日期，以光标控制黄金分割位置

答(hx817):
参考
input.:n(1040618,700101,1341231);//N 为日期，可在参数中设置
tj:=date=n;
tj1:=(BARPOS-BARSLAST(tj));
kn:SYSPARAM(1)-tj1;
kn1:INTPART(0.382*kn);
kn2:INTPART(0.618*kn);
VERTLINE(tj);
VERTLINE(BARPOS=tj1+kn1);
VERTLINE(BARPOS=tj1+kn2);



QUOTE:
859.问:
我要把成本分布中的90%集中度的数值
引用出来,放在k线的上方,怎么做
答(股市骑兵00):
是这个意思吗？
P90:(cost(95)-cost(5))/(cost(95)+cost(5))*100;



QUOTE:
860.问:
我想用数字来表示月K线天数怎么做
答(hx817):
1.先建立一个调用公式，比如 ttt
用来计算每个月多少天
fm:=month<>refx(month,1);
fn:=BARSLAST(fm)+1;
nn:if(fm=1 or ISLASTBAR,ref(fn,1),0);
2.再建立新公式
"ttt.nn#day"
则在月线周期上可看到当月交易周期





QUOTE:
861.问:
如果A=EMA(CLOSE,10),(A为常量).请问任何求CLOSE的值
答(股市骑兵00):

根据EMA定义推算。
若Y=EMA(X,N) 则Y=[2*X+(N-1)*Y']/(N+1)



QUOTE:
862.问:
前一天的阴线实体大于5%，今天的K线孕育在昨天阴线实体之内，
同时KDJ值均小于20。
答(bajatje):
ref((o-c)/ref(c,1)>0.05,1) and max(h,l)<ref(o,1) and min(h,L)>ref(c,1) and "kdj.d"<20;




QUOTE:
863.问:
能否把FH1的数据相应的往前移动

fh:=SPLITDATA(4)/10;
ts:DIVIDBARS(0);
fh1:sum(fh,ts+1);

答(股市骑兵00):
fh:=SPLITDATA(4)/10;
ts:=DIVIDBARS(0);
fh1:sum(fh,ts+1);
a:0*c;
for i=datacount downto 2 do begin
if fh>0 then
a[i-1]:=fh;
else
a[i-1]:=max(a[i-1],a);
end;




QUOTE:
864.问:
这几天为了还原C,忙于校对原始数据,始终有出入,
不知什么原因,搞的头都快晕了,错在哪里

送股:=SPLITDATA(1)*0.1;
配股:=SPLITDATA(2)*0.1;
sp:=送股+配股;
sp1:=sp;
sp1[datacount]:=1;
for i=datacount downto 2 do sp1[i-1]:=sp1/(1+sp);

fh:=SPLITDATA(4)/10;
ts:=DIVIDBARS(0);
fh1:sum(fh,ts+1);
a:=0*c;
for i=datacount downto 2 do begin
if fh>0 then
a[i-1]:=fh;
else
a[i-1]:=max(a[i-1],a);
end;
FH1:=A;
HYCA:C/SP1+FH1;

答(股市骑兵00):
送股:=SPLITDATA(1)/10;配股:=SPLITDATA(2)/10;分红:=SPLITDATA(4)/10;
sp:=c;
fh:=0*c;//分红前移
sp[datacount]:=1;//送配股复权比例
for i=datacount downto 2 do begin
sp[i-1]:=sp/(1+送股+配股);
fh[i-1]:=fh;
if 分红>0 then
fh[i-1]:=分红;
end;
复权价:c/sp+fh;
VERTLINE(送股+配股+分红>0);



QUOTE:
865.问:
时段统计中的阳换手率是什么意思公式是什么?:(阳量的值是从哪个公式或函数提出来的?

答(bajatje):
阳换手:sum((o<=c)*v,N)/capital*100;
阴换手:sum((o>c)*v,N)/capital*100;



QUOTE:
866.问:
我想做个阴阳换手比的指标用分笔周期,按您的指点
第一次输出为0 (N=0):
阳换手:s=um((o<=c)*v,N)/capital*100;
阴换手:sum((o>c)*v,N)/capital*100
阳换手/阴换手

第二次用一句输出却等于阴阳换手之和:
阳换手:s=um((o<=c)*v,N)/capital*100;

第三次用另一句输出为0,说明分母是0,所以第一次输出都是0:
阴换手:sum((o>c)*v,N)/capital*100

答(bajatje):
阳换手:sum((o<=c)*v,N)/capital*100;
阴换手:sum((o>c)*v,N)/capital*100;
这样的表达式没有问题。你的capital是否有数据？

SUM(IF(CLOSE/REF(CLOSE,1)>1,VOL,0),0)/capital*100
这样也对（注意：是　＞1　不是　＞0）



QUOTE:
867.问:
如何引用实时图上的预估量
答(hx917):
自己计算，用
(交易时间/一天总时间)滓丫山坏牧?



QUOTE:
868.问:
编一个《无未来数据的周MA指标》，周均线能够在日线图每日变化显示

答(股市骑兵00):
INPUT.:N(5);//均线周数调节
x:=datediff(ref(date,1),date)<>weekday-ref(weekday,1);
z:=refx(x,1);zq1:=sumbars(z,n-1); zq2:=sumbars(z,n);
周均线:if(z,sum(z*c,zq2)/n,(sum(z*c,zq1)+c)/n);



QUOTE:
869.问:
如果在小时段引用日线MA如何编写？将weekday改为day结果不对
答(股市骑兵00):
改成这样试试：
x:=date>ref(date,1);



QUOTE:
870.问:
我通常是在日线周期上看k线和kdj指标，又懒得开多个窗口看5分钟周期的kdj，而且也很麻烦。
想在日线周期的窗口上能看见5分钟周期的kdj线，这样有两个kdj副图，一个是日线周期的，一个
是5分钟的，对于掌握盘口买卖很有好处，怎么编这种指标

答(股市骑兵00):
日线引用5分钟KD只能显示每天最后一笔的KD数据。
k:STKINDI(STKLABEL,'kd.k',0,2);
d:STKINDI(STKLABEL,'kd.d',0,2);