calculateunit.pas

基于高速铁路周边电动势计算的关键

unit CalculateUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
  TCalculateForm = class(TForm)
    pgc1: TPageControl;
    ts1: TTabSheet;
    ts2: TTabSheet;
    ts3: TTabSheet;
    BitBtn2: TBitBtn;
    lvTestPointList: TListView;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ListView1: TListView;
    BitBtn5: TBitBtn;
    ListView2: TListView;
    Panel2: TPanel;
    Image3: TImage;
    Label3: TLabel;
    Image4: TImage;
    Panel3: TPanel;
    Label5: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Label2: TLabel;
    Image9: TImage;
    Label4: TLabel;
    lbl1: TLabel;
    img1: TImage;
    img2: TImage;
    img3: TImage;
    lbl2: TLabel;
    lbl3: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CalculateForm: TCalculateForm;

implementation

uses GlobalVarDefs;

{$R *.dfm}

procedure TCalculateForm.BitBtn2Click(Sender: TObject);
begin
   Close;
end;

procedure TCalculateForm.BitBtn3Click(Sender: TObject);
var
   i     : Integer;
   Item  : TListItem;
begin
if AddRed=True then
 begin
    lvTestPointList.Clear;
    lvTestPointList.Columns[1].Caption:='磁感应电动势';
    for i:=0 to rNew_Infor.Num-1 do
        begin
          Item := lvTestPointList.Items.Add;
          Item.Caption :=IntToStr(lvTestPointList.Items.Count);
          Item.SubItems.Add(FloatToStr(rNew_Infor.DDS_E[i]));
          end;
   end;
end;

procedure TCalculateForm.BitBtn4Click(Sender: TObject);
var
   i     : Integer;
   Item  : TListItem;
   TempE_M :Single;
begin
if AddRed=True then
 begin
    ListView1.Clear;
    ListView1.Columns[1].Caption:='互感系数';
    for i:=0 to rNew_Infor.Num do
        begin
          if i>0 then
           begin
                  if rNew_Infor.StratY[i-1]= rNew_Infor.EndY[i-1] then //平行时
                     TempE_M:=Get_M1_Data(rE_Infor.E_w,rNew_Infor.AveDDL[i-1],rNew_Infor.StratY[i-1]/1000);

                     //斜接近
                  if (rNew_Infor.StratY[i-1]<> rNew_Infor.EndY[i-1]) and (rNew_Infor.StratY[i-1]*rNew_Infor.EndY[i-1]>0) then
                     TempE_M:=Get_M2_Data(rE_Infor.E_w,rNew_Infor.AveDDL[i-1],rNew_Infor.StratY[i-1]/1000,rNew_Infor.EndY[i-1]/1000);

                    //交越时
                  if (rNew_Infor.StratY[i-1]<> rNew_Infor.EndY[i-1]) and (rNew_Infor.StratY[i-1]*rNew_Infor.EndY[i-1]<0) then
                     TempE_M:=Get_M3_Data(rE_Infor.E_w,rNew_Infor.AveDDL[i-1]/1000,rNew_Infor.StratY[i-1],rNew_Infor.EndY[i-1]/1000);


              Item := ListView1.Items.Add;
              Item.Caption :=IntToStr(ListView1.Items.Count);
              Item.SubItems.Add(FloatToStr(TempE_M));
          end;
          end;
   end;
end;

procedure TCalculateForm.BitBtn5Click(Sender: TObject);
var
   i     : Integer;
   Item  : TListItem;
begin
if AddRed=True then
 begin
    ListView2.Clear;
    ListView2.Columns[1].Caption:='大地导电率';
    for i:=0 to rNew_Infor.Num-1 do
        begin
              Item := ListView2.Items.Add;
              Item.Caption :=IntToStr(ListView2.Items.Count);
            //  Item.SubItems.Add(FloatToStr(rNew_Infor.AveDDL[i]));
                Item.SubItems.Add(Format('%2.8f',[rNew_Infor.AveDDL[i]]));
          end;
   end;
end;

end.