main.dfm

数值分析 Gauss消元法Delphi源程序

      7B9B73476788FF00A4D5D0617D6DC57B41CCADD493F9D04B3FB2BA5A3228BD9B
      E97B6C6F8B557EA5D3717A8D068C86C8FCD70FA4C77EFB179C753E8D95D3B20D
      7600E69FA160FCF0815388106656C60D7BFDC04ABA6B7906009F355C64165819
      6E801566DCD6ECD01DBE2B09960BB3FD4265A0F256DBADAE1A18ED4F0B332EF7
      33F425B2419941DC5EDD4003C569FD58C019597BDE3757516993E2D0BBE6B031
      BB58200423B0590DE7C11411F24E00EC91129A2123E49E57FFD3E39CE6BC3DCE
      04B886EC2386C7D2DCB631F17ECA31DAFD1D709D3E1B966F5169FB4BCF00F1F2
      54C680F98D145249385A7D27AB6474EC81656F26AE1F5498737E93BF91F9ABB7
      C97E2FD63E9360C7836B46E634901CD78FF07EE5C0BE8B297BAAB9A58F6CEE07
      C47E6AEBBEAAF42A2DA3EDD94DDCE247A6C7023681BB77D2FDF5D45FD3F16D61
      63AA6BAB7685847FD43BFC1BD711774DCEE89D499F67B48A1E49A9FDB5FCCBEB
      FF0048C5D1E175C70D94E4FBDDC3ED1A1FEBFA6B472B0F17A851B0C381D5AE1C
      B5DF98F5C8753C1AB11E05D008E0FEFE9BDEFF00FA2B47A263544BAB6BFDAF87
      37830211B2697D1905AFFA3DBE084EC5AAC7076D05365E234525CC86C0D571F6
      32CAEC79683EEE215EE96CB1D68369E380655CCDC4F51DBF81E2ABB311CEF206
      40F88FFCE5771D0B05B878607E73FDC4ABAFCA6EF0C610EFDE83A80855B5C097
      CE8785646A21484F1F8A904C52EC92FFD4E5B0F05F9B994E253F4ADD5C49DCD1
      A7A965BFA1FF00835B9D547D968C124EE2CDED1E25AC3E9EFDBFD458990FDEE6
      B9DC3A75F22AADD59ADC5B32225AEF2FDD40492493856B0736FC2C817E3BB6BD
      BDBF35C3F72C5DEF4ABFA575A3EB9637ED2000FA9FAC47EEFEFAE8AA631AC0DA
      C6D68D00468D2153CEC3AB2E8754FD0FE6BBF70FE6B97136975790EC6B9A597D
      260387047E6BD5DC6CBC8A4EEADDAF26350558CBCAA7A963FA194CF4AFD7D1B4
      896977B5BE9EEFEDAE7FA7E6DF8590459ED734EC70FCD2E69DAFD9B7D8BB3193
      4753C32FAC075B58FA1F9CB285AFC6A1D917B4D550312E59D959B665C06B4B28
      1F2DC8593737D2DB5D7EEF829F4B163ECDCF6FB472616DE4E239D2D2D88127C8
      20579FD229D1F734C1D00F719617FEEFEFAA995F5BAD16963006E3C6D91F4DA3
      FD333F316F6164539005EC78B439BA5806D3FF005C5A54B4011328ED8984E751
      A24D99D548A83C91F04F3DBBAFFFD5AFF525B43B2B21EF6CBEBAC16BCFE6027F
      48DFFAFB3FF467FA44FF005AC62D6DC7634C4FA8F2CFCEF73BF7FF0032B5CE96
      336B435DED3A81E6837B60472077555249249382AC6265DF8B7B6FA1DB2D66A0
      8EFF00D65E9BD0BAF51D5681C3325BFCE57FFA35AB68B8468A27511E3C9583D7
      FA63F21A3331C7EB18FAC47F38DFCFADCB22A6E3E4341A4ECB36CB987DAE69FC
      EDCD4A917B6C2D925AD3B8874107F9BFA0AD8C6C7BDD70B69168163F6F62377E
      8EC52C4A7A5D7736CC673EAB07B1C35EDFBEB62FC3C6CDC5354035BE1CE9FCE2
      3F9B7ACFBBA0E5BD9ECB580F6D14ABFAB151D6FB0BDDE0340AF63E161E134318
      DD3B83AEBFBAA76B68CA77A449124196E874FE52E5FEB2F40682ECBC3AF61126
      DADBC380F77AAD5C7EB3E1FEC5A9D17AB3FA7646E82697887560FD1FF8562F43
      C5C8AF2296DF4BC3EA7090792AE8D469CF29E60C76520653CA63F8268D257FFF
      D6E67A4755BBA665FAD5B77070DAF61FCE0AD75FCBA736F65F4C96910E93F40F
      D2FB37F61EB31968F4CB5DA16EA2509F687088424924E04A7734B4C1514E158C
      2CCBF1321B7E3B8B2D61D08FFBFAF4CE87D768EA75347D0BC0F7D7E7F9D6356C
      482411C24741F15917606353758F7303AAB7570882C73BF3FD54D6F4AA7D1DF8
      E7E80D04E9042A9D39EEC6C67DD734878100732E8FD27FE0885D0B16CBDCFC9B
      9AE632D7B8C793574CDADA1A2000111A2340A363C35927425626765073CD753B
      6C727983FE97FE312C2CAAEA12E717103C55BAF26BC9B49E0446D3C1FEB2E17E
      B1748FB0647AB50271EC24B67B177D358B3F25B1D0FAE5FD32D2CFA58CF80587
      F33F96C5E918B7D39148B6970731DA821139309365A4CF827064184FF1E13F78
      ECBFFFD7E2C336969782187823F3922FD6469FEBF414489D5412492526BA27CC
      29596179924B8E824F837D8DFF00A086927046B3F246C6CABB1AE6DD438B2C6F
      71DFFACBD3FA0F5BABA9E3071817B3F9C60EDFCB6B56D000EBD942CAC3985A44
      83D955AEA35C86E8DDA7737FEA564E1675799976D4C1B995E9BA742F1F4AB62D
      9AA96B7467067EF28F0781D93978682E3F44492560F56EA1036D6ED4F0B131B0
      AC70F5AD796D63BB8FD253C6B997640A6AF749891C2E99985E833D46925C3909
      65E155D4309D8F6899FA27F75798E661D98794EA6D10E6C8D7B8405B7D07ADDB
      D3EF15B9DFABB8C41FCD95E895DECB407B0821C0111DD149042436B751DD4A7B
      76EE87EEE3B73F25FFD0E56BAC5F6554BDFB5A4C03FBAA7978566064ECB5BBEA
      3AB1DD9ED3F9CD552E6007737469414C9249C84C924927044107E4ACE166DF87
      90DC8C771658D3A11FF499FDB5E9FD0BADD1D531B736197B3F9DAFF74FF23F90
      B6106E0035CE3A0221D1E0B3F07068C6A7D3A1AD26B2E703F9C4587D5B1F67F9
      FE9A2E1750A6F2E647A790C243AA3DB6FEEFEFAB66D60693B81FEF599979D606
      96B46D9598CC275AF2EB757761E2896625976BB4B9A3E88FCDFF00355BC4E9B6
      54E0F0D034E00D27F796D8D46BE10505AFAEA77A6F305C745CE7D6DE93EB51F6
      C637F4ACFA51DDAB82FF005291E1747D03AF598E5B8B9077564C31FDDBFC95DD
      B0EF68734C8239531A0D4F093DFC8060A1FA8E9DDDA36479FEF2FFD1E55859BE
      23DD320CF0BB1BFA6B33B02BA5E76DBB658F1AC2E472AAB715E71B25B2E1307C
      47EF2A4E601A8220896A1249C72885AD2D24983AFE08709924924E0C0573A7F5
      0BF07259934187B09807870FCF658BD47A3F59C5EA78C2CA8C5807E92B3F49A5
      693B8F1F259F487D596FACFF0034FD5BA7023F9AFF00B7154CC6328CB664B5BA
      8735A7FAAEFA4AB5E6F36ECAB926093C08FF00D28C45AF06B7C9DC5E3BB8F0B4
      AAAAAADA01D63B932AC035CCC803C67452F56B03E90F0E53FAB57EF0F0E7C554
      BEE639C223413C7FDF92B5F565E2D9B08716832DF87E6AF35EAD87F65CC76D11
      5D90F6FF006BF37FB0A8263E2BBBFAABD54E452EC6B5F36D5A341FCE6AE8F735
      C0F6213384C3A35EE85EE9E7BCC2FFD2C9BBA3BBED2C275AEC1B98F67D123FF2
      6AD6475FAE815D1549357B6488D02A5D5325B9D59BB6903DA1BC7D27FABFFBC9
      91FF00817FA458C1CDDAE611A113A6BEE1FE6A83AA2D00BB49E10E138E510BC9
      AC881B4199EF250C994C92492494ABBD37A96474FCA6E452751F49BD9C3F757A
      BF4DEA34E7E332EAC8248973419DA7F391EF68203FBB0CACFEA4C16E2B9EDFF5
      D7E922FA4DB28658DD0BC020F3AA97D9AD7340FA2D982C1FBBFD747AF12B68F1
      5314336ED810A2EC5A5C236AAC3A7B1AE247D131A1E7454AF78194D66FFD1D8D
      219A1D3D27575DCD7FFC27AB6A6A1D5E27517347F377804791591F597A77E85E
      E1CD4E969FE43FDFFF0081AE3071E7E092362E45B8B7B2FA8ED730C9F35E89D3
      FA8D5994D7730FB9E21DE1B9687A85C0EDD08EDE2A3B991BA75F0F35FFD3A7D1
      BAD55E91C2CB80C69FD0BF41B6CFFC82CAEAD89E95EE204C9DC07F24FEEB967D
      5633D41EB34B99F9C01D63DDBDCC6FD0F53FC2A1BB6C98981C4EBA29B5E5CD0D
      896B784270E638F0514F2623B148244787E29924924925ABD17AB5DD37299635
      C7D271FD237F92BD4F1726ACAC76D9510E63C483F1418687BF18FE782E6CA587
      AE3D6CE455ECF9B3D9B95AF7E849DBE2A7ED01391E4925B4447658D7F4F2EEA0
      32D9635C60B1D538103DDB1CF7B7FE177D4A39340DCCB5C23D27007FAA9FAEB5
      AFC0B5DDCD4E2D3E241ADECFFA1EA2F348D09F21F7A884A274F15B3D173ECC37
      B776B8F69823F71D3F9EBBB65AD78041F6F62A7E93376EED131F9B2BFFD4E40E
      458FB43BDCE713264EAE27FAAAEE5E4EF8C7261B5831D8308FFB4DFA4F7FE87F
      9BFF008C594799EE96E311D93B2C734E8A7B0130E20EE04FB7DC741BBE8A1110
      9920613924EA5324924924A40E8BA3FAB7D7DDD3ACF46FF762D863FA8577799F
      A5A199341DC5B0E6B8705A54F046960ECE3B9BF3569D1A076A907183B5B1096F
      81A9F720BB2EA69327E04FD1FF00392FB4D8F69D8C99EFC47F29071E9B9971F5
      9C1C1DA882A79F58755B4F7807EF55F2B11D93D3DD5196968869F186ECFF00D1
      96AF2C24C7E5F8FB989E344B482089953AED2C96F2D7FD21E27F7D6E74DEBF65
      18EDC77439DB8005C7F367F3975BEB3BECDEB7A83D0FE73FB11EA7FD42FFD5E2
      64CCC6A9FD5793A999D0CF81FA4A56B182C701F4418041DDFF00915035C3439D
      A020ED3E2A0A4D3AA7780383CEAA09DAD2E3012213249249249E53F65D37D5BF
      AC0FC478C3CA74E2D836B5C75F4A7E8FF617678169664D98A4FBDBA37FA9F4B1
      ECFEDD4B46E73C57B98D0E778158F6E5E7925ADD8D9F377FE4553B5DD446A6F6
      86FC0CFF00D523E3982DB5CD6DAF3A173DDAFF0099FCDAB96E7DCDD69635C00F
      1EEB16FEBB96DC9AEBB59E934BA770215CC7BB2DB7EFB1C5D558356BB585AF89
      7FABEAC992D260791FFCED796E634559991481ED6DAF681E4C73D8D55BBA9B58
      1F5EF69D468E05423B248BEBDDB3D3DEED9FBB276FF557FFD6E56CC26D7587BD
      C585CC6BAB6F3EA170AF737D46FE8FF3FED3FE17F41FA3FD15EAA35AC33248D2
      477D53FB9F3C6927C10E4C265267D20AD66596D9616D823D3F631A40966D3FCC
      FB1ADDFE8FD055088F9264924924924924F296E2BABE91D6BD6C8C01738B32A9
      2DA77F2DBEA73EAAFF0059FDCB28C7F57D3B17A1BDB2C20EA61673A87179241D
      3881291A37FD36CFC901F8BE9BA6B06B03E8C0DC372A39D7B2AAE44B20C40079
      FCE599662D16DD5BAE79D636FCD74F5E1FA94B5A1FEE6913F055F1A69EA36E33
      8EBB43E7F92B83EB559ABAB65B5C20FAAF23FB4EF5BFEA2C59E44A9B3E91034D
      C99CD82A29775FFFD7E631FED8716F034C7D837177D18DFF00A0F43FF433D3FE
      8FFF009E7D459FEEFC3F04B5EE98C764C9C4CE9CA27E93D4FD24EE9333FBDF9C
      A0FF00A47E2A29C477520D67EF01F2296D67EF8FB8A5B59FBE3EE296D67EF8FB
      8A5B59FBE3EE296D67EF8FB8A5B59FBE3EE296D67EF8FB8A5B59FBE3EE2A6C69
      91B1FAC8880667F317AB742B3A9BF0583A855E9D8C6B435D2D26D6C7B6CB1AD7
      3DF5BD6992E9D048509B67E8E9F24CEF534EDAAAEE6D7037BC6D933BC0FF00D1
      8901D3B4DC6B267DB31CFF0025031F60EA195B371692C92376D1EDFD2EDFF07F
      B8935B8FFB449B1D395E97D183FCD7BBF73F47FF00A3570DF59F69EB993C08DB
      3CFB9FE9D1BBFE82C5D67C9389DCD8E6744EEE7F95F9DF1514BBF9AFFFD9}
    Stretch = True
  end
  object Edit1: TEdit
    Left = 216
    Top = 32
    Width = 65
    Height = 24
    TabOrder = 0
    OnKeyPress = Edit1KeyPress
  end
  object BitBtn1: TBitBtn
    Left = 296
    Top = 32
    Width = 57
    Height = 25
    Caption = #30830#23450
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object shu: TStringGrid
    Left = 16
    Top = 128
    Width = 489
    Height = 193
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs]
    TabOrder = 2
    Visible = False
  end
  object BitBtn2: TBitBtn
    Left = 224
    Top = 336
    Width = 75
    Height = 25
    Caption = #35745#31639
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    Visible = False
    OnClick = BitBtn2Click
  end
  object StaticText1: TStaticText
    Left = 24
    Top = 32
    Width = 191
    Height = 24
    Caption = #35831#36755#20837#31995#25968#26041#38453#30340#38454#25968#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object StaticText2: TStaticText
    Left = 24
    Top = 80
    Width = 140
    Height = 24
    Caption = #35831#36755#20837#22686#24191#30697#38453#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    Visible = False
  end
  object MainMenu1: TMainMenu
    object N1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N2: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = N2Click
      end
    end
    object N3: TMenuItem
      Caption = #24110#21161'(&H)'
      object N4: TMenuItem
        Caption = #20851#20110#31243#24207'(&P)...'
        OnClick = N4Click
      end
      object Gauss1: TMenuItem
        Caption = #20851#20110'Gauss(&G)'
        OnClick = Gauss1Click
      end
      object M1: TMenuItem
        Caption = #20851#20110#25105'(&M)'
        OnClick = M1Click
      end
    end
  end
end