form_techanalysel.pas

双色球分析软件

                 SDMin11[j,i]:='0'+trim(formatFloat('##0',abs(11-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin11[j,i]:=trim(formatFloat('##0',abs(11-strToInt(grid1.cells[j,i].foretext))));
              if  abs(12-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin12[j,i]:='0'+trim(formatFloat('##0',abs(12-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin12[j,i]:=trim(formatFloat('##0',abs(12-strToInt(grid1.cells[j,i].foretext))));
             ///////
             if  abs(13-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin13[j,i]:='0'+trim(formatFloat('##0',abs(13-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin13[j,i]:=trim(formatFloat('##0',abs(13-strToInt(grid1.cells[j,i].foretext))));
             if  abs(14-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin14[j,i]:='0'+trim(formatFloat('##0',abs(14-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin14[j,i]:=trim(formatFloat('##0',abs(14-strToInt(grid1.cells[j,i].foretext))));
              if  abs(15-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin15[j,i]:='0'+trim(formatFloat('##0',abs(15-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin15[j,i]:=trim(formatFloat('##0',abs(15-strToInt(grid1.cells[j,i].foretext))));
             //////////
             if  abs(16-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin16[j,i]:='0'+trim(formatFloat('##0',abs(16-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin16[j,i]:=trim(formatFloat('##0',abs(16-strToInt(grid1.cells[j,i].foretext))));
             if  abs(17-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin17[j,i]:='0'+trim(formatFloat('##0',abs(17-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin17[j,i]:=trim(formatFloat('##0',abs(17-strToInt(grid1.cells[j,i].foretext))));
              if  abs(18-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin18[j,i]:='0'+trim(formatFloat('##0',abs(18-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin18[j,i]:=trim(formatFloat('##0',abs(18-strToInt(grid1.cells[j,i].foretext))));
             if  abs(19-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin19[j,i]:='0'+trim(formatFloat('##0',abs(19-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin19[j,i]:=trim(formatFloat('##0',abs(19-strToInt(grid1.cells[j,i].foretext))));
             if  abs(20-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin20[j,i]:='0'+trim(formatFloat('##0',abs(20-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin20[j,i]:=trim(formatFloat('##0',abs(20-strToInt(grid1.cells[j,i].foretext))));
              if  abs(21-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin21[j,i]:='0'+trim(formatFloat('##0',abs(21-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin21[j,i]:=trim(formatFloat('##0',abs(21-strToInt(grid1.cells[j,i].foretext))));
             if  abs(22-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin22[j,i]:='0'+trim(formatFloat('##0',abs(22-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin22[j,i]:=trim(formatFloat('##0',abs(22-strToInt(grid1.cells[j,i].foretext))));
             if  abs(23-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin23[j,i]:='0'+trim(formatFloat('##0',abs(23-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin23[j,i]:=trim(formatFloat('##0',abs(23-strToInt(grid1.cells[j,i].foretext))));
              if  abs(24-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin24[j,i]:='0'+trim(formatFloat('##0',abs(24-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin24[j,i]:=trim(formatFloat('##0',abs(24-strToInt(grid1.cells[j,i].foretext))));
             if  abs(25-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin25[j,i]:='0'+trim(formatFloat('##0',abs(25-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin25[j,i]:=trim(formatFloat('##0',abs(25-strToInt(grid1.cells[j,i].foretext))));
             if  abs(26-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin26[j,i]:='0'+trim(formatFloat('##0',abs(26-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin26[j,i]:=trim(formatFloat('##0',abs(26-strToInt(grid1.cells[j,i].foretext))));
              if  abs(27-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin27[j,i]:='0'+trim(formatFloat('##0',abs(27-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin27[j,i]:=trim(formatFloat('##0',abs(27-strToInt(grid1.cells[j,i].foretext))));
             if  abs(28-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin28[j,i]:='0'+trim(formatFloat('##0',abs(28-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin28[j,i]:=trim(formatFloat('##0',abs(28-strToInt(grid1.cells[j,i].foretext))));
             if  abs(29-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin29[j,i]:='0'+trim(formatFloat('##0',abs(29-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin29[j,i]:=trim(formatFloat('##0',abs(29-strToInt(grid1.cells[j,i].foretext))));
              if  abs(30-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin30[j,i]:='0'+trim(formatFloat('##0',abs(30-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin30[j,i]:=trim(formatFloat('##0',abs(30-strToInt(grid1.cells[j,i].foretext))));
              if  abs(31-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin31[j,i]:='0'+trim(formatFloat('##0',abs(31-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin31[j,i]:=trim(formatFloat('##0',abs(31-strToInt(grid1.cells[j,i].foretext))));
             if  abs(32-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin32[j,i]:='0'+trim(formatFloat('##0',abs(32-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin32[j,i]:=trim(formatFloat('##0',abs(32-strToInt(grid1.cells[j,i].foretext))));
              if  abs(33-strToInt(grid1.cells[j,i].foretext))<10 then
             begin
                 SDMin33[j,i]:='0'+trim(formatFloat('##0',abs(33-strToInt(grid1.cells[j,i].foretext))));
             end
             else
                 SDMin33[j,i]:=trim(formatFloat('##0',abs(33-strToInt(grid1.cells[j,i].foretext))));

             ////////////////
             iSDSortList1.Add(SDMin1[j,i]);
             iSDSortList2.Add(SDMin2[j,i]);
             iSDSortList3.Add(SDMin3[j,i]);
             iSDSortList4.Add(SDMin4[j,i]);
             iSDSortList5.Add(SDMin5[j,i]);
             iSDSortList6.Add(SDMin6[j,i]);
             iSDSortList7.Add(SDMin7[j,i]);
             iSDSortList8.Add(SDMin8[j,i]);
             iSDSortList9.Add(SDMin9[j,i]);
             iSDSortList10.Add(SDMin10[j,i]);
             iSDSortList11.Add(SDMin11[j,i]);
             iSDSortList12.Add(SDMin12[j,i]);
             iSDSortList13.Add(SDMin13[j,i]);
             iSDSortList14.Add(SDMin14[j,i]);
             iSDSortList15.Add(SDMin15[j,i]);
             iSDSortList16.Add(SDMin16[j,i]);
             iSDSortList17.Add(SDMin17[j,i]);
             iSDSortList18.Add(SDMin18[j,i]);
             iSDSortList19.Add(SDMin19[j,i]);
             iSDSortList20.Add(SDMin20[j,i]);
             iSDSortList21.Add(SDMin21[j,i]);
             iSDSortList22.Add(SDMin22[j,i]);
             iSDSortList23.Add(SDMin23[j,i]);
             iSDSortList24.Add(SDMin24[j,i]);
             iSDSortList25.Add(SDMin25[j,i]);
             iSDSortList26.Add(SDMin26[j,i]);
             iSDSortList27.Add(SDMin27[j,i]);
             iSDSortList28.Add(SDMin28[j,i]);
             iSDSortList29.Add(SDMin29[j,i]);
             iSDSortList30.Add(SDMin30[j,i]);
             iSDSortList31.Add(SDMin31[j,i]);
             iSDSortList32.Add(SDMin32[j,i]);
             iSDSortList33.Add(SDMin33[j,i]);
         end;//for j
         iSDSortList1.Sort;
         iSDSortList2.Sort;
         iSDSortList3.Sort;
         iSDSortList4.Sort;
         iSDSortList5.Sort;
         iSDSortList6.Sort;
         iSDSortList7.Sort;
         iSDSortList8.Sort;
         iSDSortList9.Sort;
         iSDSortList10.Sort;
         iSDSortList11.Sort;
         iSDSortList12.Sort;
         iSDSortList13.Sort;
         iSDSortList14.Sort;
         iSDSortList15.Sort;
         iSDSortList16.Sort;
         iSDSortList17.Sort;
         iSDSortList18.Sort;
         iSDSortList19.Sort;
         iSDSortList20.Sort;
         iSDSortList21.Sort;
         iSDSortList22.Sort;
         iSDSortList23.Sort;
         iSDSortList24.Sort;
         iSDSortList25.Sort;
         iSDSortList26.Sort;
         iSDSortList27.Sort;
         iSDSortList28.Sort;
         iSDSortList29.Sort;
         iSDSortList30.Sort;
         iSDSortList31.Sort;
         iSDSortList32.Sort;
         iSDSortList33.Sort;
         //showmessage(isortlist1[0]);
         //showmessage(isortlist2[0]);
         iSDSortList7x.Clear;
         iSDSortList7x.Add(iSDSortList1[0]);
         iSDSortList7x.Add(iSDSortList2[0]);
         iSDSortList7x.Add(iSDSortList3[0]);
         iSDSortList7x.Add(iSDSortList4[0]);
         iSDSortList7x.Add(iSDSortList5[0]);
         iSDSortList7x.Add(iSDSortList6[0]);
         iSDSortList7x.Add(iSDSortList7[0]);
         iSDSortList7x.Add(iSDSortList8[0]);
         iSDSortList7x.Add(iSDSortList9[0]);
         iSDSortList7x.Add(iSDSortList10[0]);
         iSDSortList7x.Add(iSDSortList11[0]);
         iSDSortList7x.Add(iSDSortList12[0]);
         iSDSortList7x.Add(iSDSortList13[0]);
         iSDSortList7x.Add(iSDSortList14[0]);
         iSDSortList7x.Add(iSDSortList15[0]);
         iSDSortList7x.Add(iSDSortList16[0]);
         iSDSortList7x.Add(iSDSortList17[0]);
         iSDSortList7x.Add(iSDSortList18[0]);
         iSDSortList7x.Add(iSDSortList19[0]);
         iSDSortList7x.Add(iSDSortList20[0]);
         iSDSortList7x.Add(iSDSortList21[0]);
         iSDSortList7x.Add(iSDSortList22[0]);
         iSDSortList7x.Add(iSDSortList23[0]);
         iSDSortList7x.Add(iSDSortList24[0]);
         iSDSortList7x.Add(iSDSortList25[0]);
         iSDSortList7x.Add(iSDSortList26[0]);
         iSDSortList7x.Add(iSDSortList27[0]);
         iSDSortList7x.Add(iSDSortList28[0]);
         iSDSortList7x.Add(iSDSortList29[0]);
         iSDSortList7x.Add(iSDSortList30[0]);
         iSDSortList7x.Add(iSDSortList31[0]);
         iSDSortList7x.Add(iSDSortList32[0]);
         iSDSortList7x.Add(iSDSortList33[0]);
         iSDSortList7x.Sort;
         grid1.Cells[11,i].ForeText:=formatFloat('##0',abs(strtoint(iSDSortList7x[iSDSortList7x.count-1])));

     end;///for i
///////计算AC值=d(t)-(r-1)在33选6中r=6,d(t)是基本号码之间相减得到的值//////////////////////////////////////
///////的个数，相同的算一个AC值越大，规律性越差，随机性越强/////////////////////
///////AC值是反映号码组合的合理性////////////////////////////////////////////////
     sACList:=TStringList.Create;
     sACList1:=TStringList.Create;
     for sRow:=2  to grid1.RowCount-1  do
     begin
        sACList.Clear;
        for i:=2 to 6 do
        begin
           for j:=1 to 7-i do
           begin
               if   length(trim(formatFloat('##0',abs(strToint(grid1.cells[i+j,sRow].foretext)-strToint(grid1.cells[i,sRow].foretext)))))=1 then
               begin
                    sACList.add('0'+trim(formatFloat('##0',abs(strToint(grid1.cells[i+j,sRow].foretext)-strToint(grid1.cells[i,sRow].foretext)))));
               end
               else
                    sACList.add(trim(formatFloat('##0',abs(strToint(grid1.cells[i+j,sRow].foretext)-strToint(grid1.cells[i,sRow].foretext)))));
           end;//for j
         end;//for i
         //showmessage(sACList.Text);
         sACList.Sort;
         //showmessage(sACList.text);
         sACList1.Clear;
         for i:=0 to sACList.Count-1 do
         begin
             //showmessage(sACList1.Text);

             if pos(sACList[i],sACList1.text)>0 then
             begin
             end
             else
             begin
                  sACList1.Add(sACList[i]);
             end;
             //showmessage(sACList1[i]);
             sACList1.Sort;
            // showmessage(sACList1.text);
         end;
         //showmessage(sACList1.text);
         grid1.Cells[12,sRow].ForeText:=formatFloat('##0',sACList1.count-5);
      end;////srow
      ///////计算最大偏度（即上期偏度值）与实际偏度的差值//////////////
      for i:=2 to grid1.RowCount-2 do
      begin
          grid1.Cells[13,i+1].ForeText:=formatFloat('##0',strToInt(grid1.cells[11,i].foretext)-strToInt(grid1.cells[10,i+1].foretext));