main.dfm

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

object mainfrm: Tmainfrm
  Left = 308
  Top = 247
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Guass'#28040#20803#27861#27714#35299#32447#24615#26041#31243#32452#24212#29992#31243#24207
  ClientHeight = 374
  ClientWidth = 524
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clNavy
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 16
  object Image1: TImage
    Left = 392
    Top = 8
    Width = 113
    Height = 113
    Align = alCustom
    Picture.Data = {
      0A544A504547496D6167658F280000FFD8FFE000104A46494600010201004800
      480000FFED012E50686F746F73686F7020332E30003842494D03E90000000000
      78000300000048004800000000030D021AFFE2FFE3032C02360347057B03E000
      0200000048004800000000030D021A000100000064000000010003030300FF00
      01270F0001000100000000000000000000000060080019019000000000000000
      000000000000000001000000000000000000000000000000003842494D03ED00
      0000000010004800000001000100480000000100013842494D03F30000000000
      0800000000000000003842494D271000000000000A0001000000000000000238
      42494D03F4000000000012003500000001002D00000006000000000001384249
      4D03F700000000001C0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF03E800003842494D04060000000000020000FFEE000E41646F626500648000
      000000FFDB004300120E0E0E100E151010151E1311131E231A15151A23221717
      17171722110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
      0C0C0C0C0C0C0C0CFFC0000B080146010C01011100FFC400A200000105010101
      01010100000000000000030001020405060708090A0B10000104010302040205
      07060805030C33010002110304211231054151611322718132061491A1B14223
      241552C16233347282D14307259253F0E1F163733516A2B283264493546445C2
      A3743617D255E265F2B384C3D375E3F3462794A485B495C4D4E4F4A5B5C5D5E5
      F55666768696A6B6C6D6E6F637475767778797A7B7C7D7E7F7FFDD00040022FF
      DA0008010100003F00EE12492492492492492490EDBA9A5BBAD78601DC9859F6
      7D60E8F5C976557A76075FF3555FF9D9D0A7F9F3F2638FFD4D6ACE3FD62E8D79
      DACC9683E0E961FF00A7B168559145C26AB1AF1DA0828A924924924924924924
      92492FFFD0EE124924924924924946DB195566C790D637524F82E1FAD7D6FB4B
      DD4F4E21AC1A1B4FD227F90B98C8CBC9C933916BAC27C5C500031C683C924949
      9659510EA8961FDE6920FF00D172D0ABAF757A40D996F81D9C777FD52D2C4FAE
      5D4AA817EDBDBE2441FF00A0B7F03EB7F4FC83B2F9C77F89D5ABA3AECAEC607B
      1C1EC770E0641529092492492492492492FFD1EE124924924924A444CE8A8E7F
      57E9F802326E6B5FC8AE66C3FF005AFA6B95CDFAED6124615303501F67FDF6B5
      CDE5F56EA39A6726E73DBFBBA86EBFB8C62A4478709C2705DC03A1E523CA6491
      5B897BD9EA56378E76B48360FF00D07FE7362190E061DCF9884CB4FA575BCCE9
      D68731E5D49FA55B8C83FF0016DFF04BD1BA6751C7CFC617D47930F693AB5FFE
      8D5F4924924924924925FFD2EE124924924933880D2E2600D495C575DFADAE93
      8DD34C0E1D903931EC77A1FF00A5171EE739CE2E7125EED5C67749FDE77FC228
      A4924924924A4D7B98439AE2D2382DFF00BFAD7C4CBC4CA1E9F506070E05ADF6
      ED553A861E356E73B12D17D4220B843B5FCD67EFEC545753F52725ECCCB714C9
      ADEC2E1E4FACFD25DFA492492492492492FFD3EE1249249250B6DAAA61B2D706
      B19AB9C780B84FAC3F5A3ED8C761E112DA0E965BC39F1F994AE575E7C79F9249
      249249249249771E1DD103834F32DF2531786931C111047082B47A1E6B70BA9D
      17B8ED66EDB67F51FF00CE3D7AA873480419075053A4924924924924BFFFD4EE
      12492489D160F5AFAC58DD37F46D1EB6491F42486B7FE31CD5C1F50EAB9DD41F
      BB22C3B47D1A9B2DA9BFF174B7FF00522A292492492492492492492492EFFEA8
      F563958E70EE3BADA1A0B5DE357E637FEB6BA9492492492492497FFFD5EE1249
      23C2E7BEB375C774EA5B4D1FD22ED41FDC60FF0008BCEACB6CB6C759612E738C
      9712A292492492492492491D12F925213A6909C495B1F55B2463757ACBBDADB4
      163A7E3ED5E9F2124924924924925FFFD6EE124925E69F5B2F16F5BB434E95B5
      AC8F303F4AB0924924924924A52ED3C03C2954C75B60AD825EE3B5ADEE495AB5
      FD5AEB763F6FD98B5BFBCE21A169D1F51F35E1AEBAEAEAF10D1BDC3FEB8B46AF
      A8B860837E4596476686B3FE97D344B3EA474C77D0B6D67CF7219FA8B871EDC9
      B07C9A556BBEA2B80DD8F940BA3F3DB1AFFD6962E4FD5BEA58F66C73413F9A5B
      AB5DF47F9D77E67F38A85B8B9D8C5AEB29B1846BBA3BFF00617A5742CF19FD36
      AB8905C3D8FF00EB316AA492492492492FFFD7EE124922BCA7EB056F675BCB2E
      E4BC9FEC90CDAE59A9249249249F53C29D38EFBED6B19A498DD05C3FE82E8F0F
      EA765DF0FB6E6D6CD403B7F49FD85D474CFABBD3FA735A5AC16640E6E7EAE9FE
      4AD78FBD2008484A74C49851712DD791E4A25ACB01968703DBBFFAFF00369369
      A9ADF4C306CF0891FF00490E9C2A7143CE2B1B56EF739A07B4B9586125B2ED0F
      7852492492492497FFD0EE2524923C2E2BEB974AB1CF6F51ADB30032E89274FE
      6ED5C7B2B73F81A77512083AE909924924B5EC2559C3C5B72AE6D74B0D8FDDC7
      E6FF00D717A5748E9AEC2C668BF63AF3A92C6ED6B7F90C5A427E694129F50120
      529D53A78D1311A42839A0196F3E4936E6FE7687CD12524924924924925FFFD1
      ED5CF68EE99AF054C3A53A8BDA1CD2D3041D083A885C3F5CFAB9938F63B23A73
      77631F73AA1FE0CFEFD6B937B893AFFAC2883292497E55A381D2ACCCB455AEE3
      D870D1FCBB17A174AE978FD3A86B2A68F50FD27F8AD0DDAC1FBD3CA70E09E354
      A13CC2695294A52854F29AD734883B871E69BA7BACF4CB2C3B8B4E9E3055D492
      4924924925FFD2DC7E502486BA63E49D9964182559665B675740E4AB756431E2
      5BA84799D1316CF7587D57EAC6067136307A371E5CCE1DFF0018C5E759741C7C
      8750ED5D592D27E0505245C7A2EC8BD945226CB0ED683E6BD2BA474CABA7E28A
      E7759FE11DE2E0B48904E9A4764C359EDAA94F6097790A61DA78A7DCA25C9E54
      A52EC9D0DEC0EF274100AAB8F596587589107E4ADB1C260FC94D24924924925F
      FFD3AB6DF65791BAA335BFE63FB2ADB32D8D05BB86E0354F5E50D924C92616C6
      1647B489811AAD3AB201215A0E04A4E92179475C606759CC68D00B5C7FCEF72C
      F3A0526B1D63831825CF80D03992BD0FA3744C7C0A197BD87ED65B0E73BB4FD2
      6B1698B35DBD80D0A70E23529DAE9D78F244DC63C0A41D1A29B48E384FAC03E2
      A2490907A96ED013DD3EF6EEE74530F112806F69B4B41D009255716FBC81EE30
      484D8991EA636E3F4EB710E57EA7EF635C06854D2492492497FFD4A9918AD222
      AF6307D100FD151A6AA853617FF38477F242664535B00E08E158C1C9B5D7021D
      A4F0B7F132D8F78687490755B6C708F8A372202F34FAD74FA5D6AE3DAC0D7FDE
      DF7AC491E23E2576BF54FA1B1AD6E7E557363F5A01ECDFF4AF5D2DCF00993A8E
      CAB87375D751A8F34605AE3AE83BA83ECAEA6B9CE300707FF3159B91D7F1A925
      81AE71F310B3ACFAD8EDED6371C8931CCE9FD95A1D3BEB16065835B9C68B4F01
      FAB4FF0052D5B42D9608D63C0CFF00D4A89B4499D20C25EAB47B66494EDB35DA
      EEDC245D0DD75F8289B5DF4A607C566333E8375C275060CE9FE62B18CF6D80BD
      A79698FF00A957AAA6B0DB83746B9C263C82B2C681B6340070A6924924924BFF
      D5AB9963195ED0E05E39DBC3BFE2D57AAD63980384B87755AE0D12E89F828537
      9ADD234F25AD4E4B2A702D324EBA78FF00296FE1750758D972D46E5308D0EAB9
      1FAE750B2CC6CA6410F0EACFC43BDBFF00569744FABB8F6305D96D900FF36783
      1F41756E7ED0033463746CF6FEAAA39390D6B8B5C65556DFBDE09FCDE15DAEE7
      16E9CF3AE89102D00931E6B94EAF7635790451B9F61D499912B2D95E4DF7036B
      5E4013EC6C913FF17B111FD1F2EA67AAC60B1A38980EFF00B6BFC22B9D17ADDF
      8978A2ED69798F1DBFE6AEAC64D77561EC24B5C374F655FEDA3D51B083E44F6F
      E4AB755B0D2F73F93C93C042B7AB625521B6306DFA4E71D4FF00C5E3FD358D99
      F5919BA31C8747D23B34FECFE9D57C2CEBF337D76B9A2BB9C48276EE68FCDD8E
      6B569F4EC97636012FD5ED26B68FDF793FA36B3FAEBA4A5B6371DA1FF4DFABE3
      B6EFCC560020CF929A492492492FFFD6C1CBA3D3B5B493059E3CA092F60D0A67
      BDC591241E50B73B42758562AB8EC2216A74ECDAAB69693EE3C4AD3AF3DB075E
      558C82DEA58A315F07DCD7B3C9CD5AC07A3480D33B7903FE82AD6DF610013F25
      8599951921AFD0F745A2E1EA02D01C07F15B3592D60B09961EF1F47F92B1FA97
      507105B598EC0447F6973D4D2DB2E75D6196320BC9F3FDC5A6DEB9D36A22A652
      E73469BA76BB40AE7ED1A32F1F6D44B5D608636C10D73BF71B77F835CC5E5CDB
      893F4DA609E0CFD1FA2BAAE8D4DAFC2DAE0743A79859DD5DDF64792D1B6D7186
      B6247BBDED7FF98B2DF7675F8E6C36114B75D4C4B4FEEFFA57A9F4CB7A6876DC
      AA0DEF77101C56ABFA4747CB7138EF343C09754F111FF45673F19F8C5F54C91C
      10AF743B9F7755AE9BDA1E1A7D56F70D733E83D76F6D8E6DE18780265580F04F
      C910194E92492492FFD7C2C82C7173E1CF1E2FFA5FE73155B1E25A008F8A7366
      E7027E0931A4C83A953A5A37904ED03B151BF636C1B1CAEE13DC4472B5F06EF4
      B2EB93ED263EFF006AE9AD60656003D847FDF55718CCAEB758E25C790DF35C8F
      55658DCC73EDFA4EE00FA202274F316074E8B75971F4E0130381D965E6B4DA41
      DBB493B4141A7A752CB98EC96175151121BA9267E95957F85A91B3FEADB72F28
      E4635EDAEAB0EE737693B7FE2F6FF825B2EE9D8EFE9C3083468D0C0F208F7FFA
      7FF48B38F401F64D994EF52CACFF0038CD263F7F7FD35B3D3EAA994B595990DF
      A3DB4FED2E77EB7523ED18B60D1AF9659F105AE66E5B191D130F269B057FA3FD
      18AE9204D5581EE6DDFBFEAACFE8BF56ADC4CC39195631C19F443675FE57BD37
      D63A729F77DA28A40AEB1FA4B1BE1FCA589665FAB4CFE730C39C3B944FABB63B
      F6CD1B4FF381C08060B4B5AF7ED7EF5E8B756D2C13A1690A4C82345300812A69
      2492492FFFD0C4C5A8D551DC26396821C7FEDD6FE8952B9C5EF27C3843DA7432
      ACD5B01DE4F1D912CB1DF4DA04040B087343C883DD1A87C00D6E84AD6A46CA98
      E3ABE64FC975F4E47AF8C1FDA047C906CB1C6C0D70FD181EEF32B9DFAC2C0E21
      D1AC2C2C5BAC6D9B1B131209FA217498B931500E80EEE7B1FEAAB005769D0FBB
      CA11DB471E20E87B83FC877E62B95545B30D1EED4956ABADDB8B9DA488943C8A
      DBB2019776275FFAA55B11A1971D743A6BAAA9F58F0C5B80E274F4A5E1DE7F43
      6FF98A5D2B20FD9AB68D086B60CEBC2D504BC496FBBC4EAA0EA1A016BCCC882D
      EC42E5BAAE1D74B9CFAD8054F3A80A97D5CAD9675CAF735A406BF68266080E6B
      1CCF62EF5F638456E12E1A9FFBEA763877D2558047DC9C3A54A52492497FFFD1
      E6D9790D2CDDCF31007F98DF628D9B358EE81243BE08FA6D11A4A66925DE10A7
      915BE07878A0D766C23B91DD6957945D00AEABA25E2EC073419D851692F758ED
      DA8285D4F09B9153A742D1A15C3B81ADEE6F0468BA0E9AF0FC700EAE6E8568D6
      18D8B1ADF7379F82D1A25FF486AAE02D6900238DA44A03DA0924EA7B2A86A735
      E1C0C099F244EA837F4FB99CEF642C6E85EDA98C71DCE03E97C3F356F35E12CA
      B4331DEFEE0482BCFF0027A8DF6BCB9E742480168FD53A1F77527640DC5B5023
      9FDFFF00CC176192DF7FA801D46D77C7F352A81F35659B89E5127C14870A4124
      925FFFD2E74601DEE6D6EDF5B787704A15B4ED300CBBBA87A674D3E6910F1039
      0AD0C6FD11739C371FA20218363CEC7F1D8A09AE1E47213EADD7FD75F6AEA7EA
      CDAD6BADAE400E634803F781732E77F6D741532011DE7451B1F5BEC7D4DF71FC
      E5C575AC3B69CB73C0FD11E0F9A2F4EC86D6E00F2EE476D174B4B41AB7363DD1
      215BA5A5AF7100003B22491EE311C855EECDB36915E854B1DD7BC13699F008FB
      4F7D003C235F536CC72DFDE0572DD0EFD99B6E1D808B1AF70AE7824173B6FF00
      DB4E5D29640E3DDF82CFEAD73998567DCB8720ED13AEA795D7FD50C734623AC2
      D21D7381DC3DCD2D6FD16ADBBE1EE6807407719EE4293040446B9D308B59F1E1
      101054824924BFFFD3C9B7275F634344F2A99043CD844EED54CEDB5A63420764
      17340100C14ECB7679A97AAC76A85644C82A0E70E0AD5E86CB9B902D60F69F6B
      89FDC2773D74799D6B1B0E9D4EEB883B5BE63F9AFF00B75667D5FEA26C371B9D
      3639FED04EB056D66E1D7998BE9B86B3208EC57337E23B1EE9608DBC8F15A787
      9A0013A02B4DB904827483DFC537AB65CF0C1C0F05A0319819039E550C9EB581
      8D67A1932D7F1B5AD71FFA85671B26ABD9BF1DE2C61D64193FF4968375AC9310
      D13AAE5D99584FEA87601EA0BB70B4681A4B7ECEFA2AFF004D6D9FF09FCDAEA0
      E8D8FC164758A83A8737C795C93E976FF4C6A5DC7CD77B858ECC5C0AD8D11B19
      A6BDE3DE87B7D52C7891078F356192149CD3DB45201DE107F0440606A755207B
      A982924BFFD4C3734BFDC4C1F04ED6B5CC2FB0FB1BA47741F44C17B010C3C206
      D70265216000E9AA85966E8EC0730866E078E428D65D65AD60E5C602EEB1B01B
      5D3536356805DDB54FD53EAF5796C376388BE3493A68B92AE9CAC0CC0D7835DA
      DE41EEBBDE9B92DBA8693F48FD21E0A1D470C5D597304D83F22C0F44D7ABC44F
      6576BB03DECADA74EEB6F1A96B391AF8AB8381B542CAEB9DC409F185899F8965
      36B72BA68155E1C37B07B5968FF84A99ECFF00AE2C53F5A73AB165568DCE0769
      DDA448FA2ED8A974AC7B72332AB818739F263B09DCF5E8B67B4058DD5F23657B
      091BE1616131D939D4D634D65D1AF0BB5CAB994B0B491A05528BDCED3F35BFC5
      5A0F876D3F15299D4F08A1C76F92881DBBA9B099853D549A9D7FFFD5C4F559B8
      12039A8779ACB9BB4ED1E0A2EB5C002C3C6908720C971D4F2101CE6B5BE24A08
      F56090200D261335EC6B7893DCAE93EADF4BDCFF00B6DAD98D6B0785D63434C0
      323C479AB75CB4803E4839BD3B1B2FDD7365DAFBBF7415CED62EC0C9351E1A74
      FE533F317458F915DA3DA342151EA5821D5078D20A0E3E30A08B1E3E90E53D9D
      62BA9E29AD8EBAD3C35BD96A63E51755EA3FF46382DB74FF003542CEA5D3E996
      DB915B3C017B376BEEFE69DEF54EFCCE957B1A7ED95B4CE87701FF0052B03EB0
      B3A5BDD5FD9F218ECA125D1FCDB87F5FFEE423FD5E384DAC5D75A01AB4DA4ECD
      B2BAD193564060A1E1E0EBB9BAF0B9DEB387917E636BA969F47E86CC367AB6FB
      AE7F8A2E76AF0D6C3883ABBC07EEA9D5596B74EFAA286B667F3BBA2861234D14
      C0749047CD4C08521CA9290497FFD6C076238FBB46AAAF6B943D403E9209B5FB
      8FEEA61639A65A35ED3CA6739EED5DF91170719D9590CA5BAEE3AFC17A3D148A
      6A6D6C1018003F246FA4E91CAB748039FA5DD5826164F56C265D57A8D1EF64B8
      2CCC3CB655A177C16B7AADBE9DC0CED855B3CFA949634FB8CC098ECA9F4D60C2
      6FE8D9163FE93A65683B3EC03686823B8EEA0CBA8127D0DA4F2E224B94FD6C1D
      C1C6805DC13B11ED674EB5845B8ED2D2220B377FE09FE09605FD23A103B056F6
      17BB47B1DA37FAAB6BA2F4FC5E9F43FD1717179F739FF4DC1573961F9AE731BB
      76BBE92BF93D42CAAA658D6FB9C76861FCE3FE159FF5B55D8E6D969791EF76A3
      E0ACB4C296E47ADED8D14C92F248EC880B83612AC83F153261481497FFD7C0CA
      BF73B4F6AAFBF77783D8F0A26AA8D45E490C01C1ADD3D43A7E89FF0047F494FA
      FF00CE7F844D7E1E5538ECC8B5914DA48ADE4C176CFD17B6BFA6AAB5A5EE0072
      5381B496BF4107F22E87EA854C7E7BC9FA4D6481E2BB5706ED00B792A6C60023
      BA235BACF822CC894E46E2411234242E47ADF4BB2871C8A4FE8DC492DF024AA1
      8DD51ECACB5DAB408D13B7A8EFD3B157B1F25A1D0EE0AB8092ED351F153F4AD9
      90481F7845656498237BBC62214CD16B75829850D7897E9AA0E465107D1A0FBB
      C5577545B583BBF487955AEBB2BED04076EADDF9BD95AA1E373413B568D7FD69
      08E385369F02AC06CBA5A7E28BCEA3EE4E394E44A9029D7FFFD0E45C493B8994
      37592E03C15BC1A2CCDCEA319BDDC07DE7F39779F58B0B15FD1DCC2C1BA8AFF4
      2EFCE6C0F7B579AB4969078F346B435CD0E6EB3F4968FD58C934757AA746D80B
      4CF985E95B038933A38FE4520DEDE1A04E04764B6F7E54A4F10A1752CB6B2D78
      969E7C579E75DE9B774DC9868FD5EC3FA37F6D7FC1FF00C62AB4595E9ACC2B83
      25967B5A7690B5F1835D04B812B4E19E9FBDE1AC1E07928F580E6C98F8F74F91
      735B4D90E2204CAE4CF55C8B6DF4587DB3AB95B66663626D2F76FB6CD39FA286
      726DB039C0AAD6E55F534970E51FA75832097EED02D7F58D40168DC0765A35BD
      8E6CB66409223856ABDA4098F923B5D0D9DA64A23491A1D4A5B64EA9F5E23452
      84D257FFD1E3EC21BA20B4199893E0B77EACB07ED465AF2036B0E27F941C362E
      87AD753C334D956F12470B8276D331E509EAB363C180E6CEAD77D13FD646C6B9
      9564D570125AEDCE60F68D0EEF62F47E91D4B27A8E38C86542AA8921B2666158
      CBCCCAC4617BAAF55A0C10CF7387E77D06AA947D6AE95638B4DA6A20C0DFA0FF
      00A4B5AAC8A6E68757635E0F05A410514F3CC27E1033B0A8CDC7763DA0398F11
      3DD87F36C62F33EA5D3B27A6651A6D100EAC7767B7F79AAA8B1CD21C383AAD1C
      7C97B809303C655FAED20806C716FEEF28A732DAD840739DE00E8ABB72336E31
      602DA5C60CAD2661D5500E6001B1C9E560F586C66B1AC5A159B195B431933CE8
      A9E71B1F5973B4D6000B3EA75B8F636C125A3B4C6AB56BEA775BB1BB01638804
      4EA415D761E317E2B6F0DD96387B9BAF015CA84ED7C6844479AB018FF14407FD
      E903AEAA4084E92FFFD2E32DD5C25171A9B2E7915E9A13F7256B7D2006A2C32E
      2418807FC1A01717124B8E83B9E540A64E39D785B5D13AF5FD2AC21B16633C83
      6547C3FE07F96BD270F33173F1DB750EDF5BC44F87FC158B82FAD3D30E166FAD
      534328BCC800FE77E76E58B55D7D2EDD4BDD5BCF3B0913FD65AF8BF5A3AAD040