金字塔品種選擇技術(shù)指標[金字塔模型]

相關(guān)標簽:選擇大區(qū)僅限教育專區(qū)，歐元 技術(shù)指標 選擇，金魚專區(qū)品種大全，惠比特交易和配種專區(qū)，夢三國交易專區(qū)，夢三國交易專區(qū)速秒，靈緹格力交易專區(qū)，中京交易市場下載專區(qū)，古幣銀元交易專區(qū)，

模型策略源碼：runmode:0; length:=20; bkname:=\'連續(xù)合約\'; stks:=stkcount(bkname); variable:stknames[stks]=0; variable:stktrades[stks]=0; variable:stkposes[stks]=0; variable:mypos=0; variable:cantrade=0; if date>ref(date,1) then begin length:=20; for i=1 to stks do begin stkcode:=stkfromblk(bkname,i); stknames[i]:=strremove(stkcode,0,2); stktrades[i]:=0; for j=1 to length do begin myamount:=callstock(stknames[i],vtamount,6,-j); if myamount then myamount:=myamount; else myamount:=0; stktrades[i]:=stktrades[i]+myamount; end stktrades[i]:=stktrades[i]/length; stkposes[i]:=i; end for i=1 to stks do begin for j=1 to stks-i do begin if stktrades[j]<stktrades[j+1] then begin t1:=stktrades[j]; stktrades[j]:=stktrades[j+1]; stktrades[j+1]:=t1; t2:=stkposes[j]; stkposes[j]:=stkposes[j+1]; stkposes[j+1]:=t2; end end end for i=1 to stks do begin if stricmp(stklabel,stknames[stkposes[i]])=0 then begin mypos:=i; end end end
點擊復制上述代碼粘貼到到公式管理器

{別忘了將本網(wǎng)告訴您身邊的朋友，向朋友傳達有用資料，也是一種人情，你朋友會感謝你的。}