C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: 逆行列の求め方


(過去ログ 151 を表示中)

[トピック内 3 記事 (1 - 3 表示)]  << 0 >>

■87978 / inTopicNo.1)  逆行列の求め方
  
□投稿者/ hflkerfonsi (1回)-(2018/07/22(Sun) 19:12:07)

分類:[C#] 

逆行列の計算ができません
コンソールアプリケーションです
コードは以下の通りです。三角行列まではできました。このあとどうすればいいのでしょう

namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
double[,] x = new double[10, 11];
string line;
string[] ndata = new string[10];
int i, j, n, m;
using (StreamReader buff = new StreamReader(@"mat1.txt"))
{
m = 0;
while ((line = buff.ReadLine()) != null)
{
ndata = Regex.Split(line, @"(\s+)");
n = 0;
for (i = 0; i < ndata.Length; i = i + 2)
{
x[m, n] = double.Parse(ndata[i]);
n = n + 1;
}
m = m + 1;
}
n = (ndata.Length + 1) / 2;
}
inverse(ref x, m);
for (i = 0; i < m; i++)
{
for (j = 0; j < (n - 1); j++)
{
Console.Write(@"{0:f4}", x[i, j]);
Console.Write(" ");
}
Console.WriteLine(@"{0:f4}", x[i, (n - 1)]);
}
Console.Read();
}
static void inverse(ref double[,] a, int m)
{
int i, imax, j, k;
double xmax, buf, limit;
limit = 1e-6;
for (i = 0; i < m; i++)
{
imax = i;
xmax = Math.Abs(a[i, i]);
for (j = i + 1; j < m; j++)
{
buf = Math.Abs(a[j, i]);
if (buf > xmax)
{
xmax = buf;
imax = j;
}
}
if (imax != i)
{
for (j = i; j < 2 * m; j++)
{
buf = a[i, j];
a[i, j] = a[imax, j];
a[imax, j] = buf;
}
}
buf = a[i, i];
if (Math.Abs(buf) > limit)
{
buf = 1 / buf;
for (j = i; j < 2 * m; j++)
{
a[i, j] = a[i, j] * buf;
}
}
else
{
Console.WriteLine("singular");
return;
}
for (j = i + 1; j < m; j++)
{
buf = -a[j, i];
for (k = i; k < 2 * m; k++)
{
a[j, k] = a[j, k] + buf * a[i, k];
}
}
}
for (i = m - 1; i >= 0; i = i - 1)
{
for (k = m; k < 2 * m; k++)//
{
buf = a[i, k];

for (j = i + 1; j < m; j++)
{

buf = buf - a[i, j] * a[j, k];

}

a[i, k] = buf;
}
}

}
}
}

引用返信 編集キー/
■87979 / inTopicNo.2)  Re[1]: 逆行列の求め方
□投稿者/ Jitta (392回)-(2018/07/23(Mon) 08:17:54)
逆行列!懐かしい。20数年前の最初の仕事だわ。
あの時は、ノート見開き2ページくらいに渡って展開式を書いて、コード化しました。
数年後に「こんなんして苦労したよ」と話をすると、「ライブラリあるやん」と言われて悲しかった。
というわけで、ライブラリがあるそうです。
引用返信 編集キー/
■87993 / inTopicNo.3)  Re[2]: 逆行列の求め方
□投稿者/ Jitta (393回)-(2018/07/23(Mon) 20:03:34)
http://thira.plavox.info/blog/2008/06/_c.html
こことか
引用返信 編集キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

管理者用

- Child Tree -