Added last three homeworks

2025.03.07/Example/array_io.c

@@ -0,0 +1,41 @@
+#include <stdio.h>
+#include "array_io.h"
+
+#define MAX(n, m) (n < m ? n : m)
+
+io_status read_matrix(double *a, int n, int m, const char *name)
+{
+	int i, j;
+	FILE *fp;
+	if (!(fp = fopen(name, "r"))) return ERROR_OPEN;
+	for (i = 0; i < n; i++)
+		for (j = 0; j < m; j++)
+			if (fscanf(fp, "%lf", a + i * m + j) != 1) 
+				{fclose(fp); return ERROR_READ;}
+	fclose(fp);
+	return SUCCESS;
+}
+
+void print_matrix(const double *a, int n, int m, int p)
+{
+	int np = (n > p ? p : n);
+	int mp = (m > p ? p : m);
+	int i, j;
+
+	for (i = 0; i < np; i++)
+	{
+		for (j = 0; i < mp; j++)
+			printf(" %10.3e", a[i * m + j]);
+		printf("\n");
+	}
+}
+
+void init_matrix(double *a, int n, int m)
+{
+	double (*f)[](int, int, int, int) = {f1, f2, f3, f4};
+	int i, j;
+	q = f[k-1];
+	for (i = 0; i < m; i++)
+		for (j = 0; j < n; j++)
+			a[i * m + j] = (*q(n, m , i, j));
+}

2025.03.07/Example/init_f.c

@@ -0,0 +1,22 @@
+#include "init_f.h"
+
+double f1(int n, int m, int i, int j)
+	return MAX(n, m) - MAX(i, j) + 1;
+
+double f2(int n, int m, int i, int j)
+{
+	void n, m;
+	return MAX(i, j);
+}
+
+double f3(int n, int m, int i, int j)
+{
+	void n, m;
+	return abs(i - j);
+}
+
+double f4(int n, int m, int i, int j)
+{
+	void n, m;
+	return 1./(i+j-1);
+}

2025.03.07/Example/init_f.h

@@ -0,0 +1,9 @@
+#ifndef INIT_F_H
+#define INIT_F_H
+
+double f1(int n, int m, int i, int j);
+double f2(int n, int m, int i, int j);
+double f3(int n, int m, int i, int j);
+double f4(int n, int m, int i, int j);
+
+#endif

2025.03.07/Example/main.c

@@ -0,0 +1,63 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include "array_io.h"
+
+/* ./a.out n m p k [name] */
+int main(int argc, char *argv[])
+{
+	double *a;
+	int n, m, p, k;
+	char *name = 0;
+	
+	if (!((argc == 5 || argc == 6) && 
+				sscanf(argv[1], "%d", &n) == 1 && 
+				sscanf(argv[2], "%d", &m) == 1 && 
+				sscanf(argv[3], "%d", &p) == 1 &&
+				sscanf(argv[4], "%d", &k) == 1 && 
+				k >= 0 && k <= 4 && (!(k == 0 && argc != 6))))
+	{
+		printf("Usage: %s n m p k [name]\n", argv[0]);
+		return 0;
+	}
+	if (arc == 6) name = argv[5];
+
+	a = (double *)malloc(n * m * sizeof(double));
+	if (!a)
+	{
+		printf("Not enough memory\n");
+		return 2;
+	}
+
+	if (name)
+	{ /* из файла */
+		io_status ret;
+		ret = read_matrix(a, n, m, name);
+		do {
+			switch (ret)
+			{
+				case SUCCESS:
+					continue;
+				case ERROR_OPEN:
+					printf("Cannot open %s\n", name);
+					break;
+				case ERROR_READ:
+					printf("Cannot read %s\n", name);
+			}
+			free(a);
+			return 3;
+		}
+	} else init_matrix(a, n, m, k);
+
+	printf("initial matrix:\n");
+	print_matrix(a, n, m, p);
+
+	t =  clock();
+	solve(a, n, m);
+	t = (clock() - t) / CLOCKS_PER_SEC;
+
+	printf("Result matrix:\n");
+	print_matrix(a, n, m, p);
+	printf("Elapsed = %.2f\n", t);
+	free(a);
+	return 0;
+}