(%i1) "Cornelsen, S. 32, Nr. 5"$

(%i2) "Punkt A"$


(%i3) A: transpose(matrix ([3.0,0.0,1.0]));
                                    [ 3.0 ]
                                    [     ]
(%o3)                               [ 0.0 ]
                                    [     ]
                                    [ 1.0 ]

(%i4) "Punkt A'"$

(%i5) A': transpose(matrix ([3.0,6.0,3.0]));
                                    [ 3.0 ]
                                    [     ]
(%o5)                               [ 6.0 ]
                                    [     ]
                                    [ 3.0 ]

(%i6) "Punkt P"$

(%i7) P: transpose(matrix ([3.0,3.0,2.0]));
                                    [ 3.0 ]
                                    [     ]
(%o7)                               [ 3.0 ]
                                    [     ]
                                    [ 2.0 ]

(%i8) "Punkt B"$

(%i9) B: transpose(matrix ([0.0,0.0,4.0]));
                                    [ 0.0 ]
                                    [     ]
(%o9)                               [ 0.0 ]
                                    [     ]
                                    [ 4.0 ]

(%i10) "Punkt B'"$

(%i11) B': transpose(matrix ([6.0,6.0,0.0]));
                                    [ 6.0 ]
                                    [     ]
(%o11)                              [ 6.0 ]
                                    [     ]
                                    [ 0.0 ]