1021.問:
這是分析家的一個交易指標:
{交易法則:買入條件A=K金叉20。條件B加倉=D金叉50。
條件C止損=K死叉20。條件D賣出=K死叉80。(引自分析家版主鐵手)。
具體請參考。以現金存量的50%買進和加碼;止損和賣出是100%。
交易法則和鐵手的是一樣的。}
VARIABLE:positionCount=1;{頭寸計數變量}
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;{頭寸計數}
END
END
IF PositionCount=2 THEN BEGIN{第二加碼頭寸}
IF CROSS(D,50) THEN BEGIN{條件B加倉=D金叉50}
BUY(50%,MARKET);
PositionCount:=PositionCount+1;
END
END
IF CROSS(20,K) THEN BEGIN{條件C止損=K死叉20}
SELL(100%,MARKET);
PositionCount:=1; {頭寸計算復原}
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加倉
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;
總利潤%:(總資金/初始資金-1)*100,LINETHICK;
DRAWICON(m,l*0.99,4);
DRAWICON(w,h*1.01,5);
1022.問:
試圖畫出最後的一條線(最重要的一條),始終沒能成功
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);//問題點
答(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);//問題點
DRAWLINE(x,a,tj and ts>0,gd,1);//
1023.問:
回調上攻沒信號
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.問:
股票箱中間線,請用數值表示出來?謝!
或修改公式,變為向右延長線,并表示出數值?
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;
答(阿遠):
請在公式最后加上:
DRAWNUMBER(cross(boxh and boxh=ref(boxh,1),0.5),
(boxh-boxl)/2+boxl,(boxh-boxl)/2+boxl,2);
1025.問:
飛狐主圖改大智慧行嗎
主圖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));
籌碼長期: 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,'●買進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,'●買進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));
籌碼長期: 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,'●買進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,'●買進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.問:
為了方便對上市公司各季度、半年及年度業績預告的了解和分類;
請編寫一個簡單的指標:《業績預告選股》。用這個指標可以方便地選出:
預增、預盈、預虧、預警、預降的各類上市公司。可以在自選分類中建立相應的板塊;
如:自選-預增,然后將其保在對應的板塊中,以便隨時查用,省去了不少麻煩。
答(一笑生):
業績預告選股
A:=BARSCOUNT(C);
A1:=A=SYSPARAM(2);
A2:=A=SYSPARAM(1);
A3:=IF(0=0,A1,A2);
WW3:='業績預告:'+F10TEXT(F10FIND('【預',1),0);
DRAWTEXT(A3,0.6,WW3),COLORWHITE;
增:=F10FIND('【預增】',1);
預增:IF(增>0 AND ISLASTBAR,1,0),COLORRED;
盈:=F10FIND('【預盈】',1);
預盈:IF(盈>0 AND ISLASTBAR,1,0),COLORMAGENTA;
虧:=F10FIND('【預虧】',1);
預虧:IF(虧>0 AND ISLASTBAR,1,0),COLORCYAN;
警:=F10FIND('【預警】',1);
預警:IF(警>0 AND ISLASTBAR,1,0),COLORBLUE;
降:=F10FIND('【預降】',1);
預降:IF(降>0 AND ISLASTBAR,1,0),COLORGREEN;
未預告:預增=0 AND 預盈=0 AND 預虧=0 AND 預警=0 AND 預降=0,COLORWHITE;
1027.問:
把下列未來函數修改為上證大盤的!
ggkp:=if(zig(3,6)ref(zig(3,6),2),C,0);
dzkp:=if(ggkp>0 ,C,0);
tt:=BARSLAST(dzkp);
轉:(C-ref(dzkp,tt))/ref(dzkp,tt)*100;
我的本意是在個股里指標副圖下表示上述大盤的條件而且只能是上證指數條件成立為目的.
我在觀察各股的時候也能同時在個股里指標副圖下知道上證大盤情況.
我的軟件是分析家的.
答(zmr666):
想起來了,新結構波浪指標的設計方法可以代替zig函數,只是語句變復雜多了;
先分解一下你的語句中的含義:
ggkp:=if(zig(3,6)ref(zig(3,6),2),1,0);{見頂}
dzkp:=if(ggkp>0 ,c,0);{見頂日的收盤價}
tt:=BARSLAST(ggkp);{已經見頂多少天}
轉:=(c-ref(dzkp,tt))/ref(c,tt)*100;{大盤累積下跌幅度}
然后用下面的方法描述這段內容,其中c換成上證指數的收盤價:
A1:=REF("sh000001$close",3)=HHV("sh000001$close",2*3+14);
B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);{高點}
A2:=REF("sh000001$close",3)=LLV("sh000001$close",2*3+14);
B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);{低點}
E1:=(REF(LLV("sh000001$low",2*3),1)+REF(HHV("sh000001$high",2*3),1))/2;
E2:=("sh000001$HIGH"+"sh000001$LOW")/2;{高低點出現在同一K線上時可作取舍}
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);{過濾后低點}
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);{過濾后高點代替ggkp}
dzkp:=if(hd>0 ,"sh000001$close",0);
tt:=BARSLAST(dzkp);{已經見頂多少天}
轉:("sh000001$close"-ref(dzkp,tt))/ref(dzkp,tt)*100;{大盤累積下跌幅度}
DRAWICON(tt=0,hhv(轉,5) ,5 );{標注見頂日}
1028.問:
請問改變周期時,本公式周期不跟隨改變,始終按自設周期顯示怎么寫?
答(股市浪子):
另外寫一個公式調用數據,用STKINDI('','XXXX.YYY',0,N),其中的XXXX為所調用的公式名,
YYY為調用該公式的指標,N為調用該指標的周期(與調出K線的數字相同)。
1029.問:
請教著段公式的含義。
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;
還想加上一句股價在20線上 著句怎么寫
答(一鳴):
(股價在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周期線性回歸預測值*0.2<成交量的4周期線性回歸預測值<成交量的12周期線性回歸預測值*2.1
拉升:filter(ls,42)*100,colorred; //若ls條件符合,則當日拉升值設為100,且其后42天內不再出現信號
1030.問:
上一次上漲走勢"最后那根"K線的成交量大于上一次下跌走勢"第一根"K線成交量。
k2:=cross(ma(c,2)+0.0001,c);
bk21:=sumbars(k2,1);
v2:=ref(v,bk21-1);
ref(v,bk21)>ref(v2,bk21);
我想把它調換一下改編為:上一次上漲走勢"第一根"K線的成交量大于上一次下跌走勢"
最后那根"K線的成交量。(注:其實就是原來公式的"最后那根"和"第一根"位置前后調換)
答(一鳴):
{先下跌后上漲為一波
上一次‘上漲走勢’第一根K線成交量大于上一次‘下跌走勢’最后一根K線成交量。
不包括正在上漲或正在下跌的走勢 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.問:
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);
無敵:=CROSS(XJYY,(0 - 28));
十九:=CROSS((0 - 28),XJYY);
小天:=(無敵 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);
這個公式明顯有作弊的行為,請看以下代碼:
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.問:
請問N天的漲幅在解盤顯示,怎寫
答(kjyhao):
試試:
input:n(5);
漲幅:=(c-ref(c,n))/ref(c,n)*100;
EXPLAIN(c, 'N天的漲幅'+numtostr(漲幅,3));
答(一鳴):
{N天內的跌幅解盤 飛狐 }
input:n(5);
跌幅:=(ref(c,n)/c-1)*100;
EXPLAINEX(c<',跌幅,2,1); font="" <="">
1033.問:
在1分鐘周期內顯示5分鐘周期的k線如何表達(于付圖中),
答(znz2002):
1.建一個引用指標
HQSJ
CC:CLOSE;HH:HIGH;LL:LOW;OO:OPEN;
量:VOL;額:AMOUNT;
DD:DATE;
OO:=引用指標('','HQSJ.OO',0,N);
CC:=引用指標('','HQSJ.CC',0,N);
HH:=引用指標('','HQSJ.HH',0,N);
LL:=引用指標('','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.問:
我參照量化思路一書源碼想在主圖上加條線造個大盤線(主圖疊加),
但源碼寫上了飛狐卻通不過,請問如何解決?
INPUT:N(100,2,1000);
ZJ:=BACKSET(ISLASTPERIOD,M);
ZX:=ZJ.REF(ZJ,1);
常數:=REF(INDEXC,BARSLAST(ZX))/REF(C,BARSLAST(ZX));
大盤線:INDEXC//常數,COLORBLUE;
答(懶漢):
可見區域疊加
pc:=INDEXC;
s2:=SYSPARAM(2);
cc:=c;
b:=cc[s2]/pc[s2];
pc*b;
最后N個周期疊加
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.問:
怎樣將RSI指標放在主圖上
答(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指標}
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;{轉換為主圖}
{箱型區間操作指標}
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.問:
怎樣寫分析家和飛狐的主圖的左上角顯示提示性的文字
答(乘風333 ):
分析家的主圖的左上角顯示提示性的文字
分析家的.
解:='總股本='+NUMTOSTRN(FINANCE(1) ,0 )+'萬股'+' 流通A股='
+ NUMTOSTRN(FINANCE(7),0)+'萬股'+' 凈資產='+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;
答(乘風333 ):
飛狐的.
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,{STKNAME+'\n'+STKLABEL+'\n'+}BLKNAME)align4,COLORGREEN;
DRAWTEXT(sysparam(2)=BARPOS,c,'總股本='+NUMTOSTR(FINANCE(1) ,0 )+'萬股'+' 流通A股='
+ NUMTOSTR(FINANCE(7),0)+'萬股'+' 凈資產='+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.問:
如何能把五彩K線的曙光初現和早晨之星加入K線圖顯示文字?
曙光初現:
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.問:
能否把下面這段改為分析家,謝謝!
partline(鼠變異>ref(鼠變異,1) and 鼠變異=招財貓,鼠變異),Linethick2,colorff66ff;
partline(鼠變異>ref(鼠變異,1) and 鼠變異=招財貓 and pdu=1,鼠變異),Linethick2;
partline(鼠變異>ref(鼠變異,1) and 鼠變異<>招財貓,鼠變異);
explain(c>zx and c>=life,'老鼠出洞了,逮住它!'),colorff;
explain(c>zx and c>snook and c<>
explain(c>zx and c<=snook,'老鼠露尾巴,動作快!'),colorff00;
explain(c<=zx,'老鼠沒有了,打個盹!'),color808080;
explain(鼠變異>ref(鼠變異,1) and 鼠變異<>招財貓,'發現鼠跡!'),colorff00;
explain(鼠變異>ref(鼠變異,1) and 鼠變異=招財貓 and pdu<>1,'瞬間鼠影!'),colorff66ff;
explain(鼠變異>ref(鼠變異,1) and 鼠變異=招財貓 and pdu=1,'惡鼠難遁!'),colorff;
explain(c>zx and ma20=0,'老鼠去哪里,思考哦!'),colorffff;
答(無名山人):
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異=招財貓),Linethick2,colorff66ff;
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異=招財貓 and pdu=1),Linethick2;
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異<>招財貓);
TIPTEXT(c>zx and c>=life,0,'老鼠出洞了,逮住它!');
TIPTEXT(c>zx and c>snook and c<>
TIPTEXT(c>zx and c<=snook,0,'老鼠露尾巴,動作快!');
TIPTEXT(c<=zx,0,'老鼠沒有了,打個盹!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異<>招財貓,0,'發現鼠跡!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異=招財貓 and pdu<>1,0,'瞬間鼠影!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異=招財貓 and pdu=1,0,'惡鼠難遁!');
TIPTEXT(c>zx and ma20=0,0,'老鼠去哪里,思考哦!');
1039.問:
10日線已經上升了6天怎么寫啊
答(xiaotian):
COUNT(ma(c,10)>ref(ma(c,10),1),6)=6;
1040.問:
公式1
CCI順勢指標源碼 :
參數:N 14
TYP := (HIGH + LOW + CLOSE)/3;
(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N));
請教老師如何選出CCI值在-150以下的個股?
公式2
(一 )5日均線上穿10日均線。(二 )5日,10日均線是上升的。請老師編 個一. 二. 同時成立分析家選股公式。
答(懶漢):
一.
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);