1021.問(wèn):
這是分析家的一個(gè)交易指標(biāo):
{交易法則:買入條件A=K金叉20。條件B加倉(cāng)=D金叉50。
條件C止損=K死叉20。條件D賣出=K死叉80。(引自分析家版主鐵手)。
具體請(qǐng)參考。以現(xiàn)金存量的50%買進(jìn)和加碼;止損和賣出是100%。
交易法則和鐵手的是一樣的。}
VARIABLE:positionCount=1;{頭寸計(jì)數(shù)變量}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
IF PositionCount=1 THEN BEGIN{第一頭寸}
IF CROSS(K,20) THEN BEGIN{條件A=K金叉20}
BUY(50%,MARKET);
PositionCount:=PositionCount+1;{頭寸計(jì)數(shù)}
END
END
IF PositionCount=2 THEN BEGIN{第二加碼頭寸}
IF CROSS(D,50) THEN BEGIN{條件B加倉(cāng)=D金叉50}
BUY(50%,MARKET);
PositionCount:=PositionCount+1;
END
END
IF CROSS(20,K) THEN BEGIN{條件C止損=K死叉20}
SELL(100%,MARKET);
PositionCount:=1; {頭寸計(jì)算復(fù)原}
END
IF CROSS(80,K) THEN BEGIN{條件D賣出=K死叉80}
SELL(100%,MARKET);
PositionCount:=1;
END;
答(股市騎兵00):
INPUT:n1(10000,10000,1000000),n2(50,20,100);//n1=初始資金,n2=買入比例%
初始資金:=n1,LINETHICK;
買入比例%:=n2,LINETHICK;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);D:=SMA(K,3,1);
mtj1:=cross(k,20);mtj2:=cross(d,50);
wtj1:=cross(20,k);wtj2:=cross(80,k);
p1:=初始資金;p2:=初始資金;
zs:=INTPART(100/買入比例%);
cs:=0;fc:=c;
for i=3 to datacount do begin
if cs
if mtj1[i] then begin//買入條件A
m[i]:=1;
cs:=cs+1;
mfc[cs]:=fc[i];
p1:=p2-p2*(買入比例%/100)*cs;
u:=1;
end;
if mtj2[i] and u then begin//條件B加倉(cāng)
m[i]:=1;
cs:=cs+1;
mfc[cs]:=fc[i];
p1:=p2-p2*(買入比例%/100)*cs;
end;
end;
if (wtj1[i] or wtj2[i]) and cs then begin//止損和賣出是100%
for j=1 to cs do x:=x+fc[i]/mfc[j];
盈虧%[i]:(x/cs-1)*100,LINETHICK;
p2:=p2*x/cs;
w[i]:=1;
x:=0;
cs:=0;
p1:=0;
u:=0;
end;
總資金[i]:p2,LINETHICK;
剩余資金[i]:p1,LINETHICK;
end;
總利潤(rùn)%:(總資金/初始資金-1)*100,LINETHICK;
DRAWICON(m,l*0.99,4);
DRAWICON(w,h*1.01,5);
1022.問(wèn):
試圖畫出最後的一條線(最重要的一條),始終沒(méi)能成功
N:=1;
a:zig(4,N);
g:=PEAK(4,N,1);
d:=TROUGH(4,N,1);
g1:=g[datacount];
d1:=d[datacount];
gd:(g1+d1)/2;
g2:=PEAK(4,N,2);
d2:=TROUGH(4,N,2);
g22:=g2[datacount];
d22:=d2[datacount];
gd2:(g1+d22)/2;
ts1:=BARSLAST(a>refx(a,1) and a>ref(a,1));
ts2:=BARSLAST(a<>
ts:=BARSSINCE(BACKSET(ISLASTBAR,max(ts1,ts2)));
tj:cross(a>=gd,0.5) or cross(a<=gd,0.5);
vertline(tj AND ts);
vertline(cross(a,gd2)),colorRED;
xa:=SUM(ts1,0);
xb:=SUM(ts2,0);
DRAWSL(ts1 AND xa>xa[datacount]-1,g1,0,ts1,1),COLORMAGENTA;
DRAWSL(ts2 AND xb>xb[datacount]-1,d1,0,ts2,1),COLORred;
LINEVALUE(1,d22,tj AND ts,ref(gd,barslast(tj AND ts)),0,0);//問(wèn)題點(diǎn)
答(cwy):
便于看清,N改為10。
N:=10;
a:zig(4,N);
g:=PEAK(4,N,1);
d:=TROUGH(4,N,1);
g1:=g[datacount];
d1:=d[datacount];
gd:(g1+d1)/2;
g2:=PEAK(4,N,2);
d2:=TROUGH(4,N,2);
g22:=g2[datacount];
d22:=d2[datacount];
gd2:(g1+d22)/2;
ts1:=BARSLAST(a>refx(a,1) and a>ref(a,1));
ts2:=BARSLAST(a<>
ts:=BARSSINCE(BACKSET(ISLASTBAR,max(ts1,ts2)));
tj:=cross(a>=gd,0.5) or cross(a<=gd,0.5);
x:=cross(BACKSET(ISLASTBAR,TROUGHBARS(4,N,2)+1),0.5)*date;//
vertline(tj AND ts);
vertline(cross(a,gd2)),colorRED;
xa:=SUM(ts1,0);
xb:=SUM(ts2,0);
DRAWSL(ts1 AND xa>xa[datacount]-1,g1,0,ts1,1),COLORMAGENTA;
DRAWSL(ts2 AND xb>xb[datacount]-1,d1,0,ts2,1),COLORred;
//LINEVALUE(x,d22,tj AND ts,ref(gd,barslast(tj AND ts)),0,0);//問(wèn)題點(diǎn)
DRAWLINE(x,a,tj and ts>0,gd,1);//
1023.問(wèn):
回調(diào)上攻沒(méi)信號(hào)
INPUT:漲幅(29,8,94);
a:=(c-ref(c,1))/ref(c,1)*100;
a1:=BARSLAST( a>漲幅);
a2:=if(a1>0,1,0);
TT:=MA((CLOSE-REF(CLOSE,14))/REF(CLOSE,14),7);
HZ:=EMA(TT,14);
m47:=ma(c,47);
m48:=Ema(m47,3);
m49:=ema(m48,3);
m50:=Ema(m49,3);
HZ>=-0.028 and a2=0 and m47>m48 and m47>m49 and m47>m50 and h/c<1.008
答(lixkchch):
INPUT:漲幅(29,8,94);
a:=(c-ref(c,1))/ref(c,1)*1000;
a1:=BARSLAST( a>漲幅);
a2:=if(a1>0,1,0);
TT:=MA((CLOSE-REF(CLOSE,14))/REF(CLOSE,14),7);
HZ:=EMA(TT,14);
m47:=ma(c,47);
m48:=Ema(m47,3);
m49:=ema(m48,3);
m50:=Ema(m49,3);
HZ>=-0.028 and a2=0 and m47>m48 and m47>m49 and m47>m50 and h/c<1.008 ;
1024.問(wèn):
股票箱中間線,請(qǐng)用數(shù)值表示出來(lái)?謝!
或修改公式,變?yōu)橄蛴已娱L(zhǎng)線,并表示出數(shù)值?
fh:=high;
fl:=low;
sell:=0*fh;
buy:=sell;
signal:=sell;
boxh:=sell,linethick0;
boxl:=sell,linethick0;
variable:hc=0,lc=0,bt=fh[1],bb=fh[1];
for i=1 to datacount do begin
if hc>1 then begin
if lc>2 and bt<=fh[i] then begin
buy[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc];
boxl[j]:=fl[i-lc];
end;
hc:=0;lc:=0;
end;
if bt>fh[i] then begin
if lc>2 then begin
if bb>=fl[i] then begin
sell[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc];
boxl[j]:=fl[i-lc];
end;
hc:=-1;lc:=0;
end else begin
boxh[i]:=fh[i-hc];
boxl[i]:=fl[i-lc];
end;
end;
hc:=hc+1;
if lc>1 then begin
if bb
lc:=lc+1;
if lc=3 then begin
signal[i-hc+1]:=1;
for j=i downto i-hc+1 do begin
boxh[j]:=fh[i-hc+1];
boxl[j]:=fl[i-lc+1];
end;
end;
end else lc:=0;
end else
if lc=1 then begin
if bb
lc:=lc+1;
end else lc:=0;
end;
if lc=0 and hc>1 then begin
bb:=fl[i];
lc:=lc+1;
end;
end else begin hc:=0; lc:=0; end;
end else
if hc=1 then begin
if bt>fh[i] then
hc:=hc+1
else begin hc:=0;lc:=0; end;
end;
if hc=0 then begin
bt:=fh[i];
hc:=hc+1;
end;
end;
中間線:partline(boxh and boxh=ref(boxh,1),(boxh-boxl)/2+boxl),colorff9900;
答(懶漢):
fh:=high;
fl:=low;
sell:=0*fh;
buy:=sell;
signal:=sell;
boxh:=sell,linethick0;
boxl:=sell,linethick0;
variable:hc=0,lc=0,bt=fh[1],bb=fh[1];
for i=1 to datacount do begin
if hc>1 then begin
if lc>2 and bt<=fh[i] then begin
buy[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc];
boxl[j]:=fl[i-lc];
end;
hc:=0;lc:=0;
end;
if bt>fh[i] then begin
if lc>2 then begin
if bb>=fl[i] then begin
sell[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc];
boxl[j]:=fl[i-lc];
end;
hc:=-1;lc:=0;
end else begin
boxh[i]:=fh[i-hc];
boxl[i]:=fl[i-lc];
end;
end;
hc:=hc+1;
if lc>1 then begin
if bb
lc:=lc+1;
if lc=3 then begin
signal[i-hc+1]:=1;
for j=i downto i-hc+1 do begin
boxh[j]:=fh[i-hc+1];
boxl[j]:=fl[i-lc+1];
end;
end;
end else lc:=0;
end else
if lc=1 then begin
if bb
lc:=lc+1;
end else lc:=0;
end;
if lc=0 and hc>1 then begin
bb:=fl[i];
lc:=lc+1;
end;
end else begin hc:=0; lc:=0; end;
end else
if hc=1 then begin
if bt>fh[i] then
hc:=hc+1
else begin hc:=0;lc:=0; end;
end;
if hc=0 then begin
bt:=fh[i];
hc:=hc+1;
end;
end;
u:=(boxh-boxl)/2+boxl;
w:=barslast(u>0);
中間線:ref(u,ref(w,1)+1)LINETHICK,colorff9900;
rz:=中間線;
zr:=if(rz<>ref(rz,1),ref(rz,1),rz);
partline(rz=ref(rz,1),rz),colorff9900;
partline(zr=ref(zr,1),zr),colorff9900;
STICKLINE(rz<>ref(rz,1),rz,zr,0.01,0),colorff9900;
答(阿遠(yuǎn)):
請(qǐng)?jiān)诠阶詈蠹由希?br> DRAWNUMBER(cross(boxh and boxh=ref(boxh,1),0.5),
(boxh-boxl)/2+boxl,(boxh-boxl)/2+boxl,2);
1025.問(wèn):
飛狐主圖改大智慧行嗎
主圖FZ辟邪
{N 2 1 100 N1 7 1 100 N2 79 1 100}
籌碼短期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,3)/(AMOUNT/VOL/100)/100));
籌碼中期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,5)/(AMOUNT/VOL/100)/100));
籌碼長(zhǎng)期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,13)/(AMOUNT/VOL/100)/100));
籌碼★期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,89)/(AMOUNT/VOL/100)/100));
Var32:=100*(MA(CLOSE,13)-REF(MA(CLOSE,13),1))/REF(MA(CLOSE,13),1)>0 OR 100*(籌碼中期-REF(籌碼中期,1))/REF(籌碼中期,1)>0 OR SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1),10,1)>80 OR SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1)>80 OR 3*SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1)-2*SMA(SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1),3,1)>0 OR CROSS(SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1),10,1),SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1));
Var33:=100*(MA(CLOSE,13)-REF(MA(CLOSE,13),1))/REF(MA(CLOSE,13),1)<0 AND 100*(籌碼中期-REF(籌碼中期,1))/REF(籌碼中期,1)<0 AND 100*(CLOSE-籌碼中期)/籌碼中期<0;
STICKLINE(Var32 AND OPEN>=CLOSE,OPEN,CLOSE,7,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN
STICKLINE(Var32 AND OPEN>CLOSE,HIGH,OPEN,0.8,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN>CLOSE,LOW,CLOSE,0.8,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN<=CLOSE,HIGH,CLOSE,0.8,0), ,colorred;
STICKLINE(Var32 AND OPEN<=CLOSE,LOW,OPEN,0.8,0), ,colorred;
STICKLINE(Var33,OPEN,CLOSE,7,0), ,colorcyan;
STICKLINE(Var33 AND OPEN>CLOSE,OPEN,CLOSE,7,0), ,colorcyan;
STICKLINE(Var33 AND OPEN
STICKLINE(Var33 AND OPEN<=CLOSE,HIGH,LOW,0.8,0), ,colorcyan;
STICKLINE(Var33 AND OPEN>CLOSE,OPEN,HIGH,0.8,1), ,colorcyan;
STICKLINE(Var33 AND OPEN>CLOSE,LOW,CLOSE,0.8,0), ,colorcyan;
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
終極黃金:STICKLINE(A>B,A,B,5,0),COLORYELLOW;
一卸千里:STICKLINE(A<>
Var1:=EMA(EMA(CLOSE,3),55);
Var2:=(REF(HIGH,1)+REF(LOW,1))/2;
Var3:=MA(CLOSE,N)+2*STD(CLOSE,N);
DRAWICON(CROSS(Var2,Var3),HIGH*1.035,5);
DRAWTEXT(CROSS(Var2,Var3),HIGH*1.02,'賣出1'), ,COLORgreen;
Var4:=REF(CLOSE,1);
Var5:=SMA(MAX(CLOSE-Var4,0),N1,1)/SMA(ABS(CLOSE-Var4),N1,1)*100;
Var6:=CROSS(N2,Var5);
Var7:=FILTER(Var6,4);
DRAWICON(Var7,HIGH*1.035,5);
DRAWTEXT(Var7,HIGH*1.02,'賣出2'), , COLORgreen;
A7:=(2*C+H+L)/4;
Var10:=LLV(LOW,34);
Var11:=HHV(HIGH,34);
SK:=EMA((A7-Var1)/(Var2-Var1)*100,7);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);
DRAWTEXT(IF(count(close6/10 and vol>=1.5*ma(vol,5) and
count(sk>=sd,3) and ref(low,1)=LLV(Low,120),1,0),LOW,'●買進(jìn)1') COLOR0099ff;
DRAWTEXT(IF(count(close6/10 and
count(sk>sd,6) and ref(low,5)=LLV(Low,120) and ref(close>=open,4) and
ref(close>open,3) and REF(CLOSE>OPEN,2) AND ref(open>close,1) and
open>ref(close,1),1,0),LOW,'●買進(jìn)2') COLOryellow;
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(if(CLOSEMA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08
AND CLOSE<>
答(廣州寶貝):
DZH的
{N 2 1 100 N1 7 1 100 N2 79 1 100}
籌碼短期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,3)/(AMOUNT/VOL/100)/100));
籌碼中期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,5)/(AMOUNT/VOL/100)/100));
籌碼長(zhǎng)期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,13)/(AMOUNT/VOL/100)/100));
籌碼★期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,89)/(AMOUNT/VOL/100)/100));
Var32:=100*(MA(CLOSE,13)-REF(MA(CLOSE,13),1))/REF(MA(CLOSE,13),1)>0 OR 100*(籌碼中期-REF(籌碼中期,1))/REF(籌碼中期,1)>0 OR SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1),10,1)>80 OR SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1)>80 OR 3*SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1)-2*SMA(SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1),3,1)>0 OR CROSS(SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1),10,1),SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1));
Var33:=100*(MA(CLOSE,13)-REF(MA(CLOSE,13),1))/REF(MA(CLOSE,13),1)<0 AND 100*(籌碼中期-REF(籌碼中期,1))/REF(籌碼中期,1)<0 AND 100*(CLOSE-籌碼中期)/籌碼中期<0;
STICKLINE(Var32 AND OPEN>=CLOSE,OPEN,CLOSE,7,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN
STICKLINE(Var32 AND OPEN>CLOSE,HIGH,OPEN,0.8,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN>CLOSE,LOW,CLOSE,0.8,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN<=CLOSE,HIGH,CLOSE,0.8,0), ,colorred;
STICKLINE(Var32 AND OPEN<=CLOSE,LOW,OPEN,0.8,0), ,colorred;
STICKLINE(Var33,OPEN,CLOSE,7,0), ,colorffaaff;
STICKLINE(Var33 AND OPEN>CLOSE,OPEN,CLOSE,7,0), ,colorffaaff;
STICKLINE(Var33 AND OPEN
STICKLINE(Var33 AND OPEN<=CLOSE,HIGH,LOW,0.8,0), ,colorffaaff;
STICKLINE(Var33 AND OPEN>CLOSE,OPEN,HIGH,0.8,1), ,colorffaaff;
STICKLINE(Var33 AND OPEN>CLOSE,LOW,CLOSE,0.8,0), ,colorffaaff;
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
終極黃金:STICKLINE(A>B,A,B,5,0),COLORYELLOW;
一卸千里:STICKLINE(A<>
Var1:=EMA(EMA(CLOSE,3),55);
Var2:=(REF(HIGH,1)+REF(LOW,1))/2;
Var3:=MA(CLOSE,N)+2*STD(CLOSE,N);
DRAWICON(CROSS(Var2,Var3),HIGH*1.035,2);
Var4:=REF(CLOSE,1);
Var5:=SMA(MAX(CLOSE-Var4,0),N1,1)/SMA(ABS(CLOSE-Var4),N1,1)*100;
Var6:=CROSS(N2,Var5);
Var7:=FILTER(Var6,4);
DRAWTEXT(Var7,HIGH*1.02,'賣出2'), , COLORlime;
A7:=(2*C+H+L)/4;
Var10:=LLV(LOW,34);
Var11:=HHV(HIGH,34);
SK:=EMA((A7-Var1)/(Var2-Var1)*100,7);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);
DRAWTEXT(IF(count(close6/10 and vol>=1.5*ma(vol,5) and
count(sk>=sd,3) and ref(low,1)=LLV(Low,120),1,0),LOW,'●買進(jìn)1'), COLOR0099ff;
DRAWTEXT(IF(count(close6/10 and
count(sk>sd,6) and ref(low,5)=LLV(Low,120) and ref(close>=open,4) and
ref(close>open,3) and REF(CLOSE>OPEN,2) AND ref(open>close,1) and
open>ref(close,1),1,0),LOW,'●買進(jìn)2'), COLOryellow;
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(if(CLOSEMA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08
AND CLOSE<>< font="">
1026.問(wèn):
為了方便對(duì)上市公司各季度、半年及年度業(yè)績(jī)預(yù)告的了解和分類;
請(qǐng)編寫一個(gè)簡(jiǎn)單的指標(biāo):《業(yè)績(jī)預(yù)告選股》。用這個(gè)指標(biāo)可以方便地選出:
預(yù)增、預(yù)盈、預(yù)虧、預(yù)警、預(yù)降的各類上市公司??梢栽谧赃x分類中建立相應(yīng)的板塊;
如:自選-預(yù)增,然后將其保在對(duì)應(yīng)的板塊中,以便隨時(shí)查用,省去了不少麻煩。
答(一笑生):
業(yè)績(jī)預(yù)告選股
A:=BARSCOUNT(C);
A1:=A=SYSPARAM(2);
A2:=A=SYSPARAM(1);
A3:=IF(0=0,A1,A2);
WW3:='業(yè)績(jī)預(yù)告:'+F10TEXT(F10FIND('【預(yù)',1),0);
DRAWTEXT(A3,0.6,WW3),COLORWHITE;
增:=F10FIND('【預(yù)增】',1);
預(yù)增:IF(增>0 AND ISLASTBAR,1,0),COLORRED;
盈:=F10FIND('【預(yù)盈】',1);
預(yù)盈:IF(盈>0 AND ISLASTBAR,1,0),COLORMAGENTA;
虧:=F10FIND('【預(yù)虧】',1);
預(yù)虧:IF(虧>0 AND ISLASTBAR,1,0),COLORCYAN;
警:=F10FIND('【預(yù)警】',1);
預(yù)警:IF(警>0 AND ISLASTBAR,1,0),COLORBLUE;
降:=F10FIND('【預(yù)降】',1);
預(yù)降:IF(降>0 AND ISLASTBAR,1,0),COLORGREEN;
未預(yù)告:預(yù)增=0 AND 預(yù)盈=0 AND 預(yù)虧=0 AND 預(yù)警=0 AND 預(yù)降=0,COLORWHITE;
1027.問(wèn):
把下列未來(lái)函數(shù)修改為上證大盤的!
ggkp:=if(zig(3,6)ref(zig(3,6),2),C,0);
dzkp:=if(ggkp>0 ,C,0);
tt:=BARSLAST(dzkp);
轉(zhuǎn):(C-ref(dzkp,tt))/ref(dzkp,tt)*100;
我的本意是在個(gè)股里指標(biāo)副圖下表示上述大盤的條件而且只能是上證指數(shù)條件成立為目的.
我在觀察各股的時(shí)候也能同時(shí)在個(gè)股里指標(biāo)副圖下知道上證大盤情況.
我的軟件是分析家的.
答(zmr666):
想起來(lái)了,新結(jié)構(gòu)波浪指標(biāo)的設(shè)計(jì)方法可以代替zig函數(shù),只是語(yǔ)句變復(fù)雜多了;
先分解一下你的語(yǔ)句中的含義:
ggkp:=if(zig(3,6)ref(zig(3,6),2),1,0);{見(jiàn)頂}
dzkp:=if(ggkp>0 ,c,0);{見(jiàn)頂日的收盤價(jià)}
tt:=BARSLAST(ggkp);{已經(jīng)見(jiàn)頂多少天}
轉(zhuǎn):=(c-ref(dzkp,tt))/ref(c,tt)*100;{大盤累積下跌幅度}
然后用下面的方法描述這段內(nèi)容,其中c換成上證指數(shù)的收盤價(jià):
A1:=REF("sh000001$close",3)=HHV("sh000001$close",2*3+14);
B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);{高點(diǎn)}
A2:=REF("sh000001$close",3)=LLV("sh000001$close",2*3+14);
B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);{低點(diǎn)}
E1:=(REF(LLV("sh000001$low",2*3),1)+REF(HHV("sh000001$high",2*3),1))/2;
E2:=("sh000001$HIGH"+"sh000001$LOW")/2;{高低點(diǎn)出現(xiàn)在同一K線上時(shí)可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT("sh000001$close")=1;
L1:=(D2 AND NOT(D1 AND E1=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,"sh000001$LOW",10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);{過(guò)濾后低點(diǎn)}
L2:=LD OR BARSTATUS=2 OR BARSCOUNT("sh000001$close")=1;
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,"sh000001$high",0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);{過(guò)濾后高點(diǎn)代替ggkp}
dzkp:=if(hd>0 ,"sh000001$close",0);
tt:=BARSLAST(dzkp);{已經(jīng)見(jiàn)頂多少天}
轉(zhuǎn):("sh000001$close"-ref(dzkp,tt))/ref(dzkp,tt)*100;{大盤累積下跌幅度}
DRAWICON(tt=0,hhv(轉(zhuǎn),5) ,5 );{標(biāo)注見(jiàn)頂日}
1028.問(wèn):
請(qǐng)問(wèn)改變周期時(shí),本公式周期不跟隨改變,始終按自設(shè)周期顯示怎么寫?
答(股市浪子):
另外寫一個(gè)公式調(diào)用數(shù)據(jù),用STKINDI('','XXXX.YYY',0,N),其中的XXXX為所調(diào)用的公式名,
YYY為調(diào)用該公式的指標(biāo),N為調(diào)用該指標(biāo)的周期(與調(diào)出K線的數(shù)字相同)。
1029.問(wèn):
請(qǐng)教著段公式的含義。
ls:=c/ref(c,1)>1.03 and between(forcast(V,4),0.2*forcast(v,12),2.1*forcast(v,12));
拉升:filter(ls,42)*100,colorred;
還想加上一句股價(jià)在20線上 著句怎么寫
答(一鳴):
(股價(jià)在20線上已加上)
ls:=c/ref(c,1)>1.03 and between(forcast(V,4),0.2*forcast(v,12),2.1*forcast(v,12)) and c>ma(c,20);
//今日漲幅大于3%,且成交量的12周期線性回歸預(yù)測(cè)值*0.2<成交量的4周期線性回歸預(yù)測(cè)值<成交量的12周期線性回歸預(yù)測(cè)值*2.1
拉升:filter(ls,42)*100,colorred; //若ls條件符合,則當(dāng)日拉升值設(shè)為100,且其后42天內(nèi)不再出現(xiàn)信號(hào)
1030.問(wèn):
上一次上漲走勢(shì)"最后那根"K線的成交量大于上一次下跌走勢(shì)"第一根"K線成交量。
k2:=cross(ma(c,2)+0.0001,c);
bk21:=sumbars(k2,1);
v2:=ref(v,bk21-1);
ref(v,bk21)>ref(v2,bk21);
我想把它調(diào)換一下改編為:上一次上漲走勢(shì)"第一根"K線的成交量大于上一次下跌走勢(shì)"
最后那根"K線的成交量。(注:其實(shí)就是原來(lái)公式的"最后那根"和"第一根"位置前后調(diào)換)
答(一鳴):
{先下跌后上漲為一波
上一次‘上漲走勢(shì)’第一根K線成交量大于上一次‘下跌走勢(shì)’最后一根K線成交量。
不包括正在上漲或正在下跌的走勢(shì) by 一鳴}
k1:=cross(c,ma(c,2)+0.0001);
k2:=cross(ma(c,2)+0.0001,c);
bk11:=sumbars(k1,1);
bk21:=sumbars(k2,1);
v1:=ref(ref(v,bk11-1),bk21-1);
v2:=ref(ref(v,bk11),bk21-1);
v1>v2;
1031.問(wèn):
7DAYS-永勝的原碼能提供嗎
答(tdj888):
源碼如下:
W1:=DMA(EMA(CLOSE,12),((SUM(VOL,5) / 3) / CAPITAL));
W2:=(((((CLOSE - W1) / W1) * 100) + 30) - (((REF(HIGH,13) / CLOSE) - 1.35) * 100));
W3:=((((CLOSE - REF(CLOSE,5)) / CLOSE) * 100) < (0 - 9));
HL:=WINNER(CLOSE);
ZT:=(EMA((((INDEXC - MA(INDEXC,10)) / INDEXC) * 100),14) < (0 - 4.9));
HR:=((((MA(VOL,5) - VOL) / CAPITAL) * 100) < 0.8);
LB:=(((VOL - MA(VOL,21)) / VOL) * 100);
MR:=((((ZT AND W3) AND (HL < 0.12)) AND HR) AND (LB > 18));
CCRR:=MA(OPEN,1);
CCRRD:=(((((((CCRR / 22.41) = 1) OR ((CCRR / 1.46) = 1)) OR ((CCRR / 1.9) = 1)) OR ((CCRR / 10.74) = 1)) OR ((CCRR / 2.29) = 1)) OR ((CCRR / 1.09) = 1));
CDBB:=(FILTER(((W2 < (0 - 8.1)) AND (MR = 1)),21) AND (CCRRD = 0));
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=((3 * K) - (2 * D));
KK:=INTPART(SMA(RSV,3,1));
DD:=INTPART(SMA(K,3,1));
JJ:=INTPART(((3 * K) - (2 * D)));
XJYY:=(((CLOSE - MA(CLOSE,42)) / MA(CLOSE,42)) * 100);
無(wú)敵:=CROSS(XJYY,(0 - 28));
十九:=CROSS((0 - 28),XJYY);
小天:=(無(wú)敵 OR 十九);
N:=(KK + DD);
OO:=(N < 80);
OO1:=(N < 70);
OO2:=(N < 60);
XTT:=MA(OPEN,1);
XTT1:=(((((((((XTT / 6.75) = 1) OR ((XTT / 2.16) = 1)) OR ((XTT / 4.2) = 1)) OR ((XTT / 3.55) = 1)) OR ((XTT / 1.66) = 1)) OR ((XTT / 4.75) = 1)) OR ((XTT / 2.7) = 1)) OR ((XTT / 1.09) = 1));
KX:=((REF(OO2,1) AND REF(OO2,13)) AND (((REF(OO1,126) OR REF(OO1,180)) OR REF(OO1,225)) OR REF(OO1,456)));
KX1:=(((REF(OO2,153) AND REF(OO2,43)) OR (REF(OO,46) AND REF(OO,341))) OR ((REF(OO,3) AND REF(OO,76)) AND REF(OO2,28)));
KKDDJ:=((KX OR KX1) AND (((REF(OO,28) OR REF(OO,51)) OR REF(OO,126)) OR REF(OO,136)));
F1:=((CLOSE / REF(CLOSE,1)) > 1.09);
F2:=(VOL < MA(VOL,2));
F3:=((CLOSE / REF(CLOSE,44)) < 0.8);
F4:=((CLOSE / REF(CLOSE,60)) < 0.7);
KX2:=(F1 AND ((F2 OR F3) OR F4));
XTCBB:=((小天 AND KKDDJ) AND KX2);
XTCBB1:=(XTCBB AND (XTT1 = 0));
YJ1:=MA(OPEN,1);
YJ11:=(((((YJ1 / 1.99) = 1) OR ((YJ1 / 31.88) = 1)) OR ((YJ1 / 6.5) = 1)) OR ((YJ1 / 1.09) = 1));
VAR1YJ:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);
VAR2YJ:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);
VAR3YJ:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);
VAR4YJ:=REF(CLOSE,1);
VAR5YJ:=((SMA(MAX((CLOSE - VAR4YJ),0),5,1) / SMA(ABS((CLOSE - VAR4YJ)),5,1)) * 100);
VAR6YJ:=(((HIGH + LOW) + CLOSE) / 3);
VAR22YJ:=((VAR6YJ - MA(VAR6YJ,14)) / (0.015 * AVEDEV(VAR6YJ,14)));
VAR7YJ:=(((((((VAR1YJ >= (0 - 15.8)) AND (VAR1YJ <= (0 - 12.2))) AND (VAR2YJ <= (0 - 20.8))) AND (VAR3YJ <= (0 - 27.5))) AND (VAR5YJ <= 11.7)) AND (VAR22YJ <= (0 - 145))) * 100);
YJGSYJ:=(IF((VAR7YJ > 0),1,0) AND (YJ11 = 0));
FT:=MA(OPEN,1);
FT1:=(((((((((FT / 5.15) = 1) OR ((FT / 2.08) = 1)) OR ((FT / 5.56) = 1)) OR ((FT / 1.77) = 1)) OR ((FT / 14.5) = 1)) OR ((FT / 8.15) = 1)) OR ((FT / 9.93) = 1)) OR ((FT / 1.09) = 1));
DBFT1:=((((((((((CLOSE > OPEN) AND (OPEN = LOW)) AND (OPEN < REF(CLOSE,1))) AND (CLOSE < MA(CLOSE,5))) AND (CLOSE < MA(CLOSE,60))) AND (REF(CLOSE,1) > REF(CLOSE,2))) AND (REF(CLOSE,2) < REF(CLOSE,3))) AND ((REF(CLOSE,3) / REF(CLOSE,2)) > 1.038)) AND ((REF(CLOSE,1) / REF(CLOSE,2)) > 1.038)) AND (VOL < (2 * REF(VOL,1))));
DBFT:=(DBFT1 AND (FT = 0));
FT530:=MA(OPEN,1);
FT1530:=(((((((((FT530 / 8.48) = 1) OR ((FT530 / 8.65) = 1)) OR ((FT530 / 2.25) = 1)) OR ((FT530 / 2.38) = 1)) OR ((FT530 / 18.6) = 1)) OR ((FT530 / 16.5) = 1)) OR ((FT530 / 16) = 1)) OR ((FT530 / 16.8) = 1));
VAR1530:=INDEXC;
VAR2530:=MA(VAR1530,6);
VAR3530:=MA(VAR1530,24);
VAR4530:=MA(VAR1530,32);
VAR5530:=MA(VAR1530,62);
VAR6530:=MA(VAR1530,105);
VAR7530:=(((VAR5530 < REF(VAR5530,1)) AND (VAR6530 < REF(VAR6530,1))) AND (VAR5530 < (VAR6530 * 0.98)));
VAR8530:=((VAR4530 > (VAR2530 * 1.11)) AND (VAR3530 > (VAR2530 * 1.095)));
VAR9530:=(VAR2530 > (VAR1530 * 0.95));
VAR8530:=(((((VAR7530 AND VAR8530) AND VAR9530) AND ((CLOSE / COST(8)) <= 0.8)) AND ((CLOSE > OPEN) OR (CLOSE < OPEN))) AND ((REF(CLOSE,1) > REF(OPEN,1)) OR (REF(CLOSE,1) < REF(OPEN,1))));
VAR9530:=(VAR8530 AND (FT1530 = 0));
VAR9530:=(STRCMP(STKLABEL,'600711') = 0);
J1NL:=(STRCMP(STKLABEL,'600867') = 0);
J2NL:=(STRCMP(STKLABEL,'600067') = 0);
J3NL:=(STRCMP(STKLABEL,'000767') = 0);
J4NL:=(STRCMP(STKLABEL,'000782') = 0);
J5NL:=(STRCMP(STKLABEL,'600365') = 0);
J6NL:=(STRCMP(STKLABEL,'600550') = 0);
J7NL:=(STRCMP(STKLABEL,'600540') = 0);
J8NL:=(STRCMP(STKLABEL,'000060') = 0);
J9NL:=((((((((VAR9530 OR J1NL) OR J2NL) OR J3NL) OR J4NL) OR J5NL) OR J6NL) OR J7NL) OR J8NL);
JJNL:=(88 * (J9NL = 1));
RSV:=(((CLOSE - LLV(LOW,26)) / (HHV(HIGH,26) - LLV(LOW,26))) * 100);
JJJNL:=SMA(RSV,13,8);
K:=SMA(JJJNL,9,8);
D:=SMA(K,10,8);
FASTK:=MA(VOL,3);
VAR3666:=REF(FASTK,1);
VAR4666:=((((((((((((REF(CLOSE,2) / REF(OPEN,2)) < 0.95) AND (REF(OPEN,1) < REF(CLOSE,2))) AND (REF(OPEN,1) < REF(CLOSE,1))) AND ((CLOSE / OPEN) > 1.05)) AND (CLOSE > REF(HIGH,2))) AND CROSS(K,D)) AND (K < 40)) AND (D < 30)) AND (VOL >= (MA(VOL,5) * 2))) OR ((((((CLOSE / OPEN) > 1.06) AND ((HIGH / LOW) < ((CLOSE / OPEN) + 0.018))) AND CROSS(K,D)) AND (K < 20)) AND (D < 30))) OR (((((VOL / VAR3666) > 0.5) AND (((VOL / CAPITAL) * 100) > 2)) AND ((CLOSE / OPEN) > 1.08)) AND ((HIGH / LOW) < ((CLOSE / OPEN) + 0.01))));
VAR5666:=(VAR4666 AND JJNL);
VAR6666:=(STRCMP(STKLABEL,'600093') = 0);
J1LS:=(STRCMP(STKLABEL,'600169') = 0);
J2LS:=(STRCMP(STKLABEL,'600278') = 0);
J3LS:=(STRCMP(STKLABEL,'000339') = 0);
J4LS:=(STRCMP(STKLABEL,'600371') = 0);
J5LS:=(STRCMP(STKLABEL,'600576') = 0);
J6LS:=(STRCMP(STKLABEL,'600753') = 0);
J7LS:=(STRCMP(STKLABEL,'600805') = 0);
J8LS:=(STRCMP(STKLABEL,'600634') = 0);
J9LS:=(STRCMP(STKLABEL,'000635') = 0);
J10LS:=(((((((((VAR6666 OR J1LS) OR J2LS) OR J3LS) OR J4LS) OR J5LS) OR J6LS) OR J7LS) OR J8LS) OR J9LS);
JJLS:=(88 * (J10LS = 1));
JJJLS:=(AMOUNT / VOL);
AA11:=(LOW < (JJJLS * 0.9));
BB11:=((((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100) > 1.2);
CC11:=(LOW < (MA(CLOSE,5) * 0.921));
DD11:=(VOL < (MA(VOL,5) * 6.5));
EE11:=((((AA11 AND BB11) AND CC11) AND DD11) AND JJLS);
LSCX:=(STRCMP(STKLABEL,'600148') = 0);
J111:=(STRCMP(STKLABEL,'600262') = 0);
J211:=(STRCMP(STKLABEL,'600604') = 0);
J311:=(STRCMP(STKLABEL,'600400') = 0);
J411:=(STRCMP(STKLABEL,'600627') = 0);
J511:=(STRCMP(STKLABEL,'600685') = 0);
J611:=(STRCMP(STKLABEL,'600804') = 0);
J711:=(STRCMP(STKLABEL,'600708') = 0);
J811:=(STRCMP(STKLABEL,'600840') = 0);
J911:=(STRCMP(STKLABEL,'600876') = 0);
J1011:=(STRCMP(STKLABEL,'000007') = 0);
J1012:=(STRCMP(STKLABEL,'000023') = 0);
J1013:=(STRCMP(STKLABEL,'000029') = 0);
J1014:=(STRCMP(STKLABEL,'000038') = 0);
J1015:=(STRCMP(STKLABEL,'000056') = 0);
J1016:=(STRCMP(STKLABEL,'000503') = 0);
J1017:=(STRCMP(STKLABEL,'000532') = 0);
J1018:=(STRCMP(STKLABEL,'000586') = 0);
J1019:=(STRCMP(STKLABEL,'000605') = 0);
J1020:=(STRCMP(STKLABEL,'000728') = 0);
J1021:=(STRCMP(STKLABEL,'000531') = 0);
J1022:=(STRCMP(STKLABEL,'600073') = 0);
J1023:=(((((((((((((((((((((LSCX OR J111) OR J211) OR J311) OR J411) OR J511) OR J611) OR J711) OR J811) OR J911) OR J1011) OR J1012) OR J1013) OR J1014) OR J1015) OR J1016) OR J1017) OR J1018) OR J1019) OR J1020) OR J1021) OR J1022);
JJL11:=(88 * (J1023 = 1));
JJJL11:=(CLOSE <= OPEN);
VAR1FT:=(CLOSE > OPEN);
VAR2FT:=DMA(EMA(CLOSE,12),((SUM(VOL,5) / 3) / CAPITAL));
VAR3FT:=(((CLOSE - VAR2FT) / VAR2FT) * 100);
VAR4FT:=(((((REF(VAR3FT,1) < (0 - 32)) AND (VAR3FT > REF(VAR3FT,1))) AND (REF(VAR3FT,1) < REF(VAR3FT,2))) AND ((VAR3FT - REF(VAR3FT,1)) > 2.5)) AND ((REF(VAR3FT,2) - REF(VAR3FT,1)) > 1));
VAR5FT:=((((((((((((((((VAR1FT AND REF(JJJL11,1)) AND REF(JJJL11,2)) AND REF(JJJL11,3)) AND REF(JJJL11,4)) AND REF(JJJL11,5)) AND REF(VAR1FT,6)) AND (HIGH < REF(HIGH,60))) AND (HIGH < REF(HIGH,120))) AND (HIGH < REF(CLOSE,200))) AND ((REF(SUM(VOL,5),1) / FINANCE(7)) < 2.5)) AND ((VAR3FT - REF(VAR3FT,1)) > 2)) AND (((REF(HIGH,1) - REF(CLOSE,2)) / REF(CLOSE,2)) < 0.05)) AND (((REF(HIGH,4) - REF(CLOSE,5)) / REF(CLOSE,5)) < 0.05)) AND (((REF(HIGH,2) - REF(CLOSE,3)) / REF(CLOSE,3)) < 0.05)) AND (((REF(HIGH,3) - REF(CLOSE,4)) / REF(CLOSE,4)) < 0.05)) AND (COUNT((INDEXC > INDEXO),6) > 1));
VAR6FT:=(VAR4FT OR VAR5FT);
VAR7FT:=(VAR6FT AND JJL11);
VAR8FT:=((((((OPEN <= EMA(CLOSE,5)) AND (CLOSE = HIGH)) AND ((CLOSE / OPEN) >= (1.1 + ((7.16 * 7.16) / 1000)))) AND ((VOL / CAPITAL) >= 0.02)) AND ((VOL / CAPITAL) <= 0.2)) AND (CLOSE >= (HHV(HIGH,100) * 0.98)));
W40T20%100%:=(((HHV(HIGH,36) - CLOSE) / (HHV(HIGH,36) - LLV(LOW,36))) * 100);
VAR1ZZ:=SMA(W40T20%100%,5,1);
VAR2ZZ:=(((CLOSE - LLV(LOW,8)) / (HHV(HIGH,8) - LLV(LOW,8))) * 100);
VAR3ZZ:=SMA(VAR2ZZ,2,1);
VAR4ZZ:=(((MA((VOL / CAPITAL),30) * MA(VOL,60)) / 10000) + (MA(CLOSE,30) * 8));
VAR5ZZ:=(((MA((VOL / CAPITAL),30) * MA(VOL,60)) / 10000) + MA(CLOSE,30));
VAR6ZZ:=((((((REF(CLOSE,2) / REF(OPEN,2)) < 0.88) AND (REF(OPEN,1) < REF(CLOSE,2))) AND ((ABS((REF(OPEN,1) - REF(CLOSE,1))) / REF(CLOSE,1)) < 0.04)) AND ((CLOSE / OPEN) > 1.07)) AND (CLOSE > REF(CLOSE,2)));
VAR7ZZ:=(CLOSE > REF(CLOSE,1));
VAR1YS:=(VOL < MA(VOL,5));
VAR2YS:=(VOL < REF(VOL,1));
VAR3YS:=(((CLOSE - OPEN) / REF(CLOSE,1)) > 0.1);
VAR4YS:=(COUNT((((SMA(MAX((CLOSE - REF(CLOSE,1)),0),6,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),6,1)) * 100) < 10),20) >= 1);
VAR5YS:=((((VAR7ZZ AND VAR1YS) AND VAR2YS) AND VAR3YS) AND VAR4YS);
VAR6YS:=MA(OPEN,1);
FGD:=(((((VAR6YS / 12.5) = 1) OR ((VAR6YS / 6.86) = 1)) OR ((VAR6YS / 2.95) = 1)) OR ((VAR6YS / 5.96) = 1));
FGD1:=STKINDI('1A0001','kdj.k',0,7);
AAGD:=STKINDI('1A0001','kdj.d',0,7);
BBGD:=STKINDI('','EXPMA.ma4',0,7);
CCGD:=IF(((CROSS(FGD1,AAGD) AND (FGD1 < 50)) AND (BBGD < CLOSE)),50,0);
MMCGD:=(((CCGD AND ((VOL / CAPITAL) <= 0.01)) AND ((CLOSE / OPEN) > 1.05)) AND (FGD = 0));
永勝:(((((((((((CDBB OR XTCBB1) OR YJGSYJ) OR DBFT) OR VAR9530) OR VAR5666) OR EE11) OR VAR7FT) OR VAR8FT) OR VAR6ZZ) OR VAR5YS) OR MMCGD);
這個(gè)公式明顯有作弊的行為,請(qǐng)看以下代碼:
J1LS:=(STRCMP(STKLABEL,'600169') = 0);
J2LS:=(STRCMP(STKLABEL,'600278') = 0);
J3LS:=(STRCMP(STKLABEL,'000339') = 0);
J4LS:=(STRCMP(STKLABEL,'600371') = 0);
J5LS:=(STRCMP(STKLABEL,'600576') = 0);
J6LS:=(STRCMP(STKLABEL,'600753') = 0);
J7LS:=(STRCMP(STKLABEL,'600805') = 0);
J8LS:=(STRCMP(STKLABEL,'600634') = 0);
J9LS:=(STRCMP(STKLABEL,'000635') = 0);
LSCX:=(STRCMP(STKLABEL,'600148') = 0);
J111:=(STRCMP(STKLABEL,'600262') = 0);
J211:=(STRCMP(STKLABEL,'600604') = 0);
J311:=(STRCMP(STKLABEL,'600400') = 0);
J411:=(STRCMP(STKLABEL,'600627') = 0);
J511:=(STRCMP(STKLABEL,'600685') = 0);
J611:=(STRCMP(STKLABEL,'600804') = 0);
J711:=(STRCMP(STKLABEL,'600708') = 0);
J811:=(STRCMP(STKLABEL,'600840') = 0);
J911:=(STRCMP(STKLABEL,'600876') = 0);
J1011:=(STRCMP(STKLABEL,'000007') = 0);
J1012:=(STRCMP(STKLABEL,'000023') = 0);
J1013:=(STRCMP(STKLABEL,'000029') = 0);
J1014:=(STRCMP(STKLABEL,'000038') = 0);
J1015:=(STRCMP(STKLABEL,'000056') = 0);
J1016:=(STRCMP(STKLABEL,'000503') = 0);
J1017:=(STRCMP(STKLABEL,'000532') = 0);
J1018:=(STRCMP(STKLABEL,'000586') = 0);
J1019:=(STRCMP(STKLABEL,'000605') = 0);
J1020:=(STRCMP(STKLABEL,'000728') = 0);
J1021:=(STRCMP(STKLABEL,'000531') = 0);
J1022:=(STRCMP(STKLABEL,'600073') = 0);
1032.問(wèn):
請(qǐng)問(wèn)N天的漲幅在解盤顯示,怎寫
答(kjyhao):
試試:
input:n(5);
漲幅:=(c-ref(c,n))/ref(c,n)*100;
EXPLAIN(c, 'N天的漲幅'+numtostr(漲幅,3));
答(一鳴):
{N天內(nèi)的跌幅解盤 飛狐 }
input:n(5);
跌幅:=(ref(c,n)/c-1)*100;
EXPLAINEX(c<',跌幅,2,1); font="" <="">
1033.問(wèn):
在1分鐘周期內(nèi)顯示5分鐘周期的k線如何表達(dá)(于付圖中),
答(znz2002):
1.建一個(gè)引用指標(biāo)
HQSJ
CC:CLOSE;HH:HIGH;LL:LOW;OO:OPEN;
量:VOL;額:AMOUNT;
DD:DATE;
OO:=引用指標(biāo)('','HQSJ.OO',0,N);
CC:=引用指標(biāo)('','HQSJ.CC',0,N);
HH:=引用指標(biāo)('','HQSJ.HH',0,N);
LL:=引用指標(biāo)('','HQSJ.LL',0,N);
2.原碼
INPUT:N(2,2,5);
M:=IF(N=2,5,IF(N=3,15,IF(N=4,30,60)));
WAR00:=OPENMINUTES(TIME);
WAR01:=MOD(WAR00,M);
WAR02:=BARSLAST(WAR01=1)+1;
WAR03:=CEILING(M/2);
OO:=STKINDI('','HQSJ.OO',0,N);
CC:=STKINDI('','HQSJ.CC',0,N);
HH:=STKINDI('','HQSJ.HH',0,N);
LL:=STKINDI('','HQSJ.LL',0,N);
STICKLINE(CC>=OO AND WAR02=WAR03,HH,LL,N,0),COLORRED;
STICKLINE(CCSTICKLINE(CC>=OO,OO,CC,10,0),COLORRED;
STICKLINE(CC<>
MA1:MA(STKINDI('','MA.MA1',0,N),5),COLORWHITE;
MA2:MA(STKINDI('','MA.MA2',0,N),5),COLORYELLOW;
MA3:MA(STKINDI('','MA.MA3',0,N),5),COLORRED;
MA4:MA(STKINDI('','MA.MA4',0,N),5),COLORGREEN;
DRAWTEXT(N=2 AND BARPOS=SYSPARAM(2),H,'5分鐘K線'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=3 AND BARPOS=SYSPARAM(2),H,'15分鐘K線'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=4 AND BARPOS=SYSPARAM(2),H,'30分鐘K線'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=5 AND BARPOS=SYSPARAM(2),H,'60分鐘K線'),ALIGN4,COLORYELLOW;
1034.問(wèn):
我參照量化思路一書(shū)源碼想在主圖上加條線造個(gè)大盤線(主圖疊加),
但源碼寫上了飛狐卻通不過(guò),請(qǐng)問(wèn)如何解決?
INPUT:N(100,2,1000);
ZJ:=BACKSET(ISLASTPERIOD,M);
ZX:=ZJ.REF(ZJ,1);
常數(shù):=REF(INDEXC,BARSLAST(ZX))/REF(C,BARSLAST(ZX));
大盤線:INDEXC//常數(shù),COLORBLUE;
答(懶漢):
可見(jiàn)區(qū)域疊加
pc:=INDEXC;
s2:=SYSPARAM(2);
cc:=c;
b:=cc[s2]/pc[s2];
pc*b;
最后N個(gè)周期疊加
INPUT:N(100,2,1000);
s3:=SYSPARAM(3)-N;
w:=barslast(barpos=s3)*0;
pc:=INDEXC+w;
cc:=c+w;
bN:=cc[s3]/pc[s3];
bn*pc;
1035.問(wèn):
怎樣將RSI指標(biāo)放在主圖上
答(xyqzhx):
LC := REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),10,1)/SMA(ABS(CLOSE-LC),10,1),linethick0;
q:=SYSPARAM(3)-SYSPARAM(2);
p:=SYSPARAM(3);
kh:=hhv(h,q);
kL:=LLv(L,q);
rh:=hhv(rsi,q);
rL:=LLv(rsi,q);
br:=(kh-kL)/(rh-rL);
wr:=(kh+kL-(rh+rL)*br)/2;
PARTLINE(1,rsi*br[p]+wr[p]),COLORMAGENTA,LINETHICK2;
答(xyqzhx):
INPUT:N(5,1,100),N1(10,2,100),N2(20,2,200),P(40,2,200);
A:=EMA(C,20);
LC :=REF(C,1);
RSI1:=SMA(MAX(C-LC,0),N,1)/SMA(ABS(C-LC),N,1);
RSI2:=(RSI1-0.5)/3.8*A;
RSI3:RSI2+A,,COLORMAGENTA;
RSI1a:=SMA(MAX(C-LC,0),N1,1)/SMA(ABS(C-LC),N1,1);
RSI2a:=(RSI1a-0.5)/3.8*A;
RSI3a:RSI2a+A,,COLORYELLOW;
RSI1b:=SMA(MAX(C-LC,0),N2,1)/SMA(ABS(C-LC),N2,1);
RSI2b:=(RSI1b-0.5)/3.8*A;
RSI3b:RSI2b+A,;
UPPER:RSI3b+P*STD(RSI3b,10)/10,,COLORFF8918;
LOWER:RSI3b-P*STD(RSI3b,10)/10,,COLOR5290FF;
答(xyqzhx):
RSI箱體
Var12:=REF(CLOSE,1);
Var22:=MA(CLOSE,5);
Var3:=SMA(MAX(CLOSE-Var12,0),12,1)/SMA(ABS(CLOSE-Var12),12,1)*100;{12日RSI指標(biāo)}
var33:=((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50),COLORRED;
var333:=(var3+var33)/2;
RSI12日:CLOSE+(var333/50-1)*(MA(CLOSE,30)/20)*3,coloryellow,linethick1;{轉(zhuǎn)換為主圖}
{箱型區(qū)間操作指標(biāo)}
hh:=h;ll:=l;
top:=h;
bot:=l;
xx[1]:=1;
kk:=1;
for i=1 to datacount do begin
if xx[i]=1 then begin
top[i]:=hh[i];
end;
if xx[i-1]=1 then begin
if hh[i]>top[i-1] then begin
top[i]:=hh[i];
xx[i]:=1;
end;else begin
top[i]:=top[i-1];
xx[i]:=2;
end;
end;
if xx[i-1]=2 then begin
if hh[i]>top[i-1] then begin
top[i]:=hh[i];
xx[i]:=1;
end;else begin
top[i]:=top[i-1];
bot[i]:=ll[i];
xx[i]:=3;
end;
end;
if xx[i-1]=3 then begin
top[i]:=top[i-1];
if ll[i]< bot [i-1] then begin
bot[i]:=ll[i];
xx[i]:=3;
end;else begin
bot[i]:=bot[i-1];
xx[i]:=4;
end;
end;
if xx[i-1]=4 then begin
top[i]:=top[i-1];
if ll[i]
bot[i]:=ll[i];
xx[i]:=3;
end;else begin
bot[i]:=bot[i-1];
xx[i]:=5;
end;
end;
if xx[i-1]=5 then begin
if ll[i] top[i-1] then begin
top[i]:=hh[i];
bot[i]:=hh[i];
xx[i]:=1;
end;else begin
bot[i]:=bot[i-1];
top[i]:=top[i-1];
xx[i]:=5;
end;
end;
end;
for j=1 to datacount do begin
if xx[j]=5 and xx[j-1]=4 then begin
for k=j-1 downto j-kk do begin
top[k]:=top[j];
bot[k]:=bot[j];
end;
end;
if xx[j-1]=5 and xx[j]=1 then kk:=0;
kk:=kk+1;
end;
jj:=BARSLAST(top<>ref(top,1));
STICKLINE(top,top,top,10,1),colorcyan;
drawnumber(top<>ref(top,1),ref(top,jj)*1.015 ,(top-bot)*100/bot,2) colorff9900;
STICKLINE(bot,bot,bot,10,1),colorcyan;
drawnumber(top<>ref(top,1),ref(bot,jj)*0.99,top-bot ,2) colorgreen ;
DRAWICON(cross(h,ref(top,1)) and xx=1 and ref(xx,1)=5,h*1.05,5);
DRAWICON(cross(ref(bot,1),l) and xx=1 and ref(xx,1)=5,l*0.985,4);
1036.問(wèn):
怎樣寫分析家和飛狐的主圖的左上角顯示提示性的文字
答(乘風(fēng)333 ):
分析家的主圖的左上角顯示提示性的文字
分析家的.
解:='總股本='+NUMTOSTRN(FINANCE(1) ,0 )+'萬(wàn)股'+' 流通A股='
+ NUMTOSTRN(FINANCE(7),0)+'萬(wàn)股'+' 凈資產(chǎn)='+NUMTOSTRN(FINANCE(34),2 ) +
' 收益='+ NUMTOSTRN(FINANCE(33),2)+' 公積金='+
NUMTOSTRN(FINANCE(18),2)+' 市盈率='+NUMTOSTRN(DYNAINFO(39),2)+
' 振幅='+ NUMTOSTRN((h/l-1)*100,2)+'%'+' 換手率='+
NUMTOSTRN(100*VOL/CAPITAL,2)+'%';
if DISPSTATUS=2 then af:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;
d:=af-b;
e:=hhv(h,d);
DRAWTEXT(1, e*1,解),ColorBCFF8B,ALIGN2;
答(乘風(fēng)333 ):
飛狐的.
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,{STKNAME+'\n'+STKLABEL+'\n'+}BLKNAME)align4,COLORGREEN;
DRAWTEXT(sysparam(2)=BARPOS,c,'總股本='+NUMTOSTR(FINANCE(1) ,0 )+'萬(wàn)股'+' 流通A股='
+ NUMTOSTR(FINANCE(7),0)+'萬(wàn)股'+' 凈資產(chǎn)='+NUMTOSTR(FINANCE(34),2 ) +
' 收益='+ NUMTOSTR(FINANCE(33),2)+' 公積金='+
NUMTOSTR(FINANCE(18),2)+' 市盈率='+NUMTOSTR(DYNAINFO(39),2)+
' 振幅='+ NUMTOSTR((h/l-1)*100,2)+'%'+' 換手率='+
NUMTOSTR(100*VOL/CAPITAL,2)+'%'),COLORccffcc,ALIGN5;
1037.問(wèn):
如何能把五彩K線的曙光初現(xiàn)和早晨之星加入K線圖顯示文字?
曙光初現(xiàn):
BACKSET(
REF(CLOSE,1)/REF(OPEN,1)<0.97 AND
CLOSE/OPEN>1.03 AND
OPEN
CLOSE>REF(CLOSE,1),
2)
早晨之星:
BACKSET(
REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND
REF(OPEN,1) < REF(CLOSE,2) AND
ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2),3)
答(馨蕓):
試試
ff:=BACKSET(REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03
AND OPENREF(CLOSE,1),2);
drawtext(ff=1 and ref(ff,1)=1,L*0.975,'曙光初?'),colorred;
gg:=BACKSET(REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2)
AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2),3);
drawtext(gg=1 and ref(gg,1)=1,L*0.975,'早晨之星'),coloryellow;
1038.問(wèn):
能否把下面這段改為分析家,謝謝!
partline(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓,鼠變異),Linethick2,colorff66ff;
partline(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu=1,鼠變異),Linethick2;
partline(鼠變異>ref(鼠變異,1) and 鼠變異<>招財(cái)貓,鼠變異);
explain(c>zx and c>=life,'老鼠出洞了,逮住它!'),colorff;
explain(c>zx and c>snook and c<>
explain(c>zx and c<=snook,'老鼠露尾巴,動(dòng)作快!'),colorff00;
explain(c<=zx,'老鼠沒(méi)有了,打個(gè)盹!'),color808080;
explain(鼠變異>ref(鼠變異,1) and 鼠變異<>招財(cái)貓,'發(fā)現(xiàn)鼠跡!'),colorff00;
explain(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu<>1,'瞬間鼠影!'),colorff66ff;
explain(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu=1,'惡鼠難遁!'),colorff;
explain(c>zx and ma20=0,'老鼠去哪里,思考哦!'),colorffff;
答(無(wú)名山人):
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓),Linethick2,colorff66ff;
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu=1),Linethick2;
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異<>招財(cái)貓);
TIPTEXT(c>zx and c>=life,0,'老鼠出洞了,逮住它!');
TIPTEXT(c>zx and c>snook and c<>
TIPTEXT(c>zx and c<=snook,0,'老鼠露尾巴,動(dòng)作快!');
TIPTEXT(c<=zx,0,'老鼠沒(méi)有了,打個(gè)盹!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異<>招財(cái)貓,0,'發(fā)現(xiàn)鼠跡!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu<>1,0,'瞬間鼠影!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu=1,0,'惡鼠難遁!');
TIPTEXT(c>zx and ma20=0,0,'老鼠去哪里,思考哦!');
1039.問(wèn):
10日線已經(jīng)上升了6天怎么寫啊
答(xiaotian):
COUNT(ma(c,10)>ref(ma(c,10),1),6)=6;
1040.問(wèn):
公式1
CCI順勢(shì)指標(biāo)源碼 :
參數(shù):N 14
TYP := (HIGH + LOW + CLOSE)/3;
(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N));
請(qǐng)教老師如何選出CCI值在-150以下的個(gè)股?
公式2
(一 )5日均線上穿10日均線。(二 )5日,10日均線是上升的。請(qǐng)老師編 個(gè)一. 二. 同時(shí)成立分析家選股公式。
答(懶漢):
一.
TYP := (HIGH + LOW + CLOSE)/3;
(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N))<-150;
二.
m:=ma(c,5);
m1:=ma(c,10);
cross(m,m1) and m>ref(m,1) and m1>ref(m1,1);