金叉多頭如何改寫(xiě)金字塔公式
作者：金字塔 來(lái)源：cxh99.com 發(fā)布時(shí)間：2017年01月04日
- 咨詢(xún)內(nèi)容：
下面金叉多頭是買(mǎi)入塊板中漲幅前5的股票的代碼，如何將金叉多頭改寫(xiě)成金字塔的代碼？
公式名：今日漲幅
zf:100*(close-ref(c,1))/ref(c,1);
公式名：金叉多頭_執(zhí)行
公式代碼：
#Run_By_Serie
#Run_Every_Tick
VARIABLEs:kcbar[200](0),hcbar[200](0);
盤(pán)中:=between(currenttime,SESSIONSTARTTIME(1),SESSIONENDTIME(1)) or between(currenttime,SESSIONSTARTTIME(2),SESSIONENDTIME(2));
if IsLastBar then
begin
vark:STKCOUNT(StrLeft(FormulaName,StrLen(FormulaName)-3)),LineThick0;
for $i=1 to min(200,vark) Do
begin
varlh:=RefIndi(STKFROMBLK(StrLeft(FormulaName,StrLen(FormulaName)-3),$i),'今日漲幅.zf',p_day,0);
kcbar[$i]:=varlh[0];
hkcbar[$i]:=varlh[0];
end;
varsort:=sort(hkcbar,1,1,vark);
varpos:=Sortpos(kcbar,1,1,vark);
strtk:='';
for ik=1 to min(200,vark) Do
begin
hdai:=STKFROMBLK(StrLeft(FormulaName,StrLen(FormulaName)-3),kcbar[ik]);
ingzf:=hkcbar[ ik];
//////// ///////////// 推送信號(hào)
if ik<=5{推送漲幅排序前五} and 盤(pán)中 and ingzf<5{漲幅不超過(guò)5%才推送} and getglobalvar(StrLeft(FormulaName,StrLen(FormulaName)-3)+STKNAMEEX (hdai)+'t')=0 Then
begin
if WeekDayOfDate ( currentdate)<>6 and WeekDayOfDate ( currentdate)<>0 then
begin
存時(shí):=SetGlobalVar(StrLeft(FormulaName,StrLen(FormulaName)-3)+STKNAMEEX (hdai)+'t', if(DataPeriod>=P_Day,Date,date*10000+Hour*100+Minute));
end;
buyy:=SENDYJ('192.168.0.1','717','主的寬恕','■'+'交易信號(hào):'+StrLeft(FormulaName,StrLen(FormulaName)-3),hdai,STKNAMEEX (hdai),'.1'{這個(gè)到了中間軟件那邊就識(shí)別為按照即時(shí)的賣(mài)1價(jià)買(mǎi)入},NUMTOSTR (CURRENTTIME (),0)+':1'+'倍'{中間軟件識(shí)別為按照設(shè)置的默認(rèn)買(mǎi)賣(mài)金額（或者賬戶(hù)可用數(shù)的百分比）再乘以這個(gè)倍數(shù)進(jìn)行委托}); //函數(shù)SENDYJ推送指令給中間軟件執(zhí)行買(mǎi)賣(mài)的
FILEAPPEND('C:\\Documents and Settings\\Administrator\\桌面\\'+StrLeft(FormulaName,StrLen(FormulaName)-3)+'_推送記錄.doc', strright(NUMTOSTR (Month+100,0),2)+'-'+NUMTOSTR (Day,0)+' '+strright(NUMTOSTR (InTPart(currenttime/10000)+100,0),2)+':'+strright(NUMTOSTR (InTPart(currenttime/100),0),2)+':'+strright(NUMTOSTR (currenttime,0),2)+' '+hdai+'【'+STKNAMEEX (hdai)+'】'+'.1'+'元 1'+'倍');
end;
/////////////////////////////////////////
strtk:=strtk+'\n'+StrRight(' '+NumToStr(ik,0),3)+'） '+StrRight(hdai,6)+' '+strleft(STKNAMEEX (hdai)+' ',if(StrLen(STKNAMEEX (hdai))=4,4,8-StrLen(STKNAMEEX (hdai))+1))+' '+NumToStr(hkcbar[kcbar[ik]],2)+'%';
end;
end;
DrawTextEx(islastbar,1,10,10,strtk),Color1;
- 金字塔客服：
http://www.weistock.com:8080/vip/forum.php?mod=viewthread&tid=470&extra=page%3D1%26filter%3Ddigest%26digest%3D1%26digest%3D1
參考這個(gè)做排序選股，
- 用戶(hù)回復(fù)：
1樓這個(gè)來(lái)從金字塔下面連接。請(qǐng)老師改寫(xiě)下
http://www.weistock.com/bbs/dispbbs.asp?boardid=10&id=75696
- 網(wǎng)友回復(fù)：
這么多天了，還沒(méi)沒(méi)寫(xiě)呀
- 網(wǎng)友回復(fù)：
EXTGBDATA( ) getglobalvar
EXTGBDATASET( , ) SetGlobalVar
這個(gè)是tb和金字塔全局變量的替換
其他一些金字塔不一樣的函數(shù)還請(qǐng)用戶(hù)編譯發(fā)現(xiàn)不同后能標(biāo)注下說(shuō)明，工作人員精力有限無(wú)法對(duì)所有其他軟件的所有函數(shù)都一一去做搜尋還請(qǐng)理解
打印本文
關(guān)閉窗口