//百十对码
     //历史分布(组选余数分布)命中3次数
   function YSchlifb3(cs,qs :integer):integer;
 var
   myvar1: integer;
 begin
  myvar1 :=InCount([IMOD(r1,cs),IMOD(r2,cs),IMOD(r3,cs)],[IMOD(hr1(qs),cs),IMOD(hr2(qs),cs),IMOD(hr3(qs),cs)]);
  result := IIF(myvar1=3);
 end;

//历史分布(组选余数分布)命中2次数
   function YSchlifb2(cs,qs :integer):integer;
 var
   myvar1: integer;
 begin
  myvar1 :=InCount([IMOD(r1,cs),IMOD(r2,cs),IMOD(r3,cs)],[IMOD(hr1(qs),cs),IMOD(hr2(qs),cs),IMOD(hr3(qs),cs)]);
  result := IIF(myvar1=2);
 end;

//历史分布(组选余数分布)命中1次数
   function YSchlifb1(cs,qs :integer):integer;
 var
   myvar1: integer;
 begin
  myvar1 :=InCount([IMOD(r1,cs),IMOD(r2,cs),IMOD(r3,cs)],[IMOD(hr1(qs),cs),IMOD(hr2(qs),cs),IMOD(hr3(qs),cs)]);
  result := IIF(myvar1=1);
 end;

//历史分布(组选余数分布)命中0次数
   function YSchlifb0(cs,qs :integer):integer;
 var
   myvar1: integer;
 begin
  myvar1 :=InCount([IMOD(r1,cs),IMOD(r2,cs),IMOD(r3,cs)],[IMOD(hr1(qs),cs),IMOD(hr2(qs),cs),IMOD(hr3(qs),cs)]);
  result := IIF(myvar1=0);
 end;

//历史分布(组选余数分布)命中1-2次数
   function YSchlifb12(cs,qs :integer):integer;
 var
   myvar1: integer;
 begin
  myvar1 :=InCount([IMOD(r1,cs),IMOD(r2,cs),IMOD(r3,cs)],[IMOD(hr1(qs),cs),IMOD(hr2(qs),cs),IMOD(hr3(qs),cs)]);
  result := IIF((myvar1>=1)AND(myvar1<=2));
 end;
   //历史分布(直选余数分布)命中3次数
   function YSzxlifb3(cs,qs :integer):integer;
 var
   myvar1,myvar2,myvar3: integer;
 begin
  myvar1 :=IIF(IMOD(r1,cs) in [IMOD(hr1(qs),cs)]);
  myvar2 :=IIF(IMOD(r2,cs) in [IMOD(hr2(qs),cs)]);
  myvar3 :=IIF(IMOD(r3,cs) in [IMOD(hr3(qs),cs)]);
  result:= IIF(myvar1+myvar2+myvar3=3);
 end;
    //历史分布(直选余数分布)命中2次数
   function YSzxlifb2(cs,qs :integer):integer;
 var
   myvar1,myvar2,myvar3: integer;
 begin
  myvar1 :=IIF(IMOD(r1,cs) in [IMOD(hr1(qs),cs)]);
  myvar2 :=IIF(IMOD(r2,cs) in [IMOD(hr2(qs),cs)]);
  myvar3 :=IIF(IMOD(r3,cs) in [IMOD(hr3(qs),cs)]);
  result:= IIF(myvar1+myvar2+myvar3=2);
 end;
    //历史分布(直选余数分布)命中1次数
   function YSzxlifb1(cs,qs :integer):integer;
 var
   myvar1,myvar2,myvar3: integer;
 begin
  myvar1 :=IIF(IMOD(r1,cs) in [IMOD(hr1(qs),cs)]);
  myvar2 :=IIF(IMOD(r2,cs) in [IMOD(hr2(qs),cs)]);
  myvar3 :=IIF(IMOD(r3,cs) in [IMOD(hr3(qs),cs)]);
  result:= IIF(myvar1+myvar2+myvar3=1);
 end;
    //历史分布(直选余数分布)命中0次数
   function YSzxlifb0(cs,qs :integer):integer;
 var
   myvar1,myvar2,myvar3: integer;
 begin
  myvar1 :=IIF(IMOD(r1,cs) in [IMOD(hr1(qs),cs)]);
  myvar2 :=IIF(IMOD(r2,cs) in [IMOD(hr2(qs),cs)]);
  myvar3 :=IIF(IMOD(r3,cs) in [IMOD(hr3(qs),cs)]);
  result:= IIF(myvar1+myvar2+myvar3=0);
 end;
    //历史分布(直选余数分布)命中1-2次数
   function YSzxlifb12(cs,qs :integer):integer;
 var
   myvar1,myvar2,myvar3: integer;
 begin
  myvar1 :=IIF(IMOD(r1,cs) in [IMOD(hr1(qs),cs)]);
  myvar2 :=IIF(IMOD(r2,cs) in [IMOD(hr2(qs),cs)]);
  myvar3 :=IIF(IMOD(r3,cs) in [IMOD(hr3(qs),cs)]);
  result:= IIF((myvar1+myvar2+myvar3>=1)AND(myvar1+myvar2+myvar3<=2));
 end;