{VERSION 5 0 "HP RISC UNIX" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "beschrifte := proc(P, Name, delta, epsilon)\ntextplo t([P[1]+delta, P[2]+epsilon, Name], font=[HELVETICA, 18])\nend;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1418 "pythagoras := proc(a::posi tive, b::positive)\nlocal A, B, C, D, E, F, G, H, A1, B1, M, Quadrat, \nBeschriftung, epsilon;\nepsilon := (a+b)/30;\nC := [0,0]; B := [a,0] ; A := [0,b];\nD := [a+b,0]; E := [a+b, a+b]; F := [0, a+b];\nG := [a+ b, a]; H := [b, a+b];\nA1 := [a+b,b]; B1 := [a,a+b];\nM := [a,b];\nQua drat := \npolygonplot([C,D,E,F], style=line, color=blue, thickness=5); \nBeschriftung :=\nbeschrifte(A, \"A\", -epsilon, 0),\nbeschrifte(B, \+ \"B\", 0, -epsilon),\nbeschrifte(C, \"C\", -epsilon, -epsilon),\nbesch rifte(D, \"D\", epsilon, -epsilon),\nbeschrifte(E, \"E\", epsilon, eps ilon),\nbeschrifte(F, \"F\", -epsilon, epsilon),\nbeschrifte(G, \"G\", epsilon, 0),\nbeschrifte(H, \"H\", 0, epsilon),\nbeschrifte(B1, \"B' \", 0, epsilon),\nbeschrifte(A1, \"A'\", epsilon, 0); \n\ndisplay([\n \ndisplay([Quadrat, Beschriftung,\nplot([[A,A1],[B,B1]], color=blue, l inestyle=2),\npolygonplot([A,B,G,H], style=line, thickness=5, color=re d),\npolygonplot([A,B,G,H], style=patchnogrid, color=yellow),\npolygon plot([[A,B,C], [B,D,G], [G,E,H], [H,F,A]], style=patchnogrid, color=cy an)]),\n\ndisplay([Quadrat, Beschriftung,\nplot([[A,A1],[B,B1]], color =blue, thickness=5),\npolygonplot([[B,D,A1,M],[M,B1,F,A]], style=patch nogrid, color=green),\npolygonplot([[C,B,M,A], [M,A1,E,B1]], style=pat chnogrid, color=cyan),\nplot([[A,B],[A1,B1]], color=blue, thickness=5) ],\npolygonplot([A,B,G,H], style=line, linestyle=2, color=red))],\n\ni nsequence=true, scaling=constrained, axes=none);\nend:" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "pythagoras(3,4);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 8 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }