Untitled

									(*vlakvergelijking *)
									vlak^.array[0, 0] := 0;
									vlak^.array[0, 1] := 0;
									vlak^.array[0, 2] := 0;
									vlak^.array[0, 3] := 1;
									vlak^.array[1, 0] := A^.array[0];
									vlak^.array[1, 1] := A^.array[1];
									vlak^.array[1, 2] := A^.array[2];
									vlak^.array[1, 3] := 1;
									vlak^.array[2, 0] := B^.array[0];
									vlak^.array[2, 1] := B^.array[1];
									vlak^.array[2, 2] := B^.array[2];
									vlak^.array[2, 3] := 1;
									vlak^.array[3, 0] := C^.array[0];
									vlak^.array[3, 1] := C^.array[1];
									vlak^.array[3, 2] := C^.array[2];
									vlak^.array[3, 3] := 1;


OF

									(*vlakvergelijking *)
									vlak^.array[0, 0] := 0;
									vlak^.array[1, 0] := 0;
									vlak^.array[2, 0] := 0;
									vlak^.array[3, 0] := 1;
									vlak^.array[0, 1] := A^.array[0];
									vlak^.array[1, 1] := A^.array[1];
									vlak^.array[2, 1] := A^.array[2];
									vlak^.array[3, 1] := 1;
									vlak^.array[0, 2] := B^.array[0];
									vlak^.array[1, 2] := B^.array[1];
									vlak^.array[2, 2] := B^.array[2];
									vlak^.array[3, 2] := 1;
									vlak^.array[0, 3] := C^.array[0];
									vlak^.array[1, 3] := C^.array[1];
									vlak^.array[2, 3] := C^.array[2];
									vlak^.array[3, 3] := 1;


ZO:
		matrix.matrix[0,0] := 0.0;
		matrix.matrix[1,0] := 0.0;
		matrix.matrix[2,0] := 0.0;
		matrix.matrix[3,0] := 1.0;
		matrix.matrix[0,1] := A^.vector[0];
		matrix.matrix[1,1] := A^.vector[1];
		matrix.matrix[2,1] := A^.vector[2];
		matrix.matrix[3,1] := 1.0;
		matrix.matrix[0,2] := B^.vector[0];
		matrix.matrix[1,2] := B^.vector[1];
		matrix.matrix[2,2] := B^.vector[2];
		matrix.matrix[3,2] := 1.0;
		matrix.matrix[0,3] := C^.vector[0];
		matrix.matrix[1,3] := C^.vector[1];
		matrix.matrix[2,3] := C^.vector[2];
		matrix.matrix[3,3] := 1.0;
		
		matrix^.Getabck(a, b, c, k);