prima coniugazione verbi latini regolari

esci latino.htm

File-carica -utility verbo1.mth

" indicativo prima coniugazione verbi latini regolari"

"creazione vettori per desinenze a,b,c,d,e,f"

"presente a, imperfetto b, futuros c, perfetto d,piucchep.e, futuroa f "

a:=["o","as","at","amus","atis","ant"]

b:=["abam","abas","abat","abamus","abatis","abant"]

c:=["abo","abis","abit","abimus","abitis","abunt"]

d:=["i","isti","it","imus","istis","erunt"]

e:=["eram","eras","erat","eramus","eratis","erant"]

f:=["ero","eris","erit","erimus","eritis","erint"]

"dichiarazione funzioni per coniugazione"

"pre(r,m,n,o,p,q) presente; impe(r,m,n,o,p,q) imperfetto; fus(r,m,n,o,p,q) fu~
turo"

"per(rp,m,n,o,p,q) perfetto; piu(rp,m,n,o,p,q) piucchep.; fua(rp,m,n,o,p,q) f~
uturo a"

PRE(r,m,n,o,p,q):=[[r,a SUB 1],[r,a SUB 2],[r,a SUB 3],[r,a SUB 4],[r,a SUB 5~
],[r,a SUB 6]]

IMPE(r,m,n,o,p,q):=[[r,b SUB 1],[r,b SUB 2],[r,b SUB 3],[r,b SUB 4],[r,b SUB ~
5],[r,b SUB 6]]

r:="laud"

rp:="laudav"

FUS(r,m,n,o,p,q):=[[r,c SUB 1],[r,c SUB 2],[r,c SUB 3],[r,c SUB 4],[r,c SUB 5~
],[r,c SUB 6]]

PER(rp,m,n,o,p,q):=[[rp,d SUB 1],[rp,d SUB 2],[rp,d SUB 3],[rp,d SUB 4],[rp,d~
SUB 5],[rp,d SUB 6]]

PIU(rp,m,n,o,p,q):=[[rp,e SUB 1],[rp,e SUB 2],[rp,e SUB 3],[rp,e SUB 4],[rp,e~
SUB 5],[rp,e SUB 6]]

FUA(rp,m,n,o,p,q):=[[rp,f SUB 1],[rp,f SUB 2],[rp,f SUB 3],[rp,f SUB 4],[rp,f~
SUB 5],[rp,f SUB 6]]

"----------------------------------------------------"