unitmain.pas

常用数学计算工具

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, ComCtrls, ScienceDraw, ToolWin,
  ExtCtrls, HighlightedMemo, Buttons, AutoSaveDesk, Menus,
  ExtDlgs,Grids, ValEdit, Spin, Excel2000, OleServer;

type
  TFormMath = class(TForm)
    ControlBar1: TControlBar;
    MainMenuBar: TToolBar;
    PageControlGraph: TPageControl;
    TabSheet1V: TTabSheet;
    TabSheet2V: TTabSheet;
    TabSheetGOpt: TTabSheet;
    Panel1: TPanel;
    TimerXYZ: TTimer;
    PageControlMain: TPageControl;
    TabSheetGraph: TTabSheet;
    TabSheetMath: TTabSheet;
    TabSheetLib: TTabSheet;
    Panel2: TPanel;
    Panel3: TPanel;
    Splitter1: TSplitter;
    Panel4: TPanel;
    ListBoxResult: TListBox;
    Splitter2: TSplitter;
    FunDef: THighlightedMemo;
    PanelSDFNum: TPanel;
    ListBoxFunDef: TListBox;
    Splitter4: TSplitter;
    SDFunOL: TScienceDraw;
    BitBtnSave: TBitBtn;
    BitBtnCompile: TBitBtn;
    BitBtnPartComp: TBitBtn;
    BitBtnFR: TBitBtn;
    Label1: TLabel;
    LabelRC: TLabel;
    ReplaceDialogFun: TReplaceDialog;
    AutoSaveDesk: TAutoSaveDesk;
    PopupMenuFunDef: TPopupMenu;
    NPCopy: TMenuItem;
    NPPaste: TMenuItem;
    NPUndo: TMenuItem;
    NPSelAll: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    NPCut: TMenuItem;
    Edit1VB: TLabeledEdit;
    Edit1VE: TLabeledEdit;
    BitBtn1V: TBitBtn;
    ComboBox1V: TComboBox;
    ComboBox2V: TComboBox;
    Edit2VS: TLabeledEdit;
    Edit2VZ: TLabeledEdit;
    Edit2VX: TLabeledEdit;
    Edit2VbZ: TLabeledEdit;
    Edit2VeZ: TLabeledEdit;
    Edit2VbX: TLabeledEdit;
    Edit2VeX: TLabeledEdit;
    BitBtn2V: TBitBtn;
    EditHintX: TLabeledEdit;
    EditHintY: TLabeledEdit;
    EditNPS: TLabeledEdit;
    SDFun: TScienceDraw;
    MainToolBar: TToolBar;
    ToolButtonJ0: TToolButton;
    ToolButtonJ1: TToolButton;
    Edit1VS: TLabeledEdit;
    Edit1VX: TLabeledEdit;
    Edit1VY: TLabeledEdit;
    Edit1VOrg: TLabeledEdit;
    ToolButtonJ2: TToolButton;
    ToolButtonJ3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton10: TToolButton;
    ToolButtonReset: TToolButton;
    EditMaxX: TLabeledEdit;
    CheckBoxXYE: TCheckBox;
    TabSheetLines: TTabSheet;
    EditMaxY: TLabeledEdit;
    EditMinX: TLabeledEdit;
    EditMinY: TLabeledEdit;
    CheckBoxSC: TCheckBox;
    GroupBoxNormal: TGroupBox;
    MemoNormal: TMemo;
    Label2: TLabel;
    EditAnswer: TLabeledEdit;
    ComboBoxVNum: TComboBox;
    Label3: TLabel;
    EditV1C: TLabeledEdit;
    EditV2C: TLabeledEdit;
    EditV3C: TLabeledEdit;
    EditV4C: TLabeledEdit;
    EditV1V: TLabeledEdit;
    EditV2V: TLabeledEdit;
    EditV3V: TLabeledEdit;
    EditV4V: TLabeledEdit;
    GroupBoxComplex: TGroupBox;
    MemoComplex: TMemo;
    Label4: TLabel;
    EditCSV: TLabeledEdit;
    EditCXV: TLabeledEdit;
    GroupBoxOther: TGroupBox;
    Label5: TLabel;
    EditDec: TLabeledEdit;
    EditHex: TLabeledEdit;
    EditJD: TLabeledEdit;
    EditHD: TLabeledEdit;
    EditSta: TLabeledEdit;
    EditStaAnswer: TLabeledEdit;
    ComboBoxSta: TComboBox;
    EditXC: TLabeledEdit;
    EditYC: TLabeledEdit;
    RadioGroupCO: TRadioGroup;
    RadioGroupCS: TRadioGroup;
    BitBtnCreateLine: TBitBtn;
    CheckBoxEC: TCheckBox;
    EditMaxZ: TLabeledEdit;
    EditMinZ: TLabeledEdit;
    CheckBoxEup: TCheckBox;
    CheckBoxEDown: TCheckBox;
    ToolButtonClear: TToolButton;
    ToolButtonEp: TToolButton;
    EditXVR: TLabeledEdit;
    EditYVR: TLabeledEdit;
    TabSheetAni: TTabSheet;
    BitBtn2DA: TBitBtn;
    BitBtn3DR: TBitBtn;
    BitBtn2DR: TBitBtn;
    Edit2DRX: TLabeledEdit;
    Edit2DRY: TLabeledEdit;
    Edit2DRNum: TLabeledEdit;
    GroupBoxEquation: TGroupBox;
    GroupBoxInte: TGroupBox;
    Panel5: TPanel;
    BitBtn2DRC: TBitBtn;
    EditKC: TLabeledEdit;
    EditLC: TLabeledEdit;
    BitBtnC1: TBitBtn;
    BitBtnC2: TBitBtn;
    BitBtnC3: TBitBtn;
    MemoEqLeft: TMemo;
    Label6: TLabel;
    EditEqRight: TLabeledEdit;
    EditEqAnswer: TLabeledEdit;
    EditEqA: TLabeledEdit;
    EditEqVC: TLabeledEdit;
    EditEqXB: TLabeledEdit;
    EditEqXE: TLabeledEdit;
    Label7: TLabel;
    EditIntXB: TLabeledEdit;
    EditIntXE: TLabeledEdit;
    EditIntCent: TLabeledEdit;
    EditIntAnswer: TLabeledEdit;
    BitBtnGetAnswer: TBitBtn;
    BitBtnIntGet: TBitBtn;
    ImageListMenu: TImageList;
    ToolButtonSDColor: TToolButton;
    PopupMenuGraph: TPopupMenu;
    PopupMenuData: TPopupMenu;
    PopupMenuColor: TPopupMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    ColorDialog: TColorDialog;
    ToolButtonHelp: TToolButton;
    ToolButtonSDEP: TToolButton;
    ToolButtonSDER: TToolButton;
    ToolButtonMulti: TToolButton;
    NGraph: TMenuItem;
    N12: TMenuItem;
    N42: TMenuItem;
    NELinkN: TMenuItem;
    N62: TMenuItem;
    N72: TMenuItem;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    N13: TMenuItem;
    N43: TMenuItem;
    PopupMenuHelp: TPopupMenu;
    N14: TMenuItem;
    N32: TMenuItem;
    N53: TMenuItem;
    N33: TMenuItem;
    N44: TMenuItem;
    N5TotalVariance1: TMenuItem;
    otalVariance1: TMenuItem;
    X1: TMenuItem;
    N8X11: TMenuItem;
    N15: TMenuItem;
    ScaX1: TMenuItem;
    N1: TMenuItem;
    NPSP: TMenuItem;
    NPSA: TMenuItem;
    NPSR: TMenuItem;
    ToolButtonOutLine: TToolButton;
    NTransG: TMenuItem;
    N5: TMenuItem;
    SavePicDialog: TSavePictureDialog;
    N4: TMenuItem;
    NDShow: TMenuItem;
    N7: TMenuItem;
    NDFO: TMenuItem;
    NDFC: TMenuItem;
    NDFB: TMenuItem;
    NDFE: TMenuItem;
    ImageListHot: TImageList;
    N6: TMenuItem;
    N8: TMenuItem;
    Panel2VT: TPanel;
    ComboBox2VT: TComboBox;
    Edit2VTX: TLabeledEdit;
    Edit2VTY: TLabeledEdit;
    Edit2VTZ: TLabeledEdit;
    Edit2VTB: TLabeledEdit;
    Edit2VTE: TLabeledEdit;
    BitBtn2VTE: TBitBtn;
    Edit23DRZ: TLabeledEdit;
    BitBtn3DTurn: TBitBtn;
    ComboBox3DTS: TComboBox;
    GroupBoxMatrix: TGroupBox;
    Panel8: TPanel;
    BitBtnMatrix: TBitBtn;
    SGMatrix: TStringGrid;
    SGResult: TStringGrid;
    Splitter3: TSplitter;
    N9: TMenuItem;
    NAlwTop: TMenuItem;
    BitBtnMoreR: TBitBtn;
    EditRXC: TLabeledEdit;
    EditRYC: TLabeledEdit;
    EditCFV: TLabeledEdit;
    EditCFAV: TLabeledEdit;
    PageControlCacu: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    MemoIntFun: TMemo;
    Label9: TLabel;
    N10: TMenuItem;
    TabSheetNXYZ: TTabSheet;
    GroupBoxNXYZ: TGroupBox;
    Panel6: TPanel;
    SGNXYZ: TStringGrid;
    SGNXYZRe: TStringGrid;
    Splitter5: TSplitter;
    Splitter6: TSplitter;
    EditNXYZ: TSpinEdit;
    Label8: TLabel;
    EditMatrix: TSpinEdit;
    Label10: TLabel;
    BitBtnNXYZ: TBitBtn;
    EditNXYZPre: TLabeledEdit;
    EditNXYZMaxT: TSpinEdit;
    Label11: TLabel;
    NECor: TMenuItem;
    EditV5C: TLabeledEdit;
    EditV5V: TLabeledEdit;
    TabSheetInvisible: TTabSheet;
    GroupBoxInteN: TGroupBox;
    TabSheetWF: TTabSheet;
    Panel7: TPanel;
    BtnInteN: TBitBtn;
    StringGrid1: TStringGrid;
    EditInteNAnswer: TLabeledEdit;
    Label12: TLabel;
    EditInteNN: TSpinEdit;
    ComboBoxMatrix: TComboBox;
    Label13: TLabel;
    TabSheetZRN: TTabSheet;
    GroupBoxWF: TGroupBox;
    GroupBoxZCN: TGroupBox;
    Splitter7: TSplitter;
    StringGrid2: TStringGrid;
    TabSheetDXH: TTabSheet;
    GroupBoxDXH: TGroupBox;
    Panel9: TPanel;
    Label14: TLabel;
    EditWFFN: TSpinEdit;
    EditWFJD: TLabeledEdit;
    BitBtnWF: TBitBtn;
    EditWFTO: TLabeledEdit;
    SGWFFun: TStringGrid;
    SGWFR: TStringGrid;
    Splitter8: TSplitter;
    Label15: TLabel;
    EditWFRN: TSpinEdit;
    EditWFVBC: TLabeledEdit;
    ComboBoxWFO: TComboBox;
    Label16: TLabel;
    N16: TMenuItem;
    N17: TMenuItem;
    IO1: TMenuItem;
    OpenDD: TOpenDialog;
    SaveDD: TSaveDialog;
    Label17: TLabel;
    ComboBoxNXYZ: TComboBox;
    NCorLB: TMenuItem;
    NCorMid: TMenuItem;
    NCorNo: TMenuItem;
    Panel10: TPanel;
    SGZDNRe: TStringGrid;
    Splitter9: TSplitter;
    SGZDN: TStringGrid;
    EditZDNDN: TSpinEdit;
    EditZDNRN: TSpinEdit;
    BitBtnZRN: TBitBtn;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    ComboBoxZDN: TComboBox;
    CheckBoxEE: TCheckBox;
    TabSheetSigG: TTabSheet;
    Panel11: TPanel;
    SGDXHRe: TStringGrid;
    Splitter10: TSplitter;
    SGDXH: TStringGrid;
    EditDXHVN: TSpinEdit;
    EditDXHYN: TSpinEdit;
    Label21: TLabel;
    Label22: TLabel;
    BtnDXH: TButton;
    ComboBoxDXH: TComboBox;
    Label23: TLabel;
    EditLenRatio: TLabeledEdit;
    EditNextAlpha: TLabeledEdit;
    EditNextSida: TLabeledEdit;
    EditDNum: TSpinEdit;
    Label24: TLabel;
    BitBtnChao: TBitBtn;
    EditRandom: TLabeledEdit;
    procedure BitBtnCompileClick(Sender: TObject);
    procedure FunDefKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FunDefMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FunDefChange(Sender: TObject);
    procedure BitBtnSaveClick(Sender: TObject);
    procedure ListBoxFunDefClick(Sender: TObject);
    procedure ReplaceDialogFunFind(Sender: TObject);
    procedure ReplaceDialogFunReplace(Sender: TObject);
    procedure BitBtnFRClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure NPSelAllClick(Sender: TObject);
    procedure NPUndoClick(Sender: TObject);
    procedure NPCopyClick(Sender: TObject);
    procedure NPCutClick(Sender: TObject);
    procedure NPPasteClick(Sender: TObject);
    procedure PopupMenuFunDefPopup(Sender: TObject);
    procedure BitBtn1VClick(Sender: TObject);
    procedure Edit1VBChange(Sender: TObject);
    procedure ComboBox1VChange(Sender: TObject);
    procedure Edit1VSKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1VSChange(Sender: TObject);
    procedure Edit1VBKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1VEKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1VXChange(Sender: TObject);
    procedure Edit1VXKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1VYKeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2VChange(Sender: TObject);
    procedure BitBtn2VClick(Sender: TObject);
    procedure Edit2VSChange(Sender: TObject);
    procedure Edit2VSKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2VZKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2VXKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2VbZKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2VeZKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2VbXKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2VeXKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2VZChange(Sender: TObject);
    procedure Edit2VbZChange(Sender: TObject);
    procedure SDFunMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SDFunMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SDFunMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SDFunMouseLeave(Sender: TObject);
    procedure PageControlGraphChange(Sender: TObject);
    procedure MemoComplexChange(Sender: TObject);
    procedure MemoNormalChange(Sender: TObject);
    procedure ComboBoxVNumChange(Sender: TObject);
    procedure EditV1CChange(Sender: TObject);
    procedure EditV1VChange(Sender: TObject);
    procedure EditDecChange(Sender: TObject);
    procedure EditHexChange(Sender: TObject);
    procedure EditJDChange(Sender: TObject);
    procedure EditHDChange(Sender: TObject);
    procedure EditStaChange(Sender: TObject);
    procedure CheckBoxXYEClick(Sender: TObject);
    procedure EditXVRChange(Sender: TObject);
    procedure EditYVRChange(Sender: TObject);
    procedure CheckBoxSCClick(Sender: TObject);
    procedure CheckBoxEupClick(Sender: TObject);
    procedure CheckBoxEDownClick(Sender: TObject);
    procedure EditMaxXChange(Sender: TObject);
    procedure BitBtn2DAClick(Sender: TObject);
    procedure TimerXYZTimer(Sender: TObject);
    procedure BitBtn3DRClick(Sender: TObject);
    procedure BitBtn2DRClick(Sender: TObject);
    procedure Edit2DRNumChange(Sender: TObject);
    procedure BitBtn2DRCClick(Sender: TObject);
    procedure BitBtnCreateLineClick(Sender: TObject);
    procedure RadioGroupCOClick(Sender: TObject);
    procedure BitBtnC1Click(Sender: TObject);
    procedure MemoEqLeftChange(Sender: TObject);
    procedure EditEqRightChange(Sender: TObject);
    procedure EditEqAChange(Sender: TObject);
    procedure EditEqVCChange(Sender: TObject);
    procedure BitBtnGetAnswerClick(Sender: TObject);
    procedure EditIntXBChange(Sender: TObject);
    procedure BitBtnIntGetClick(Sender: TObject);
    procedure N11DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
    procedure N11Click(Sender: TObject);
    procedure ToolButtonSDColorClick(Sender: TObject);
    procedure ToolButtonJ0Click(Sender: TObject);
    procedure ToolButtonSDEPClick(Sender: TObject);
    procedure ToolButtonSDERClick(Sender: TObject);
    procedure ToolButtonResetClick(Sender: TObject);
    procedure ToolButtonClearClick(Sender: TObject);
    procedure ToolButtonMultiClick(Sender: TObject);
    procedure ToolButtonHelpClick(Sender: TObject);
    procedure NGraphClick(Sender: TObject);
    procedure NPSPClick(Sender: TObject);
    procedure ToolButtonOutLineClick(Sender: TObject);
    procedure N42Click(Sender: TObject);