這是一個(gè)模型求幫助
作者：金字塔 來(lái)源：cxh99.com 發(fā)布時(shí)間：2016年07月17日
- 咨詢內(nèi)容：
input:n1(5,1,999,1);input:n2(10,1,999,1);input:n3(20,1,999,1);input:n4(60,1,999,1);input:n5(100,1,999,1);input:n6(300,1,999,1);input:n7(900,1,999,1);input:n8(150,1,999,1);//input:P(26,1,100,8);//input:S(12,5,40,4);//input:M(9,2,60,6);
ma5:=rounds(ma(C,n1),4),COLORWHITE;ma10:=rounds(ma(C,n2),4),COLORWHITE;ma20:=rounds(ma(C,n3),4),COLORWHITE;ma60:=rounds(ma(C,n4),4),COLORWHITE;ma100:=rounds(ma(C,n5),4),COLORWHITE;ma180:=rounds(ma(c,180),4),colorwhite;ma300:=rounds(ma(C,n6),4),COLORWHITE;ma900:=rounds(ma(C,n7),4),COLORWHITE;ma150:=rounds(ma(C,n8),4),COLORWHITE;
cond:=day<>ref(day,1);n:barslast(cond)+1,COLORWHITE,NODRAW;NN:TODAYBAR,COLORWHITE,NODRAW;jj:sum(amount,n)/sum(vol,n)/multiplier;cond1:=(hhv(h,todaybar)-jj)/jj<0.005;cond2:=(jj-llv(l,todaybar))/jj<0.005;ZD:=STKINDIEX('HG00','Formula2.ZD',0,1,-1,1000),NODRAW;ZK:=STKINDIEX('HG00','Formula2.ZK',0,1,-1,1000),NODRAW;
CYC:=barslast(date<>ref(date,1))+1;DayMa:rounds(sum(amount,CYC)/sum(vol,CYC)/multiplier,1),COLORWHITE,NODRAW;//適用日線及日線以下周期的K線，也試用所有品種//Up:=Rounds(DYNAINFO(14)*100,2),COLORWHITE,NODRAW;//DayMa:DYNAINFO(11),COLORWHITE,NODRAW;ZGJ:HHV(Ref(H,1),TODAYBAR),COLORRED;ZDJ:LLV(Ref(L,1),TODAYBAR),COLORWHITE;DRAWTEXT(h=zgj,h,'H',COLORWHITE);DRAWTEXT(l=zdj,l,'L',COLORWHITE);FlagHigh:Ref(H,ENTERBARS);FlagLow:Ref(L,ENTERBARS);Duo1: = H>ZGJ and H>ma180 and Ma5>Ma60 and Ma10>Ma60 and Ma20>Ma60 and Ma150>Ma900 ,COLORWHITE,NODRAW;
//NOAXIS;//,Kong1:= L<ZDJ and L<ma180 and Ma5<Ma60 and Ma10<Ma60 and Ma20<Ma60 and Ma150<Ma900 ,COLORGREEN,NODRAW;//NOAXIS;//,
Duo2: =L<ma180 or L<FlagLow ,COLORGREEN,NODRAW;//NOAXIS;Kong2:=H>ma180 or H>FlagHigh ,colorwhite,nodraw;//NOAXIS;
VARIABLE:UpTimes=0,DnTimes=0;UPTP:H>ZGJ,NODRAW;DNTP:L<ZDJ,NODRAW;
if Duo2=1 then
UpTimes:=0;if Kong2=1 then
DnTimes:=0;
if UPTP=1 then begin //or Duo2=1
DnTimes:=0; if UpTimes>=0 then
UpTimes:=UpTimes+1;endif DNTP=1 then begin //or Kong2=1
UpTimes:=0; if DnTimes>=0 then
DnTimes:=DnTimes+1;end
Up:UpTimes,NODRAW;Dn:DnTimes,NODRAW;//DRAWTEXT(Up=1,h,'上',COLORWHITE);//DRAWTEXT(Dn=1,l,'下',COLORWHITE);
//DRAWTEXT(Duo=1,h,'d',COLORWHITE);//DRAWTEXT(Kong=1,l,'k',COLORWHITE);
KD:=Duo1=1; //開多條件PD:=Duo2=1; //平多條件KK:=Kong1=1; //開空條件PK:=Kong2=1; //平空條件
平空:SELLSHORT(PK,1,THISCLOSE); //平空信號(hào)開多:BUY(KD AND HOLDING=0,1,THISCLOSE); //開多信號(hào)平多:SELL(PD,1,THISCLOSE); //平多信號(hào)開空:BUYSHORT(KK AND HOLDING=0,1,THISCLOSE); //開空信號(hào)
Duo:if(holding=1,1,if(holding<1,-1,0)),COLORWHITE,NODRAW;Kong:if(holding=-1,1,if(holding>0,-1,0)),COLORWHITE,NODRAW;DRAWTEXTEX(1,1,0,0,STKLABEL+':'+Numtostr(Duo,0)+','+Numtostr(Kong,0));//
+','+Numtostr(Duo1,0)+','+Numtostr(Kong1,0));
這是一個(gè)VBA程序的進(jìn)場(chǎng)模型,我的目的是對(duì)進(jìn)場(chǎng)條件DUO1,KONG1,怎么能限制在第一時(shí)間進(jìn)場(chǎng),比如突破,第一時(shí)間符合條件突破了,后面繼續(xù)突破也是符合條件,那么我用VBA程序控制的時(shí)候不一定是第一時(shí)間進(jìn)場(chǎng),因?yàn)楹竺娌粩嗤黄聘唿c(diǎn)都是符合條件的,
- 金字塔客服：
VBA體現(xiàn)在哪里？
- 用戶回復(fù)：
這是一個(gè)均線分析,VBA就是依據(jù)這里的條件進(jìn)場(chǎng)的,能在這里面設(shè)置我說(shuō)的那些功能嗎,就是在第一時(shí)間進(jìn)場(chǎng),對(duì)第一時(shí)間符合條件的一分鐘時(shí)間點(diǎn)進(jìn)行計(jì)數(shù),比如10點(diǎn)符合第一時(shí)間點(diǎn)進(jìn)場(chǎng)從10點(diǎn)開始計(jì)數(shù),
- 網(wǎng)友回復(fù)：
這里怎么上傳VBA程序
- 網(wǎng)友回復(fù)：
上傳時(shí)添加附件，
打印本文
關(guān)閉窗口