В
начале данные необходимо организовать в виде
массива (списка, списка списков, матрицы)
> restart;
> L := [[1., 19.53, 73., 51.96], [2.,
18.7, 61., 44.84], [3., 21.69, 60., 46.11], [4., 25.37, 86., 57.62], [5., 24.43, 87.,
55.17], [6., 19.09, 86., 46.57], [7., 18.3, 80., 48.03], [8., 24.72, 77., 54.62], [9.,
21.88, 77., 51.17], [10., 18.8, 81., 50.54], [11., 17.79, 54., 39.81], [12., 5.13, 34.,
21.11], [13., 3.14, 29., 16.29], [14., -.33, 20., 11.93], [15., 3.8, 33., 21.6], [16.,
4.42, 29., 20.68], [17., 5.72, 50., 31.12], [18., 7.99, 42., 31.06], [19., 8.58, 27.,
27.76], [20., 7.47, 50., 33.81], [21., 8.75, 74., 47.03], [22., 5.45, 67., 40.51], [23.,
9.88, 80., 50.03], [24., 9.9, 80., 48.84], [25., 9.67, 74., 45.07], [26., 1.67, 50.,
24.95], [27., 4.17, 48., 25.36], [28., 4.39, 55., 27.63], [29., 2.85, 50., 25.4], [30.,
2.67, 67., 29.83], [31., 8.22, 89., 43.28], [32., 5.56, 68., 33.45], [33., 9.03, 89.,
43.61], [34., 7.68, 83., 39.86], [35., 6.04, 77., 36.07], [36., 2., 52., 24.01], [37.,
.52, 32., 15.16], [38., -.4, 24., 11.42], [39., -.74, 13., 6.1], [40., -.51, 20., 9.48],
[41., 0, 87., 5.26]]:
Затем при помощи команды writedata данные
запоминаются в файл
> fd :=
fopen(`d:\\maplev5\\data2.txt`,WRITE,TEXT):
> writedata(fd,L);
> fclose(fd);
|