Costruzione di un quadrato

	Nuovo punto A	`A=(x1,y1)`
	Nuovo punto B	`B=(x2,y2)`
	Traccia il segmento a = AB tra i punti A e B	`a=Segmento[A,B]`
	Costruisci la retta perpendicolare r1 al segmento AB, passante per B	`r1=Perpendicolare[B,a]`
	Costruisci la circonferenza c1 di centro B passante per il punto A	`c1=Circonferenza[B,A]`
	Interseca la circonferenza c con la retta perpendicolare b per ottenere il punto di intersezione C	`C=Intersezione[c,b]`
	Costruisci la retta perpendicolare r2 al segmento AB, passante per A	`r2=Perpendicolare[A,a]`
	Costruisci la circonferenza c2 di centro A, passante per B	`c2=Circonferenza[A,B]`
	Interseca la retta perpendicolare d con la circonferenza e, per ottenere il punto di intersezione D	`D=Intersezione[d,e]`
	Crea il poligono ABCD.	`p=Poligono[A,B,C,D]`

	Individua i punti di intersezione C e D con il tasto del mouse…
	Non dimenticare di chiudere il poligono facendo clic sul punto A, dopo avere selezionato il punto D
	Esegui il test di trascinamento sui punti A e B per verificare se la costruzione è corretta
	Puoi nascondere le circonferenze e le rette perpendicolari
	Visualizza le misure dei quattro angoli
	Visualizza le misure dei quattro lati: fai clic clic con il tasto destro su ciascun lato e seleziona Proprietà / Fondamentali / Mostra etichetta / Valore