to daniel_approx cs hT aprox2 100000 end to aprox2 :puntos dentro=0 repeat :puntos [ x=200-random 400 y=200-random 400 d=Norm list x y ifElse 200 < d [ setPixelXY x y 4 ][ setPixelXY x y 2 dentro=:dentro+1 ] ] area=(:dentro/:puntos)*200*200 print Sentence [area aprox:] :area print Sentence [pi aprox:] :area/(100*100) end to distance_old :point if NumberP :point [stop] localmake "dx (Item 1 Pos) - (Item 1 :point) localmake "dy (Item 2 Pos) - (Item 2 :point) output Sqrt (:dx*:dx + :dy*:dy) end