マクロ６ - fchart999 @ ウィキ

sisuname:=検索と出力;

/注目銘柄Ａを検索し、
/20日平均より上で引けて、乖離率2％以下の銘柄を買い、注目銘柄Ｂへセット。
/20日平均より下で引けて、乖離率-2％以上の銘柄を売り、注目銘柄Ｃへセット。
/同時に、print窓へ乖離率を出力

dnoloop:=off;

var
zzcode[1001],//銘柄コードループ
zzdno,//dnoループの代わり
zzdata,//readkabudataのデータ格納
zzav20,//20足終値平均
zzkairi;//終値と20足終値平均との乖離率

begin //begin1

resetchumokuall('b');
resetchumokuall('c');

for zzcode:=1001 to 9999 do
    if ((10>=sijo(zzcode))
        and(sijo(zzcode)>=0)
        and(checkchumoku(zzcode,'A'))) then
            for zzdno:=enddno-20 to enddno do begin //begin2

zzdno:=readkabudata
(zzdata,'hiashi',zzcode,false,false,true);

if zzdno=enddno then begin //begin3

zzav20:=calcav('close',enddno-19,enddno);
zzkairi:=(ref('close',enddno)-zzav20)/zzav20*100;

if (zzav20<ref('close',enddno))and(zzkairi<2)
     then begin
     print (zzcode,'買',zzkairi);
     setchumoku(zzcode,'b');
     end;
if (zzav20>ref('close',enddno))and(zzkairi>-2)
     then begin
     print (zzcode,'売',zzkairi);
     setchumoku(zzcode,'c');
     end;
end; //end3
end; //end2
refreshchumoku;
end; //end1