> restart; 1; with(LinearAlgebra); -1; with(plots); -1
 

> N := 66
 

66 (1)
 

> A := `+`(`*`(`/`(1, 100), `*`(RandomMatrix(N, N)))); -1; B := `+`(`*`(`/`(1, 100), `*`(RandomMatrix(N, N)))); -1
 

> seq(seq([A[i, j], B[i, j]], i = 1 .. N), j = 1 .. N); -1
 

> gr[0] := implicitplot(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2))) = 1, x = -1 .. 1, y = -1 .. 1, thickness = 3, color = blue, legend = :@C6=>ABL")" align="center" border="0">
 

PLOT(CURVES(Array(1..167, 1..2, {(1, 1) = -.92, (1, 2) = -.39, (2, 1) = -.8972727272727272, (2, 2) = -.44, (3, 1) = -.8699999999999999, (3, 2) = -.4900000000000002, (4, 1) = -.8536363636363636, (4, 2)... (2)
 

> gr[1] := pointplot([seq(seq([A[i, j], B[i, j]], i = 1 .. N), j = 1 .. N)])
 

PLOT(POINTS([-.9300000000, .5400000000], [-.4400000000, .1000000000], [-.2400000000, .9900000000], [0.3000000000e-1, -.4100000000], [-0.9000000000e-1, -.1400000000], [.9200000000, 0.6000000000e-1], [-... (3)
 

> display(gr[0], gr[1])
 

Plot_2d
 

> for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
for k to N do score := 0; l := 0; for i to k do for j to k do if `<`(`+`(`*`(`^`(A[i, j], 2)), `*`(`^`(B[i, j], 2))), 1) then score := `+`(score, 1) else  end if end do end do; `/`(`*`(score), `*`(`^`...
 

> for i by 10 to `+`(N, `-`(10)) do display(array([display(gr[0], GR[i]), display(gr[0], GR[`+`(i, 10)])]), scaling = constrained) end do
 

 

 

 

 

 

Plot_2d Plot_2d

Plot_2d Plot_2d

Plot_2d Plot_2d

Plot_2d Plot_2d

Plot_2d Plot_2d

Plot_2d Plot_2d

 

> gr[2] := pointplot([seq(punkten[j], j = 1 .. N)], symbol = box)
 

PLOT(POINTS([1., 0.], [2., .2500000000], [3., .4444444444], [4., .6875000000], [5., .7200000000], [6., .7777777778], [7., .7346938776], [8., .7500000000], [9., .7777777778], [10., .7700000000], [11., ... (4)
 

> display(plot(`+`(`*`(`/`(1, 4), `*`(Pi))), x = 1 .. N, legend = typeset(A;54>20B5;L=>ABL AE>48AO : ", `+`(`*`(`/`(1, 4), `*`(Pi))))), gr[2])" align="center" border="0">
 

Plot_2d
 

>