latino con mathematica su mac

]

(* latino9 variante con InputString su marino62 *)
:[font = input; preserveAspect]
(* manipolazione stringhe e Verbi Latini *)
(* nota:input con messaggio di richiesta *)
(* applicazione di Keywords a celle separate *)
(* desinenze come elementi vettore *)
:[font = input; preserveAspect; startGroup]
Print["PRIMA CONIUGAZIONE VERBI LATINI"]
Print["limitato a indicativo e congiuntivo"]

Print["scrivere infinito latino 1 coniugazione"]
infinito=InputString["infinito latino 1 c="]
Print["scrivere perfetto indicativo"]
perfetto=InputString["perfetto indicativo="]
radice=StringDrop[infinito,-3];
radiceperfetto=StringDrop[perfetto,-1];
Print["infinito latino=",infinito]
Print["radice verbo   =",radice]
Print["radice perfetto=",radiceperfetto]
Array[d,61];
d[1]="o ";d[2]="as ";d[3]="at ";d[4]="amus ";
d[5]="atis ";d[6]="ant ";d[7]="abam ";d[8]="abas ";
d[9]="abat ";d[10]="abamus ";d[11]="abatis ";
d[12]="abant ";
d[13]="abo ";d[14]="abis ";d[15]="abit ";
d[16]="abimus ";
d[17]="abitis";d[18]="abunt";d[19]="i";d[20]="isti ";
d[21]="it ";d[22]="imus ";d[23]="istis ";d[24]="erunt ";
d[25]="eram ";d[26]="eras ";d[27]="erat ";
d[28]="eramus ";
d[29]="eratis ";d[30]="erant ";d[31]="ero ";
d[32]="eris ";
d[33]="erit ";d[34]="erimus ";d[35]="eritis ";
d[36]="erint ";
d[37]="em ";d[38]="es ";d[39]="et ";d[40]="emus ";
d[41]="etis ";d[42]="ent ";d[43]="m ";d[44]="s ";
d[45]=" t";d[46]="mus ";d[47]="tis ";d[48]="nt ";
d[49]="erim ";d[50]="eris ";d[51]="erit ";
d[52]="erimus ";
d[53]="eritis ";d[54]="erint ";
d[55]="issem ";d[56]="isses ";
d[57]="isset ";d[58]="issemus ";
d[59]="issetis ";d[60]="issent ";

;[s]
3:0,0;264,1;270,0;1313,-1;
2:2,12,10,Courier,1,12,0,0,0;1,12,10,Courier,3,12,0,0,0;
:[font = output; output; inactive; preserveAspect]
"manducare"
;[o]
manducare
:[font = output; output; inactive; preserveAspect]
"manducavi"
;[o]
manducavi
:[font = print; inactive; preserveAspect; endGroup]
PRIMA CONIUGAZIONE VERBI LATINI
limitato a indicativo e congiuntivo
scrivere infinito latino 1 coniugazione
scrivere perfetto indicativo
infinito latino=manducare
radice verbo   =manduc
radice perfetto=manducav
:[font = input; preserveAspect; startGroup; keywords = "presenteindicativo"]
Print["presente indicativo"]
n=7;For[i=1,i<n,i++,Print[StringJoin[radice,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
presente indicativo
manduco 
manducas 
manducat 
manducamus 
manducatis 
manducant 
:[font = input; preserveAspect; startGroup; keywords = "imperfettoindicativo"]
Print["imperfetto indicativo"]
n=13;For[i=7,i<n,i++,Print[StringJoin[radice,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
imperfetto indicativo
manducabam 
manducabas 
manducabat 
manducabamus 
manducabatis 
manducabant 
:[font = input; preserveAspect; startGroup; keywords = "futurosemplice"]
Print["futuro semplice indicativo"]
n=19;For[i=13,i<n,i++,Print[StringJoin[radice,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
futuro semplice indicativo
manducabo 
manducabis 
manducabit 
manducabimus 
manducabitis
manducabunt
:[font = input; preserveAspect; startGroup; keywords = "perfettoindicativo"]
Print["perfetto indicativo"]
n=25;For[i=19,i<n,i++,
Print[StringJoin[radiceperfetto,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
perfetto indicativo
manducavi
manducavisti 
manducavit 
manducavimus 
manducavistis 
manducaverunt 
:[font = input; preserveAspect; startGroup; keywords = "piucperfettoindi"]
Print["piccheperfetto indicativo"]
n=31;For[i=25,i<n,i++,
Print[StringJoin[radiceperfetto,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
piccheperfetto indicativo
manducaveram 
manducaveras 
manducaverat 
manducaveramus 
manducaveratis 
manducaverant 
:[font = input; preserveAspect; startGroup; keywords = "futuroanteriore"]
Print["futuro anteriore "]
n=37;For[i=31,i<n,i++,
Print[StringJoin[radiceperfetto,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
futuro anteriore 
manducavero 
manducaveris 
manducaverit 
manducaverimus 
manducaveritis 
manducaverint 
:[font = input; preserveAspect; startGroup; keywords = "presentecong"]
Print["presente congiuntivo"]
n=43;For[i=37,i<n,i++,Print[StringJoin[radice,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
presente congiuntivo
manducem 
manduces 
manducet 
manducemus 
manducetis 
manducent 
:[font = input; preserveAspect; startGroup; keywords = "imperfettocong"]
Print["imperfetto congiuntivo"]
n=49;For[i=43,i<n,i++,Print[StringJoin[infinito,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
imperfetto congiuntivo
manducarem 
manducares 
manducare t
manducaremus 
manducaretis 
manducarent 
:[font = input; preserveAspect; startGroup; keywords = "perfettocong"]
Print["perfetto congiuntivo"]
n=55;For[i=49,i<n,i++,
Print[StringJoin[radiceperfetto,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
perfetto congiuntivo
manducaverim 
manducaveris 
manducaverit 
manducaverimus 
manducaveritis 
manducaverint 
:[font = input; preserveAspect; startGroup; keywords = "piucperfettocong"]
Print["piuccheperfetto congiuntivo"]
n=61;For[i=55,i<n,i++,
Print[StringJoin[radiceperfetto,d[i]]]]

:[font = print; inactive; preserveAspect; endGroup]
piuccheperfetto congiuntivo
manducavissem 
manducavisses 
manducavisset 
manducavissemus 
manducavissetis 
manducavissent 
^*)

]
(* latino9a variante con InputString su marino62 *)
(* selezionato EDIT-SELECT ALL CELLS *)
(* selezionato CELL-Closed Grouped   *)
:[font = input; preserveAspect]
(* manipolazione stringhe e Verbi Latini *)
(* nota:input con messaggio di richiesta *)
(* applicazione di Keywords a celle separate *)
(* desinenze come elementi vettore *)
(* modificata posizione incremento i++ alla fine*)
(* attivabile ogni tempo con FIND-KEYWORD *)
(* attivabile completamente in sequenza con *)
(* EDIT-SELECT ALL CELLS-Shift-Enter *)
(* possibile chiudere tutte le celle eliminando *)
(* stampa forme verbali:EDIT-SELECT ALL CELLS *)
(* CELL-CLOSE ALL GROUP *)
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "coniugare"]
Print["PRIMA CONIUGAZIONE VERBI LATINI"]
Print["limitato a indicativo e congiuntivo"]

Print["scrivere infinito latino 1 coniugazione"]
infinito=InputString["infinito latino 1 c="]
Print["scrivere perfetto indicativo"]
perfetto=InputString["perfetto indicativo="]
radice=StringDrop[infinito,-3];
radiceperfetto=StringDrop[perfetto,-1];
Print["infinito latino=",infinito]
Print["radice verbo   =",radice]
Print["radice perfetto=",radiceperfetto]
Array[d,61];
d[1]="o ";d[2]="as ";d[3]="at ";d[4]="amus ";
d[5]="atis ";d[6]="ant ";d[7]="abam ";d[8]="abas ";
d[9]="abat ";d[10]="abamus ";d[11]="abatis ";
d[12]="abant ";
d[13]="abo ";d[14]="abis ";d[15]="abit ";
d[16]="abimus ";
d[17]="abitis";d[18]="abunt";d[19]="i";d[20]="isti ";
d[21]="it ";d[22]="imus ";d[23]="istis ";d[24]="erunt ";
d[25]="eram ";d[26]="eras ";d[27]="erat ";
d[28]="eramus ";
d[29]="eratis ";d[30]="erant ";d[31]="ero ";
d[32]="eris ";
d[33]="erit ";d[34]="erimus ";d[35]="eritis ";
d[36]="erint ";
d[37]="em ";d[38]="es ";d[39]="et ";d[40]="emus ";
d[41]="etis ";d[42]="ent ";d[43]="m ";d[44]="s ";
d[45]=" t";d[46]="mus ";d[47]="tis ";d[48]="nt ";
d[49]="erim ";d[50]="eris ";d[51]="erit ";
d[52]="erimus ";
d[53]="eritis ";d[54]="erint ";
d[55]="issem ";d[56]="isses ";
d[57]="isset ";d[58]="issemus ";
d[59]="issetis ";d[60]="issent ";

;[s]
3:0,0;264,1;270,0;1313,-1;
2:2,12,10,Courier,1,12,0,0,0;1,12,10,Courier,3,12,0,0,0;
:[font = output; output; inactive; preserveAspect]
"amare"
;[o]
amare
:[font = output; output; inactive; preserveAspect]
"amavi"
;[o]
amavi
:[font = print; inactive; preserveAspect; endGroup]
PRIMA CONIUGAZIONE VERBI LATINI
limitato a indicativo e congiuntivo
scrivere infinito latino 1 coniugazione
scrivere perfetto indicativo
infinito latino=amare
radice verbo   =am
radice perfetto=amav
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "presenteindicativo"]
Print["presente indicativo"]
n=6;For[i=0,i<n,Print[StringJoin[radice,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
presente indicativo
amo 
amas 
amat 
amamus 
amatis 
amant 
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "imperfettoindicativo"]
Print["imperfetto indicativo"]
n=12;For[i=6,i<n,Print[StringJoin[radice,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
imperfetto indicativo
amabam 
amabas 
amabat 
amabamus 
amabatis 
amabant 
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "futurosemplice"]
Print["futuro semplice indicativo"]
n=18;For[i=12,i<n,Print[StringJoin[radice,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
futuro semplice indicativo
amabo 
amabis 
amabit 
amabimus 
amabitis
amabunt
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "perfettoindicativo"]
Print["perfetto indicativo"]
n=24;For[i=18,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
perfetto indicativo
amavi
amavisti 
amavit 
amavimus 
amavistis 
amaverunt 
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "piucperfettoindi"]
Print["piccheperfetto indicativo"]
n=30;For[i=24,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
piccheperfetto indicativo
amaveram 
amaveras 
amaverat 
amaveramus 
amaveratis 
amaverant 
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "futuroanteriore"]
Print["futuro anteriore "]
n=36;For[i=30,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
futuro anteriore 
amavero 
amaveris 
amaverit 
amaverimus 
amaveritis 
amaverint 
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "presentecong"]
Print["presente congiuntivo"]
n=42;For[i=36,i<n,Print[StringJoin[radice,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
presente congiuntivo
amem 
ames 
amet 
amemus 
ametis 
ament 
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "imperfettocong"]
Print["imperfetto congiuntivo"]
n=48;For[i=42,i<n,Print[StringJoin[infinito,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
imperfetto congiuntivo
amarem 
amares 
amare t
amaremus 
amaretis 
amarent 
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "perfettocong"]
Print["perfetto congiuntivo"]
n=54;For[i=48,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
perfetto congiuntivo
amaverim 
amaveris 
amaverit 
amaverimus 
amaveritis 
amaverint 
:[font = input; Cclosed; preserveAspect; startGroup; keywords = "piucperfettocong"]
Print["piuccheperfetto congiuntivo"]
n=60;For[i=54,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]

:[font = print; inactive; preserveAspect; endGroup]
piuccheperfetto congiuntivo
amavissem 
amavisses 
amavisset 
amavissemus 
amavissetis 
amavissent 
^*)