elimination game 源代码

/* * Solve set of linear equations involving * a Hilbert matrix * i.e. solves Hx=b, where b is the vector [1,1,1....1] *…

////////////////////////////////////////////////////////////////////////////// // // optimize.[h,cc] -- procedures for AST optimi…

%# %# function [pv,fv,pop]=ga1(xc,yc,xt,yt,cc,chrom,maxvar,psel,... %# mate,pcros,pmut,gen,cvgp,valeurlim,..…

/* * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public L…

function x = tri_ge(a,b) % Function to solve b = a*x by Gaussian elimination where % the matrix a is a packed tridiagonal matrix…

real*8 function trige( A, b, N, x) integer*4 N real*8 A(*,3), b(*), x(*) ! Function to solve b = A*x by Gaussian el…

function x = bslashtx(A,b) % BSLASHTX Solve linear system (backslash) % x = bslashtx(A,b) solves A*x = b [n,n] = size(A); i…

function [L,U,p] = lutx(A) %LUTX Triangular factorization, textbook version % [L,U,p] = lutx(A) produces a unit lower triangu…

function x = bslashtx(A,b) % 被交互实验trylu调用 % BSLASHTX Solve linear system (backslash) % x = bslashtx(A,b) solves A*x = b …

function [L,U,p] = lutx(A) % 被交互实验trylu调用 % LUTX Triangular factorization, textbook version % [L,U,p] = lutx(A) produces…