to wurzeln :n :a ifelse (:n = int :n) [ ifelse (:a<0) [ (print "Fehler "a "muss "positiv "sein) ] [ output (schaetzewurzel :n :a 0 :a 0.0000001) ] ] [ (print "n "muss "eine "ganze "Zahl "sein) ] end to schaetzewurzel :n :a :min :max :g ifelse (:max-:min)<:g [ output ((:min+:max)/2) ] [ make "schaetzung ((:min+:max)/2) ifelse (potenz :schaetzung :n)<:a [ output schaetzewurzel :n :a :schaetzung :max :g ] [ output schaetzewurzel :n :a :min :schaetzung :g ] ] end to potenz :x :n make "wert 1 repeat :n [make "wert (:wert*:x)] output :wert end