joneslee 2005-2-27 22:35
麻烦南客老师再做个无未来数据的周rsi指标
3Q!
股市骑兵00 2005-2-28 00:03
不用麻烦了，就是没南客老师写那么高级，请检查！
[code]
{引用公式代码，公式名：RSI1}
INPUT:N1(6),N2(12),N3(24);
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;
RSI3:SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100;
xr1:SMA(MAX(CLOSE-LC,0),N1,1),LINETHICK0;xr11:SMA(ABS(CLOSE-LC),N1,1),LINETHICK0;
xr2:SMA(MAX(CLOSE-LC,0),N2,1),LINETHICK0;xr22:SMA(ABS(CLOSE-LC),N2,1),LINETHICK0;
xr3:SMA(MAX(CLOSE-LC,0),N3,1),LINETHICK0;xr33:SMA(ABS(CLOSE-LC),N3,1),LINETHICK0;
[/code]
[code]
{使用公式代码}
INPUT:N1(6),N2(12),N3(24);
wtj:=datediff(ref(date,1),date)<>weekday-ref(weekday,1);
qz1:=BARSLAST(wtj)+1;lc1:=ref(c,qz1);maxc1:=max(c-lc1,0);absc1:=abs(c-lc1);
zxr1:="rsi1.xr1#week";zxr11:="rsi1.xr11#week";zxr2:="rsi1.xr2#week";
zxr22:="rsi1.xr22#week";zxr3:="rsi1.xr3#week";zxr33:="rsi1.xr33#week";
rsi1:((maxc1+(n1-1)*ref(zxr1,qz1))/n1)/((absc1+(n1-1)*ref(zxr11,qz1))/n1)*100;
rsi2:((maxc1+(n2-1)*ref(zxr2,qz1))/n2)/((absc1+(n2-1)*ref(zxr22,qz1))/n2)*100;
rsi3:((maxc1+(n3-1)*ref(zxr3,qz1))/n3)/((absc1+(n3-1)*ref(zxr33,qz1))/n3)*100;
[/code]
[color=Teal][align=right] 本贴由 股市骑兵00 于 2005-2-28 00:04 最后编辑 [/align][/color]
kjyhao 2005-2-28 18:46
[quote]Originally posted by [i]股市骑兵00[/i] at 2005-2-28 12:03 AM:
不用麻烦了，就是没南客老师写那么高级，请检查！
[code]
{引用公式代码，公式名：RSI1}
INPUT:N1(6),N2(12),N3(24);
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
R ... [/quote]
谢谢!!!学习了;
股市骑兵00 2005-2-28 18:51
[quote]Originally posted by [i]kjyhao[/i] at 2005-2-28 06:46 PM:
谢谢!!!学习了; [/quote]
哇，你比楼主还客气呀。我要脸红的。
你那天有空，试写段循环的代码让我学习如何。
kjyhao 2005-2-28 19:49
[quote]Originally posted by [i]股市骑兵00[/i] at 2005-2-28 06:51 PM:
哇，你比楼主还客气呀。我要脸红的。
你那天有空，试写段循环的代码让我学习如何。 [/quote]
ok
和日线RSI同时使用的效果图;
[color=Teal][align=right] 本贴由 kjyhao 于 2005-2-28 20:14 最后编辑 [/align][/color]
股市骑兵00 2005-2-28 20:17
图上的RSI很好呀,画的3跟线非常厉害,突破就涨停了.
真要好好向你学习了,谢谢你的图让我学习.
kjyhao 2005-2-28 20:21
[quote]Originally posted by [i]股市骑兵00[/i] at 2005-2-28 08:17 PM:
图上的RSI很好呀,画的3跟线非常厉害,突破就涨停了.
真要好好向你学习了,谢谢你的图让我学习. [/quote]
图中用循环写的周RSI数据与对比的周RSI数据是一样的;参数是14!!!
joneslee 2005-3-1 11:57
麻烦南客老师用循环再做个无未来数据的周rsi指标
要用钱龙的RSI来做。
input:n(6）；
aa:=if(c>ref(c,1),c-ref(c,1),0);
aa1:=if(c<ref(c,1),ref(c,1)-c,0);
rs:=(sum(aa,n)/n+0.01)/(sum(aa1,n)/n+0.01);
RSI1:100*rs/(rs+1);
谢谢！
南客 2005-3-1 19:12
才根据你短消息的要求做完标准的。钱龙的以后有空再说了。
[code]
input:n1(6),n2(12),n3(24);
wtj1:=datediff(ref(date,1),date)<>weekday-ref(weekday,1) or barpos=1;
wtj:=refx(wtj1,1); //周末标记
lc := ref(close,barslast(wtj1)+1);
wcc:=barpos-sumbars(wtj,count(wtj,0)-1)+1;
start:=wcc[datacount];
maxc:=max(close-lc,0);
absc:=abs(close-lc);
r11:=maxc[start]; r12:=absc[start];
r21:=r11; r31:=r11; r22:=r12; r32:=r12;
zrsi1[start]:r11/r12*100;
zrsi2[start]:r21/r22*100;
zrsi3[start]:r31/r32*100;
for i=start+1 to datacount do begin
if wtj[i] then begin
r11:=(maxc[i]+(n1-1)*r11)/n1;
r12:=(absc[i]+(n1-1)*r12)/n1;
r21:=(maxc[i]+(n2-1)*r21)/n2;
r22:=(absc[i]+(n2-1)*r22)/n2;
r31:=(maxc[i]+(n3-1)*r31)/n3;
r32:=(absc[i]+(n3-1)*r32)/n3;
zrsi1[i]:=r11/r12*100;
zrsi2[i]:=r21/r22*100;
zrsi3[i]:=r31/r32*100;
end else begin
zrsi1[i]:=(maxc[i]+(n1-1)*r11)/(absc[i]+(n1-1)*r12)*100;
zrsi2[i]:=(maxc[i]+(n2-1)*r21)/(absc[i]+(n2-1)*r22)*100;
zrsi3[i]:=(maxc[i]+(n3-1)*r31)/(absc[i]+(n3-1)*r32)*100;
end;
end;
[/code]
kjyhao 2005-3-1 20:01
[quote]Originally posted by [i]南客[/i] at 2005-3-1 07:12 PM:
才根据你短消息的要求做完标准的。钱龙的以后有空再说了。
[code]
input:n1(6),n2(12),n3(24);
wtj1:=datediff(ref(date,1),date)<>weekday-ref(weekday,1) or barpos=1;
wtj:=refx(wtj1,1); //周 ... [/quote]
老师的新作,收藏了;谢谢老师!!!
股市骑兵00 2005-3-2 00:32
[quote]Originally posted by [i]南客[/i] at 2005-3-1 07:12 PM:
才根据你短消息的要求做完标准的。钱龙的以后有空再说了。
[code]
input:n1(6),n2(12),n3(24);
wtj1:=datediff(ref(date,1),date)<>weekday-ref(weekday,1) or barpos=1;
wtj:=refx(wtj1,1); //周 ... [/quote]
感谢热心的南客老师！:cool:
139743369 2006-6-13 18:56
非常感谢南客老师 ~还有股市骑兵00老师