funzioni

listato creazione funzioni
copiare riga codificante (o caricare da libreria PC)
attivare scrivendo nomefuzione(dati da elaborare)

"equazione di retta passante per due punti"

"A(x1,y1); B(x2,y2) "

"(x-x1)/(x2-x1)=(y-y1)/(y2-y1)"

KRETTA2PUNTI(x1,y1,x2,y2):=[(x-x1)/(x2-x1)=(y-y1)/(y2-y1)]..codificazione

KRETTA2PUNTI(2,3,5,2)attivazione

..................................................

"distanza tra punti(lunghezza segmento)"

" d= û(x2-x1)^2 +(y2-y1)^2)"

DISTAPUNTI(x1,y1,x2,y2):=SQRT((x2-x1)^2+(y2-y1)^2)

" DISTAPUNTI(x1,y1,x2,y2) numerici"

.................................................

"calcolare distanza punto(x1,y1) da retta implicita"

"ax + by + c =0"

DISTANZAPRETTA(x1,y1,a,b,c):=ABS(a*x1+b*y1+c)/SQRT(a^2+b^2)


DISTANZAPRETTA(3,10,-0.16,0.5,-0.68)

"calcolare valore  angolo in gradi"

"formato tra due rette incidenti"

"non perpendicolari r,r1"

"r :y = mx ; r1 :y1=m1x "

"tan(r,r1)=(m-m1) /(1 + m*m1)"

ANGOLO2RETTE(m,m1):=ATAN((m-m1)/(1+m*m1))*180/(3.14)

" ANGOLO2RETTE(m,m1)numerici"

"distanza tra rette parallele"

"ax+by+m = 0; ax+by+n=0"

"d = abs((m-n)/û(a^2+b^2))"

DISTAPARA(a,b,m,n):=ABS((m-n)/SQRT(a^2+b^2))

"equazione di retta passante per punto P"

"perpendicolare a retta data"

KPERPEPRETTA(x1,y1,a,b):=[b*(x-x1)-a*(y-y1)=0]


" KPERPEPRETTA(x1,y1,a,b) NUMERI"

"retta passante per punto, parallela a retta nota"

"a(x-x1) + b(y-y1)=0"

KPUNTOPARA(x1,y1,a,b):=[a*(x-x1)+b*(y-y1)=0]

"KPUNTOPARA(x1,y1,a,b) numerici"


"............"

"equazioni rette parallele a retta nota"

"ax+by+c=0 ; a1x+b1y+c1=0  ; a:a1 = b:b1  ´ c:c1"

2*x+3*y+5=0

KRPARALLELE(a1,b1,c,k):=k*a1*x+k*b1*y+c=0

KRPARALLELE(2,3,5,2)

"retta passante per P, perpendicolare a nota"

"y -y1=(-1/m)*(x-1) "

MPERPEPRETTA(m,x1,y1):=[y-y1=(-1/m)*(x-x1)]

" MPERPEPRETTA(m,x1,y1) numerici"

"equazione di retta passante per un punto"

"y - y1 = m(x-x1)"

p:=[4,-3]

m:=7

;Approssimazione(Utente)
y+3=7*(x-4)

MRETTA2PUNTI(m,x1,y1):=[y-y1=m*(x-x1)]

"equazioni di rette parallele a retta nota"

"y=mx + q ; y = m*x + k*q"

"creazione funzione"

MRPARALLELE(m,k,q):=y=m*x+k*q

"rette perpendicolari se coefficienti angolari"

"reciproci e con segno cambiato"

"deve risultare m*m1 = -1"

"inserisci equazione riferimento"

"calcola perpendicolare con funzione"

".............."

MRPERPE(m):=y=(-1/m)*x