\"", ",", "stile"}], "]"}], ",", "pQ", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{
RowBox[{"Style", "[",
RowBox[{"\"\\"", ",", "stile"}], "]"}], ",", "pP", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "}"}], "]"}]}]}],
"]"}]}], ";"}]}]}]], "Input",
CellChangeTimes->{
3.535031159079158*^9, 3.535032167572358*^9, 3.8659314705635166`*^9, {
3.8659315444954615`*^9,
3.8659315463871984`*^9}},ExpressionUUID->"aebfc58b-9690-4876-baeb-\
ea7a3379a458"]
}, Closed]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] fondamentale", "Section",ExpressionUUID->"d69769a1-5bbd-43db-b2ea-36156b97f48f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[", "\n",
RowBox[{
RowBox[{"Show", "[",
RowBox[{
RowBox[{"costruzione", "[",
RowBox[{"\[Alpha]", ",", "\"\\""}], "]"}], ",",
RowBox[{"vertici", "[",
RowBox[{"\[Alpha]", ",", "Red", ",", "Bold", ",",
RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"PlotRange", "\[Rule]", "1.2"}], ",",
RowBox[{"ImageSize", "->", "400"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"25", "Degree"}], ",", " ",
RowBox[{"Style", "[",
RowBox[{"\"\<\[Alpha] \>\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.535031173555958*^9, 3.5350311757711577`*^9}, {
3.535032074268758*^9, 3.5350321151875577`*^9}, {3.535032519055958*^9,
3.535032528587558*^9}, {3.8659316389925203`*^9, 3.8659316773567896`*^9}, {
3.8659318493770714`*^9,
3.8659318553310537`*^9}},ExpressionUUID->"128458ab-8b5f-41f3-b15e-\
3d5878d69744"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`\[Alpha]$$ = 25 Degree, Typeset`show$$ =
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`\[Alpha]$$], 25 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
Typeset`size$$ = {400., {198., 202.}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 25 Degree},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :> Show[
$CellContext`costruzione[$CellContext`\[Alpha]$$, "seno"],
$CellContext`vertici[$CellContext`\[Alpha]$$, Red, Bold, FontSize ->
12], Axes -> True, PlotRange -> 1.2, ImageSize -> 400],
"Specifications" :> {{{$CellContext`\[Alpha]$$, 25 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
"Options" :> {},
"DefaultOptions" :> {ControlPlacement -> Top, SaveDefinitions -> True}],
ImageSizeCache->{450., {242.13403309800196`, 247.86596690199804`}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
Initialization:>({$CellContext`costruzione[
Pattern[$CellContext`\[Alpha],
Blank[]],
Pattern[$CellContext`funGonio,
Blank[String]]] :=
Module[{$CellContext`pP, $CellContext`pQ, $CellContext`pO}, \
$CellContext`pP = {
Cos[$CellContext`\[Alpha]],
Sin[$CellContext`\[Alpha]]}; $CellContext`pQ = {
Cos[$CellContext`\[Alpha]], 0}; $CellContext`pO = {0, 0};
Graphics[{{Yellow,
Polygon[{$CellContext`pO, $CellContext`pQ, $CellContext`pP}]}, {
If[$CellContext`\[Alpha] > 0, Red, Blue],
Disk[$CellContext`pO, 0.2,
If[$CellContext`\[Alpha] >= 0, {
0, $CellContext`\[Alpha]}, {$CellContext`\[Alpha], 0}]]}, {
Gray,
Circle[],
Line[{$CellContext`pP, $CellContext`pO}]}, {{Thick,
Switch[$CellContext`funGonio, "seno", Blue, "coseno", Gray,
"tangente", Blue],
Arrow[{$CellContext`pQ, $CellContext`pP}]}, {Thick,
Switch[$CellContext`funGonio, "seno", Gray, "coseno", Blue,
"tangente", Blue],
Arrow[{$CellContext`pO, $CellContext`pQ}]}}}]], $CellContext`pP = {
Cos[25 Degree],
Sin[25 Degree]}, $CellContext`pQ = {
Cos[25 Degree], 0}, $CellContext`pO = {0, 0}, $CellContext`vertici[
Pattern[$CellContext`\[Alpha],
Blank[]],
Pattern[$CellContext`stile,
BlankNullSequence[]]] :=
Module[{$CellContext`pP, $CellContext`pQ, $CellContext`pO}, \
$CellContext`pP = {
Cos[$CellContext`\[Alpha]],
Sin[$CellContext`\[Alpha]]}; $CellContext`pQ = {
Cos[$CellContext`\[Alpha]], 0}; $CellContext`pO = {0, 0};
Graphics[{
Text[
Style["O", $CellContext`stile], $CellContext`pO, {1, 1}],
Text[
Style["Q", $CellContext`stile], $CellContext`pQ, {0, 1}],
Text[
Style["P", $CellContext`stile], $CellContext`pP, {0, -1}]}]]};
Typeset`initDone$$ = True),
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.502020445201556*^9, 3.5350311989371576`*^9, 3.535031286187958*^9,
3.5350321166695576`*^9, {3.535032520007558*^9, 3.535032539523158*^9},
3.535044457652554*^9, 3.535044727698554*^9, 3.5350447801301537`*^9,
3.535044841531754*^9, 3.5350461580157537`*^9, 3.5352072399357634`*^9,
3.5352072805893636`*^9, {3.535207324456564*^9, 3.5352073346277637`*^9},
3.5352190808985634`*^9, 3.5353904325401564`*^9, 3.5354635936507535`*^9,
3.5354636381575537`*^9, 3.5354655744451537`*^9, 3.535465673442754*^9,
3.5354660616185536`*^9, 3.535466109697754*^9, 3.535474324345964*^9,
3.589889401750743*^9, 3.8659315695612707`*^9, 3.865931640071841*^9,
3.8659316790922956`*^9, 3.865931856252863*^9,
3.8659363678180313`*^9},ExpressionUUID->"65865dd1-ca44-43b8-b8db-\
fa394b9127ad"]
}, {2}]],
Cell["", "NumberedFigure",
CellTags->"figura1",ExpressionUUID->"309667b6-932a-426f-aab6-7b0c4bc1c8f0"],
Cell[CellGroupData[{
Cell["Dimostrazione dell'identit\[AGrave] fondamentale", "Subsubsection",ExpressionUUID->"0241197b-a243-4de3-8983-c299f37d674d"],
Cell[TextData[{
"Riportiamo le definizioni di carattere geometrico delle principali funzioni \
goniometriche discusse in un precedente notebook e, assieme, forniamo le \
relazioni che le legano tra di loro al medesimo angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"9cc5d736-d847-4aef-a417-371dd69fff12"],
". I segmenti ",
Cell[BoxData[
FormBox[
StyleBox["OQ",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"892b82f2-3378-4505-bcf0-9ea7fcd09fa8"],
" e ",
Cell[BoxData[
FormBox[
StyleBox["QP",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"289e170f-6c01-40f6-aa08-35629e528c34"],
" vanno considerati come segmenti orientati (o componenti del vettore ",
Cell[BoxData[
FormBox[
StyleBox["OP",
FontWeight->"Bold"], TraditionalForm]],ExpressionUUID->
"cc6a4459-c3ad-4a97-b820-23276caf484b"],
"). ",
Cell[BoxData[
FormBox[
StyleBox["OP",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"88048753-f126-4424-9e17-a3441d545ec4"],
" \[EGrave] invece la misura (positiva) del raggio della circonferenza \
associata al sistema cartesiano di ",
ButtonBox["figura",
BaseStyle->"Hyperlink",
ButtonData:>"figura1"],
" (o anche il modulo di ",
Cell[BoxData[
FormBox[
StyleBox["OP",
FontWeight->"Bold"], TraditionalForm]],ExpressionUUID->
"3d516f90-1623-4333-b452-1b461987658a"],
"). \[CapitalEGrave] questo l'insieme di \"regole\" da cui iniziamo."
}], "Text",ExpressionUUID->"8236044d-8b05-4f18-b5a0-4e333eadd113"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Join", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"QP", "/", "OP"}], "==",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"OQ", "/", "OP"}], "==",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"QP", "/", "OQ"}], "==",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], "}"}], ",",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"id1", ",", "id2", ",", "id3"}], "}"}]}]}], "]"}], "//",
"TableForm"}]], "Input",ExpressionUUID->"c0406f66-9234-402c-8c6d-\
88de6bf32b46"],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{
RowBox[{
FractionBox["QP", "OP"], "\[Equal]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]},
{
RowBox[{
FractionBox["OQ", "OP"], "\[Equal]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]},
{
RowBox[{
FractionBox["QP", "OQ"], "\[Equal]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]},
{
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "\[Equal]",
FractionBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}],
RowBox[{"cos", "[", "\[Alpha]", "]"}]]}]},
{
RowBox[{
RowBox[{"cot", "[", "\[Alpha]", "]"}], "\[Equal]",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]},
{
RowBox[{
FractionBox["1",
RowBox[{"tan", "[", "\[Alpha]", "]"}]], "\[Equal]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}],
Column],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{
3.5020204452795563`*^9, {3.535031239731158*^9, 3.535031245237958*^9},
3.535031286234758*^9, 3.535044457870954*^9, {3.535044782704154*^9,
3.535044790207754*^9}, 3.535044841656554*^9, 3.535044887879354*^9,
3.535046158031354*^9, {3.5352072536637635`*^9, 3.5352072807609634`*^9}, {
3.5352073246281633`*^9, 3.5352073348149633`*^9}, 3.5352190810389633`*^9,
3.5353904395289564`*^9, 3.5354635938223534`*^9, 3.5354636383447533`*^9, {
3.535465577689954*^9, 3.5354655838363533`*^9}, 3.5354656759543533`*^9,
3.5354660617589536`*^9, 3.535466109838154*^9, 3.5354743245799637`*^9,
3.5898894017819433`*^9, 3.8659317168397274`*^9,
3.8659363679117756`*^9},ExpressionUUID->"e86a9390-7c5b-4244-a4c3-\
9160ca0d4adc"]
}, {2}]],
Cell[TextData[{
"L'applicazione del teorema di Pitagora al triangolo ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["OQP",
FontSlant->"Italic"], Cell[
"",ExpressionUUID->"a06de332-752e-448c-acd9-981e1027ba18"]}],
TraditionalForm]],ExpressionUUID->"ff585d2d-e503-4047-8a3d-2b12d3d98276"],
"permette di scrivere"
}], "Text",ExpressionUUID->"56ec43ac-35cc-4f7b-ad80-d2cb188e77f8"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
SuperscriptBox["OP", "2"], "\[Equal]",
RowBox[{
SuperscriptBox["OQ", "2"], "+",
SuperscriptBox["QP", "2"]}]}]], "Input",ExpressionUUID->"7f59eef2-3d3e-\
4c2b-928b-8c61aab8b071"],
Cell[BoxData[
RowBox[{
SuperscriptBox["OP", "2"], "\[Equal]",
RowBox[{
SuperscriptBox["OQ", "2"], "+",
SuperscriptBox["QP", "2"]}]}]], "Output",
CellChangeTimes->{
3.5020204453107557`*^9, {3.5350312679827576`*^9, 3.535031322613958*^9},
3.535044457933354*^9, 3.535044841718954*^9, 3.5350448879417543`*^9,
3.535046158046954*^9, {3.5352072671265635`*^9, 3.535207280792164*^9}, {
3.5352073246593637`*^9, 3.535207334861764*^9}, 3.5352190810701632`*^9,
3.5354635938691535`*^9, 3.5354636383759537`*^9, 3.5354655838987536`*^9,
3.5354656760323534`*^9, 3.5354660618057537`*^9, 3.5354661098849535`*^9,
3.5354743246579638`*^9, 3.5898894017819433`*^9, 3.865931690344077*^9,
3.8659317290289497`*^9,
3.865936367927399*^9},ExpressionUUID->"b822488e-f7ff-4c36-bac7-\
3cdb317882fe"]
}, {2}]],
Cell[TextData[{
"per cui sostituendo le espressioni di ",
Cell[BoxData[
FormBox[
StyleBox["OQ",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"a146772b-35a1-45d8-9676-1b53a52d2152"],
" e ",
Cell[BoxData[
FormBox[
StyleBox["QP",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"d0aaa581-ce49-4cfa-a308-0f6327b2358c"],
" dedotte dalle definizioni di seno e coseno si ha"
}], "Text",ExpressionUUID->"452bde21-c21c-4548-b143-d235aee17026"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"OQ", "\[Rule]",
RowBox[{"OP", " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{"QP", "\[Rule]",
RowBox[{"OP", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}]}], "}"}]}]], "Input",Expressio\
nUUID->"bc590888-f61f-4eab-87a4-3820fb94def8"],
Cell[BoxData[
RowBox[{
SuperscriptBox["OP", "2"], "\[Equal]",
RowBox[{
RowBox[{
SuperscriptBox["OP", "2"], " ",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}], "+",
RowBox[{
SuperscriptBox["OP", "2"], " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]}]], "Output",
CellChangeTimes->{
3.502020445341956*^9, 3.5350312863127575`*^9, {3.5350313295403576`*^9,
3.535031342098358*^9}, 3.535044457980154*^9, 3.535044841750154*^9,
3.535044887988554*^9, 3.535046158062554*^9, 3.5352072808389635`*^9, {
3.5352073247061634`*^9, 3.5352073349085636`*^9}, 3.5352190811169634`*^9,
3.5354635939159536`*^9, 3.5354636384227533`*^9, 3.535465583945554*^9,
3.5354656760947533`*^9, 3.5354660618681536`*^9, 3.5354661099317536`*^9,
3.535474324704764*^9, 3.589889401797543*^9, 3.8659317331393023`*^9,
3.8659363679586473`*^9},ExpressionUUID->"1dc473c6-ce4f-4d29-8af6-\
f6d0bd78a444"]
}, {2}]],
Cell[TextData[{
"Eliminando ora il termine ",
Cell[BoxData[
FormBox[
SuperscriptBox[
StyleBox["OP",
FontSlant->"Italic"], "2"], TraditionalForm]],ExpressionUUID->
"8dc853f2-adc0-4697-8125-a0c6f0fb0313"],
"comune ai due membri si ottiene"
}], "Text",ExpressionUUID->"66384ebe-0cbf-4b3c-a5e0-23fa2f0f98e2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/",
SuperscriptBox["OP", "2"]}], "//", "Simplify"}]], "Input",ExpressionUUID->\
"ac1d2f6a-df97-49ef-be15-376012e5f0a1"],
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}], "\[Equal]",
"1"}]], "Output",
CellChangeTimes->{
3.502020445373156*^9, 3.5350312863283577`*^9, 3.535044458042554*^9,
3.535044841812554*^9, 3.5350448880353537`*^9, 3.535046158078154*^9,
3.5352072808857636`*^9, {3.5352073247529635`*^9, 3.5352073349397635`*^9},
3.535219081163763*^9, 3.5354635940563536`*^9, 3.535463638469554*^9,
3.5354655840079536`*^9, 3.535465676141554*^9, 3.5354660619149537`*^9,
3.535466109978554*^9, 3.535474324751564*^9, 3.589889401797543*^9,
3.865931738546465*^9, 3.865935917937199*^9, 3.8659363679742713`*^9,
3.8659917080271425`*^9,
3.86599178762893*^9},ExpressionUUID->"4736b9e5-8566-4f2b-b682-\
1a78b0524624"]
}, {2}]],
Cell[TextData[{
"relazione che costituisce l'",
StyleBox["identit\[AGrave] fondamentale",
FontSlant->"Italic"],
" della Goniometria."
}], "Text",ExpressionUUID->"05f6fcfb-4197-474d-96fc-83dcb8239fdf"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Funzioni goniometriche in termini di una di esse", "Section",ExpressionUUID->"f655f774-6563-4998-a6f8-6c5d4d4a7b22"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",
CellChangeTimes->{{3.5354668299653535`*^9,
3.5354668338965535`*^9}},ExpressionUUID->"69629c82-25db-4619-ac9e-\
0c10bfd38956"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"la", " ", "funzione"}], ",", " ",
RowBox[{
"qui", " ", "usata", " ", "per", " ", "la", " ", "prima", " ", "volta"}],
",", " ",
RowBox[{"aggiunge", " ",
RowBox[{"all", "'"}], "insieme", " ", "di", " ", "regole", " ",
"iniziali", " ", "quella", " ", "dimostrata", " ", "nella", " ",
"precedente", " ",
RowBox[{"sezione", ".", " ", "Ad"}], " ", "ogni", " ", "regola", " ",
"si", " ", "associa", " ", "in", " ", "tal", " ", "modo", " ", "un", " ",
"nome", " ", "mnemonico", " ", "per", " ", "poterla", " ", "usare", " ",
RowBox[{"successivamente", ".", " ", "Per"}], " ", "due", " ", "tabelle",
" ", "comprensive", " ", "di", " ", "tutti", " ", "i", " ", "nomi", " ",
"si", " ", "veda", " ", "la", " ", "sezione", " ", "riassuntiva", " ",
"finale"}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"idFondamentale", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}], "\[Equal]", "1"}],
"]"}]}], ";"}]}]], "Input",
CellChangeTimes->{
3.535044874946954*^9, {3.5352073207905636`*^9, 3.535207330712164*^9}, {
3.5354670960645533`*^9, 3.5354670988569536`*^9}, {3.5354671353141537`*^9,
3.5354671568265533`*^9}},ExpressionUUID->"a24ebfcd-197c-4ffd-b1dc-\
42c431631aa3"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Nota la funzione ",
Cell[BoxData[
FormBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"cdfb7121-0760-44e4-8837-bd50d987f899"]
}], "Subsection",ExpressionUUID->"f1d2933c-26b5-4bfa-8624-7f27c79ce8d4"],
Cell[TextData[{
"Per determinare il coseno e la tangente in termini del seno dello stesso \
angolo facciamo uso dell'identit\[AGrave] appena dimostrata esplicitando \
dapprima il coseno ossia sottraendo ",
Cell[BoxData[
FormBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"], TraditionalForm]],
ExpressionUUID->"89508779-c2e4-46f1-98bd-db0948076d8c"],
" ad entrambi i membri"
}], "Text",ExpressionUUID->"1296af53-00dd-44f4-af4e-1a3bd2017aca"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"toIdentita", "[", "idFondamentale", "]"}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "^", "2"}]}]], "Input",ExpressionUUI\
D->"a5eca379-b698-4081-9ece-93158b1aa0ff"],
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "\[Equal]",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]], "Output",
CellChangeTimes->{3.502020445435556*^9, 3.535031286375158*^9,
3.535044458229754*^9, 3.5350448419061537`*^9, 3.535044913634954*^9,
3.535045084064954*^9, 3.535046158093754*^9, 3.5352073483245635`*^9,
3.535219081226163*^9, 3.5354636489215536`*^9, 3.5354655924475536`*^9,
3.5354656913983536`*^9, 3.5354660619773536`*^9, 3.5354661100409536`*^9,
3.5354671994145536`*^9, 3.535467344291754*^9, 3.535474324829564*^9,
3.589889401797543*^9, 3.8659317526585193`*^9,
3.8659363680055184`*^9},ExpressionUUID->"b1ce959c-2c31-45d7-883b-\
f13f60d113fd"]
}, {2}]],
Cell["L'estrazione della radice quadrata fornisce", "Text",ExpressionUUID->"a5b78b7a-433c-47f9-92e0-ae3e84cee28f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Sqrt", "/@", "%"}]], "Input",ExpressionUUID->"48d808ca-9da5-49a4-bbe5-66f3947255c1"],
Cell[BoxData[
RowBox[{
SqrtBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]], "\[Equal]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.502020445466756*^9, 3.5350312863907576`*^9,
3.5350444582921543`*^9, 3.535044841937354*^9, 3.5350449136973543`*^9,
3.535045084142954*^9, 3.535046158109354*^9, 3.535207348386964*^9,
3.5352190812729635`*^9, 3.5354636489683533`*^9, 3.5354655925567536`*^9,
3.535466062039754*^9, 3.5354661100877533`*^9, 3.5354672178849535`*^9,
3.5354673443541536`*^9, 3.5354743248763638`*^9, 3.589889401797543*^9,
3.8659317583468533`*^9,
3.8659363680055184`*^9},ExpressionUUID->"ef994feb-6387-4a19-827f-\
9891cb177c8f"]
}, {2}]],
Cell[TextData[{
"ma dato che ",
Cell[BoxData[
FormBox[
RowBox[{
SqrtBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]], "=",
RowBox[{"|",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "|"}]}], TraditionalForm]],
ExpressionUUID->"f925ec77-3f9d-42f4-9fb6-e2415687b257"],
" risulta"
}], "Text",ExpressionUUID->"285310ec-7be4-4de3-a339-9caedd558a07"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{"Abs", ",", "%", ",",
RowBox[{"{", "1", "}"}]}], "]"}]], "Input",
CellTags->
"cosNotosen",ExpressionUUID->"d5eef5ce-6566-4003-bd5d-68b7b43ee26a"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.5020204454979563`*^9, 3.535031286406358*^9,
3.535044458338954*^9, 3.5350448419841537`*^9, 3.535044913744154*^9,
3.535045084189754*^9, 3.535046158124954*^9, 3.5352073484337635`*^9,
3.535219081319763*^9, 3.535463649015154*^9, 3.535465592603554*^9,
3.5354660620865536`*^9, 3.535466110134554*^9, 3.5354673444009533`*^9,
3.535474324923164*^9, 3.589889401828743*^9, 3.8659317627384515`*^9,
3.8659359256732626`*^9, 3.865936368036766*^9},
CellTags->
"cosNotosen",ExpressionUUID->"94f7ad3f-0020-47bf-89ab-ca4aa359c3ec"]
}, {2}]],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.865936978859643*^9,
3.8659369803751616`*^9}},ExpressionUUID->"c45d7ddc-6a62-4954-94e8-\
a4a3101dbba3"],
Cell[BoxData[
RowBox[{
RowBox[{"cosNotosen", "=",
RowBox[{"toRule", "[", "%", "]"}]}], ";"}]], "Input",
CellChangeTimes->{3.535044908003354*^9, 3.535045077091754*^9,
3.535465706968154*^9},ExpressionUUID->"aed2b8b1-32c0-45f5-86fb-\
5cdfdb11a217"]
}, Closed]],
Cell[CellGroupData[{
Cell["Tangente in termini del seno", "Subsubsection",
CellChangeTimes->{{3.5350454988689537`*^9,
3.535045512924554*^9}},ExpressionUUID->"4e479aa6-ef12-4cd5-b705-\
cbe5c4674115"],
Cell["La funzione tangente invece si ottiene partendo dalla", "Text",ExpressionUUID->"39de5828-3b12-4290-95f0-fe5c1be60988"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "id1", "]"}]], "Input",ExpressionUUID->"8dc03ed3-562d-4cd2-8a40-9ee7fe39b39f"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "\[Equal]",
FractionBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}],
RowBox[{"cos", "[", "\[Alpha]", "]"}]]}]], "Output",
CellChangeTimes->{3.502020445544756*^9, 3.535031286421958*^9,
3.5350444584637537`*^9, 3.535044842077754*^9, 3.535044913822154*^9,
3.535045084283354*^9, 3.5350461581561537`*^9, 3.535207348527364*^9,
3.5352190813977633`*^9, 3.535463649093154*^9, 3.5354655927127533`*^9,
3.5354657120381536`*^9, 3.535466062180154*^9, 3.535466110196954*^9,
3.5354673444633536`*^9, 3.535474325001164*^9, 3.589889401828743*^9,
3.865931769895545*^9,
3.865936368036766*^9},ExpressionUUID->"11e2779f-7323-42f8-ada5-\
a67e515f8b2e"]
}, {2}]],
Cell["e considerandola in valore assoluto", "Text",ExpressionUUID->"4b80873f-727a-40a4-8685-7110cd8bfe2a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}],
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}]]}], "//",
"TraditionalForm"}]], "Input",ExpressionUUID->"3e04deb7-b3ca-42ef-a053-\
7d7e8d7351a5"],
Cell[BoxData[
FormBox[
RowBox[{
TemplateBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
FractionBox[
TemplateBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}]},
"Abs"],
TemplateBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}]},
"Abs"]]}], TraditionalForm]], "Output",
CellChangeTimes->{
3.502020445591556*^9, 3.5350312864687576`*^9, 3.5350444585105543`*^9,
3.535044842108954*^9, 3.5350449138689537`*^9, 3.535045084330154*^9,
3.5350461582029543`*^9, 3.5352073485741634`*^9, 3.535219081444563*^9,
3.5354636491399536`*^9, 3.5354655927751536`*^9, 3.5354657121005535`*^9,
3.5354660622425537`*^9, 3.5354661102437534`*^9, 3.535467344510154*^9,
3.535474325047964*^9, 3.589889401844343*^9, 3.8659317699267783`*^9, {
3.865933900272278*^9, 3.8659339117740483`*^9},
3.865936368068014*^9},ExpressionUUID->"46162228-c47a-4883-8e08-\
4f140cc6d746"]
}, {2}]],
Cell[TextData[{
"Sostituendo il risultato ",
ButtonBox["precedente",
BaseStyle->"Hyperlink",
ButtonData:>"cosNotosen"],
" giungiamo alla relazione cercata"
}], "Text",ExpressionUUID->"edcc61e2-77e2-45ad-b692-be71e5ba0436"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "cosNotosen"}]], "Input",ExpressionUUID->"7023be5b-ac96-4487-b78d-8dda0fb317d6"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}],
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]]}]], "Output",
CellChangeTimes->{3.502020445607156*^9, 3.535031286499958*^9,
3.5350444586509542`*^9, 3.5350448421713543`*^9, 3.535044913931354*^9,
3.5350450843925543`*^9, 3.5350461582341537`*^9, 3.5352073486209636`*^9,
3.5352190814913635`*^9, 3.5354636491711535`*^9, 3.5354655928375535`*^9,
3.5354657121629534`*^9, 3.5354660622893534`*^9, 3.5354661102905536`*^9,
3.5354673445569534`*^9, 3.535474325110364*^9, 3.589889401859943*^9,
3.8659317699580126`*^9, 3.8659339336839104`*^9,
3.8659363680836387`*^9},ExpressionUUID->"da3bdfdf-282e-4c91-942e-\
6059a863cb81"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.8659369875487385`*^9,
3.8659369886436434`*^9}},ExpressionUUID->"798b4735-e0f2-49c2-934e-\
59d1642ddccc"],
Cell[BoxData[
RowBox[{
RowBox[{"tanNotosen", "=",
RowBox[{"toRule", "[", "%", "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.5351288587361546`*^9},ExpressionUUID->"ae566113-5f83-4a72-8e01-\
ca94c62045c9"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Nota la funzione ",
Cell[BoxData[
FormBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"a9fa6c26-0f0c-4360-b736-9e162fddf11e"]
}], "Subsection",ExpressionUUID->"6fb215d3-b5a2-4483-aabb-a5fe77049719"],
Cell["\<\
In modo del tutto analogo si procede se si intende esprimere il seno e \
tangente in termini del coseno: riportiamo senza commento la procedura.\
\>", "Text",ExpressionUUID->"87f565e7-1372-4bcd-8b1a-92f2a016c2c2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"toIdentita", "[", "idFondamentale", "]"}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}]], "Input",ExpressionUUI\
D->"e4199358-6fe9-4260-9462-b27d053fcbbe"],
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"], "\[Equal]",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]}]], "Output",
CellChangeTimes->{3.5020204456695557`*^9, 3.5350312865311575`*^9,
3.535044458806954*^9, 3.535044842249354*^9, 3.535046158265354*^9,
3.5352073624893637`*^9, 3.5352190815537634`*^9, 3.535463649233554*^9,
3.5354655970339537`*^9, 3.535465722458954*^9, 3.5354660623517537`*^9,
3.535466110352954*^9, 3.535474325188364*^9, 3.589889401859943*^9,
3.8659317789275317`*^9,
3.865936368099262*^9},ExpressionUUID->"e5f5e99e-847a-4d2e-be79-\
0b3c703ff4f5"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Sqrt", "/@", "%"}]], "Input",ExpressionUUID->"5c4ea181-ee7b-465a-ba65-a80daf9d055a"],
Cell[BoxData[
RowBox[{
SqrtBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]], "\[Equal]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.502020445700756*^9, 3.5350312865467577`*^9,
3.535044458853754*^9, 3.535044842280554*^9, 3.535046158280954*^9,
3.5352073625517635`*^9, 3.535219081600563*^9, 3.5354636492803535`*^9,
3.5354655970963535`*^9, 3.5354657225213537`*^9, 3.535466062398554*^9,
3.5354661103997536`*^9, 3.535474325219564*^9, 3.589889401859943*^9,
3.8659317789587536`*^9,
3.8659363681305103`*^9},ExpressionUUID->"ade7bf3b-078d-45f6-8d20-\
267da4cdd212"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{"Abs", ",", "%", ",",
RowBox[{"{", "1", "}"}]}], "]"}]], "Input",ExpressionUUID->"9621dea1-47e4-\
4395-9c32-5114cb35cf21"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.502020445731956*^9, 3.535031286562358*^9,
3.5350444589005537`*^9, 3.5350448423429537`*^9, 3.535046158296554*^9,
3.5352073625985637`*^9, 3.5352190816317635`*^9, 3.535463649311554*^9,
3.5354655971431537`*^9, 3.5354657225681534`*^9, 3.5354660624609537`*^9,
3.5354661104465537`*^9, 3.535474325266364*^9, 3.589889401875543*^9,
3.8659317789587536`*^9, 3.8659359357688074`*^9,
3.8659363681305103`*^9},ExpressionUUID->"a54357b0-a56b-47f7-9e03-\
fc7c970f8df3"]
}, {2}]],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.535045564014554*^9, 3.5350455708317537`*^9}, {
3.865936994175734*^9,
3.8659369954881415`*^9}},ExpressionUUID->"5e680ab7-e54a-4e13-b9e1-\
b96f45590164"],
Cell[BoxData[
RowBox[{
RowBox[{"senNotocos", "=",
RowBox[{"toRule", "[", "%", "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.5351288687045546`*^9},ExpressionUUID->"9724bde8-9d3d-4180-a627-\
f33eca7d3577"]
}, Closed]],
Cell[CellGroupData[{
Cell["Tangente in termini del coseno", "Subsubsection",
CellChangeTimes->{{3.535045600362554*^9,
3.5350456063061543`*^9}},ExpressionUUID->"0d806fc8-3db2-4fd7-b799-\
8afe91cd3397"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "id1", "]"}]], "Input",ExpressionUUID->"95948e1e-9a28-490a-966d-ce6310c9356a"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "\[Equal]",
FractionBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}],
RowBox[{"cos", "[", "\[Alpha]", "]"}]]}]], "Output",
CellChangeTimes->{
3.502020445778756*^9, 3.535031286577958*^9, 3.535044459025354*^9,
3.535044842467754*^9, 3.535046158327754*^9, 3.5352073626609635`*^9,
3.5352190816941633`*^9, 3.535463649373954*^9, {3.5354655972211533`*^9,
3.535465601994754*^9}, 3.5354656331947536`*^9, {3.5354657226461535`*^9,
3.5354657285429535`*^9}, 3.5354660625233536`*^9, 3.5354661105089536`*^9,
3.535474325344364*^9, 3.589889401875543*^9, 3.865931778990001*^9,
3.8659363681617575`*^9},ExpressionUUID->"8275aa15-a046-48db-a83a-\
24b4cfc8ef05"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}],
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}]]}]], "Input",ExpressionUUID->\
"b3c994c6-19b2-4e29-877d-bea0009e4900"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}],
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}]]}]], "Output",
CellChangeTimes->{
3.502020445809956*^9, 3.535031286593558*^9, 3.5350444590877542`*^9,
3.535044842498954*^9, 3.535046158343354*^9, 3.5352073627077637`*^9,
3.535219081740963*^9, 3.5354636494207535`*^9, {3.535465597267954*^9,
3.5354656020571537`*^9}, 3.5354656332727537`*^9, {3.5354657226929536`*^9,
3.5354657286209536`*^9}, 3.5354660626325536`*^9, 3.5354661105557537`*^9,
3.535474325391164*^9, 3.589889401875543*^9, 3.865931778990001*^9,
3.8659363681617575`*^9},ExpressionUUID->"dee76505-5236-40c1-a022-\
228281eef4c3"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "senNotocos"}]], "Input",ExpressionUUID->"de8b8b4c-23dc-4d06-8e98-146dd62fbd6e"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]],
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}]]}]], "Output",
CellChangeTimes->{
3.502020445841156*^9, 3.5350312866091576`*^9, 3.535044459134554*^9,
3.5350448425613537`*^9, 3.535046158358954*^9, 3.5352073627545633`*^9,
3.5352190817721634`*^9, 3.535463649451954*^9, {3.5354655973303537`*^9,
3.5354656021195536`*^9}, 3.5354656333351536`*^9, {3.5354657227397537`*^9,
3.5354657286677537`*^9}, 3.5354660626793537`*^9, 3.5354661106493535`*^9,
3.535474325437964*^9, 3.589889401875543*^9, 3.865931779021249*^9,
3.8659339858164654`*^9,
3.8659363681930103`*^9},ExpressionUUID->"123ad803-b040-408e-a38b-\
5d9a0382380b"]
}, {2}]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Nota la funzione ",
Cell[BoxData[
FormBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"c3892182-9c90-4415-93a8-6e64c71f0e41"]
}], "Subsection",ExpressionUUID->"f25197d4-0ffe-44bd-ada0-d1c2a39ca0c6"],
Cell[TextData[{
"Ritenendo conosciuto il valore di ",
Cell[BoxData[
FormBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"7123555f-04cb-4a61-9ce3-3ebcf225e270"],
" iniziamo dalla evidente identit\[AGrave]"
}], "Text",ExpressionUUID->"bbdf1805-fc5c-4b30-b0f0-67dd456f4adf"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"HoldForm", "[",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"], "]"}], "\[Equal]",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]], "Input",ExpressionUUID->\
"6e7e5adc-7fcc-45b9-8d69-839b6dde4ca9"],
Cell[BoxData[
RowBox[{
TagBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"],
HoldForm], "\[Equal]",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]], "Output",
CellChangeTimes->{
3.5020204458879557`*^9, 3.535031286640358*^9, 3.535044459243754*^9,
3.5350448426393538`*^9, 3.535046158390154*^9, 3.5352073785417633`*^9,
3.5352190819125633`*^9, 3.5353907936645565`*^9, 3.5354636494987535`*^9, {
3.5354657337065535`*^9, 3.5354657534873533`*^9}, 3.5354660627261534`*^9,
3.5354661106961536`*^9, 3.535474325484764*^9, 3.589889401891143*^9,
3.8659317858970184`*^9,
3.8659363681930103`*^9},ExpressionUUID->"a4f06e5e-cff0-4e9f-ba82-\
2cc39737e4bd"]
}, {2}]],
Cell[TextData[{
"e riscriviamo il denominatore ( ",
Cell[BoxData[
FormBox[
RowBox[{"=", "1"}], TraditionalForm]],ExpressionUUID->
"b8c1dee1-7e86-4f5a-8b59-21d4e16498e0"],
") del secondo membro sfruttando l'identit\[AGrave] fondamentale"
}], "Text",ExpressionUUID->"737f1589-50a5-4d26-ad86-70cd625d7fe1"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{
RowBox[{
RowBox[{"#", "/",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}], ")"}]}], "&"}],
",", "%", ",", "2"}], "]"}]], "Input",ExpressionUUID->"603b8926-e874-469c-\
9c6d-58326a97230d"],
Cell[BoxData[
RowBox[{
TagBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"],
HoldForm], "\[Equal]",
FractionBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"],
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020445919156*^9, 3.5350312866559577`*^9, 3.5350444593061543`*^9,
3.535044842686154*^9, 3.535046158405754*^9, 3.5352073786197634`*^9,
3.535219081959363*^9, 3.5353907937269564`*^9, 3.5354636495455537`*^9, {
3.5354657337845535`*^9, 3.5354657535653534`*^9}, 3.5354660627885537`*^9,
3.5354661107429533`*^9, 3.5354743255315638`*^9, 3.589889401891143*^9,
3.8659317859282665`*^9,
3.8659363682242537`*^9},ExpressionUUID->"5e9265ae-5783-4131-a599-\
368957acf3b5"]
}, {2}]],
Cell[TextData[{
"Dividiamo ora il numeratore e denominatore del secondo membro per ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "\[NotEqual]", "0"}],
TraditionalForm]],ExpressionUUID->"3698284c-46b0-45fb-81ab-14f1ba6bb6e4"],
" supponendo quindi che ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[NotEqual]",
RowBox[{
FractionBox["\[Pi]", "2"], "+",
RowBox[{"k", " ", "\[Pi]"}]}]}], TraditionalForm]],ExpressionUUID->
"171e34a7-5959-4922-af6c-c36934427ec5"],
" "
}], "Text",ExpressionUUID->"138ddd47-698e-4352-951d-0e01246b9e91"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"HoldForm", "[",
RowBox[{"#", "/",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}], "]"}], "&"}]}],
"]"}]], "Input",ExpressionUUID->"888846fe-a270-40fd-84d5-328a621d49e0"],
Cell[BoxData[
RowBox[{
TagBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"],
HoldForm], "\[Equal]",
FractionBox[
TagBox[
FractionBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"],
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]],
HoldForm],
TagBox[
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}],
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]],
HoldForm]]}]], "Output",
CellChangeTimes->{
3.502020445950356*^9, 3.535031286671558*^9, 3.535044459352954*^9,
3.535044842732954*^9, 3.535046158436954*^9, 3.5352073786665635`*^9,
3.535219082006163*^9, 3.5353907937737565`*^9, 3.535463649592354*^9, {
3.5354657338313537`*^9, 3.5354657536121535`*^9}, 3.535466062835354*^9,
3.535466110789754*^9, 3.535474325609564*^9, 3.589889401891143*^9,
3.8659317859282665`*^9,
3.8659363682242537`*^9},ExpressionUUID->"ca2fc289-9c99-4c9b-a60d-\
f74f9e47f9df"]
}, {2}]],
Cell[TextData[{
"Applicando la propriet\[AGrave] distributiva e sapendo che ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "=",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "/",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], TraditionalForm]],
ExpressionUUID->"c3be8818-ae07-45c2-a35a-87049f1e6b56"],
" otteniamo"
}], "Text",ExpressionUUID->"9801b6f8-c1a2-4b52-89b7-ba7287dc3967"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"Apart", "[",
RowBox[{"rilascia", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//.",
"id4"}]], "Input",ExpressionUUID->"67fc2ea2-2ef9-4038-8819-915a8d13a8b6"],
Cell[BoxData[
RowBox[{
TagBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"],
HoldForm], "\[Equal]",
FractionBox[
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020445981556*^9, 3.5350312866871576`*^9, 3.535044459415354*^9,
3.5350448427797537`*^9, 3.5350461584525537`*^9, 3.5352073787133636`*^9,
3.5352190820529633`*^9, 3.5353907938205566`*^9, 3.5354636496391535`*^9, {
3.5354657338937535`*^9, 3.535465753674554*^9}, 3.5354660628977537`*^9,
3.5354661108365536`*^9, 3.5354743256719637`*^9, 3.589889401906743*^9,
3.865931785959514*^9,
3.8659363682555013`*^9},ExpressionUUID->"60c6a9b8-5fac-46c9-824c-\
f75c5962ffc3"]
}, {2}]],
Cell["\<\
da cui l'estrazione della radice quadrata in entrambi i membri fornisce\
\>", "Text",ExpressionUUID->"09de71d8-7c9c-4c7f-a746-3270b36e895a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"rilascia", "[",
RowBox[{"Sqrt", "/@", "%"}], "]"}]], "Input",ExpressionUUID->"d4a24830-efd7-\
4d33-8c53-51ab5524c416"],
Cell[BoxData[
RowBox[{
SqrtBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]], "\[Equal]",
SqrtBox[
FractionBox[
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]]}]], "Output",
CellChangeTimes->{
3.502020446028356*^9, 3.5350312866871576`*^9, 3.535044459462154*^9,
3.5350448428265543`*^9, 3.535046158468154*^9, 3.5352073787445636`*^9,
3.535219082084163*^9, 3.5353907938673563`*^9, 3.5354636496859536`*^9, {
3.5354657339405537`*^9, 3.5354657537369537`*^9}, 3.5354660629445534`*^9,
3.5354661108833537`*^9, 3.5354743257187643`*^9, 3.589889401906743*^9,
3.865931785959514*^9,
3.8659363682555013`*^9},ExpressionUUID->"0c60b8b1-5082-485a-9138-\
8c6717e1625f"]
}, {2}]],
Cell["per cui risulta", "Text",ExpressionUUID->"3b1937e8-9eb8-4f95-b646-a88037627c6d"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{"Abs", ",", "%", ",", "1"}], "]"}]], "Input",ExpressionUUID->\
"ab59831e-43c1-4fb2-995b-cd438e2e2593"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
SqrtBox[
FractionBox[
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]]}]], "Output",
CellChangeTimes->{
3.502020446059556*^9, 3.535031286702758*^9, 3.535044459508954*^9,
3.535044842873354*^9, 3.535046158483754*^9, 3.5352073787913637`*^9,
3.5352190821309633`*^9, 3.535390793914157*^9, 3.5354636497171535`*^9, {
3.5354657339873533`*^9, 3.5354657537993536`*^9}, 3.5354660629913535`*^9,
3.535466110930154*^9, 3.535474325765564*^9, 3.589889401906743*^9,
3.8659317859907618`*^9, 3.865934025388486*^9,
3.865936368286749*^9},ExpressionUUID->"095cadc1-f105-4da3-a53d-\
0f4524f9ba75"]
}, {2}]],
Cell["\<\
Con la stessa successione di passaggi si ottiene il valore assoluto del \
coseno in termini della tangente: sinteticamente\
\>", "Text",ExpressionUUID->"cd888f81-9142-48e7-9443-7277083226d7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"HoldForm", "[",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "]"}], "\[Equal]",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]], "Input",ExpressionUUID->\
"4e23be32-5be6-41b1-8854-e81e74b81d00"],
Cell[BoxData[
RowBox[{
TagBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"],
HoldForm], "\[Equal]",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]], "Output",
CellChangeTimes->{
3.502020446090756*^9, 3.535031286718358*^9, 3.535044459571354*^9,
3.535044842920154*^9, 3.535046158499354*^9, 3.5352073788381634`*^9,
3.535219082177763*^9, 3.5353907939453564`*^9, 3.5354636497639537`*^9, {
3.535465734034154*^9, 3.5354657538461533`*^9}, 3.535466063053754*^9,
3.5354661109769535`*^9, 3.535474325812364*^9, 3.589889401906743*^9,
3.86593178602201*^9,
3.865936368302373*^9},ExpressionUUID->"892f9e51-fa80-4bc3-998a-\
57942a0f5508"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{
RowBox[{
RowBox[{"#", "/",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}], ")"}]}], "&"}],
",", "%", ",", "2"}], "]"}]], "Input",ExpressionUUID->"ce01a5c1-0bf1-41cf-\
85d0-63b394afe599"],
Cell[BoxData[
RowBox[{
TagBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"],
HoldForm], "\[Equal]",
FractionBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"],
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020446137556*^9, 3.535031286733958*^9, 3.535044459711754*^9,
3.535044842966954*^9, 3.535046158514954*^9, 3.5352073789005637`*^9,
3.535219082224563*^9, 3.5353907939921565`*^9, 3.535463649810754*^9, {
3.535465734096554*^9, 3.5354657539085536`*^9}, 3.5354660631005535`*^9,
3.5354661110237536`*^9, 3.535474325859164*^9, 3.5898894019223433`*^9,
3.86593178602201*^9,
3.865936368317997*^9},ExpressionUUID->"34cd2042-f0d0-4630-8a13-\
6462572303ed"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"HoldForm", "[",
RowBox[{"#", "/",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}], "]"}], "&"}]}],
"]"}]], "Input",ExpressionUUID->"ed32eff3-3bfa-40e6-9f3c-78bff799cc9b"],
Cell[BoxData[
RowBox[{
TagBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"],
HoldForm], "\[Equal]",
FractionBox[
TagBox[
FractionBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"],
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]],
HoldForm],
TagBox[
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}],
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]],
HoldForm]]}]], "Output",
CellChangeTimes->{
3.502020446168756*^9, 3.5350312867495575`*^9, 3.535044459758554*^9,
3.535044843013754*^9, 3.535046158530554*^9, 3.535207378947364*^9,
3.5352190822713633`*^9, 3.5353907940389566`*^9, 3.5354636498575535`*^9, {
3.5354657341433535`*^9, 3.535465753970954*^9}, 3.5354660631473536`*^9,
3.535466111070554*^9, 3.535474325905964*^9, 3.5898894019223433`*^9,
3.865931786053258*^9,
3.865936368349244*^9},ExpressionUUID->"79244c93-497a-4dbb-a21b-\
466a33c5fbcb"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"Apart", "[",
RowBox[{"rilascia", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//.",
"id4"}]], "Input",ExpressionUUID->"830855e7-bd3f-4890-822a-8b5ffee9256a"],
Cell[BoxData[
RowBox[{
TagBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"],
HoldForm], "\[Equal]",
FractionBox["1",
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020446199956*^9, 3.5350312867651577`*^9, 3.5350444598209543`*^9,
3.535044843060554*^9, 3.535046158546154*^9, 3.5352073789941635`*^9,
3.535219082302563*^9, 3.5353907940857563`*^9, 3.535463649888754*^9, {
3.5354657342057533`*^9, 3.5354657540177536`*^9}, 3.5354660632097535`*^9,
3.5354661111173534`*^9, 3.535474325952764*^9, 3.5898894019223433`*^9,
3.865931786053258*^9,
3.865936368364868*^9},ExpressionUUID->"ce650c44-149d-416b-8eeb-\
ce7d95283dec"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"rilascia", "[",
RowBox[{"Sqrt", "/@", "%"}], "]"}]], "Input",ExpressionUUID->"375ae1dd-57bb-\
49fe-812a-dfa7dbfd5ff2"],
Cell[BoxData[
RowBox[{
SqrtBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]], "\[Equal]",
SqrtBox[
FractionBox["1",
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]]}]], "Output",
CellChangeTimes->{
3.5020204462311563`*^9, 3.5350312867651577`*^9, 3.535044459867754*^9,
3.535044843107354*^9, 3.535046158561754*^9, 3.5352073790409636`*^9,
3.5352190823493633`*^9, 3.535390794132557*^9, 3.5354636499355536`*^9, {
3.535465734252554*^9, 3.5354657540801535`*^9}, 3.5354660632565536`*^9,
3.5354661111641536`*^9, 3.535474325999564*^9, 3.5898894019223433`*^9,
3.8659317860845056`*^9,
3.865936368380493*^9},ExpressionUUID->"abbbf7c9-6af8-4b7d-8527-\
7ed15327cf39"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{"Abs", ",", "%", ",", "1"}], "]"}]], "Input",ExpressionUUID->\
"a74507c0-fc4f-48b8-8eef-31e7ce4513ef"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
SqrtBox[
FractionBox["1",
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]]}]], "Output",
CellChangeTimes->{
3.502020446262356*^9, 3.535031286780758*^9, 3.535044459914554*^9,
3.5350448432633543`*^9, 3.535046158577354*^9, 3.5352073791189637`*^9,
3.535219082396163*^9, 3.5353907941793566`*^9, 3.5354636500603533`*^9, {
3.5354657342993536`*^9, 3.5354657541425533`*^9}, 3.5354660633033533`*^9,
3.5354661112109537`*^9, 3.535474326046364*^9, 3.589889401937943*^9,
3.8659317861157537`*^9, 3.865934057205266*^9,
3.8659363683961163`*^9},ExpressionUUID->"ef162a7c-8d28-4e67-9819-\
27e0db97267f"]
}, {2}]],
Cell[TextData[{
"In definitiva abbiamo ottenuto le seguenti identit\[AGrave] in termini \
dell'angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"ac4cce77-18d0-47c2-8e42-ff576fdd5fad"],
" "
}], "Text",ExpressionUUID->"9e6966df-5bf6-40f3-a0d5-a355fcbf360c"],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{
StyleBox["\<\"idFondamentale\"\>",
StripOnInput->False,
FontFamily->"Helvetica",
FontSize->10],
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}], "+",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}], "\[LongEqual]", "1"}]},
{
StyleBox["\<\"cosNotosen\"\>",
StripOnInput->False,
FontFamily->"Helvetica",
FontSize->10],
RowBox[{
TemplateBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}]]}]},
{
StyleBox["\<\"tanNotosen\"\>",
StripOnInput->False,
FontFamily->"Helvetica",
FontSize->10],
RowBox[{
TemplateBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
FractionBox[
TemplateBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}]},
"Abs"],
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}]]]}]},
{
StyleBox["\<\"senNotocos\"\>",
StripOnInput->False,
FontFamily->"Helvetica",
FontSize->10],
RowBox[{
TemplateBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
SqrtBox[
RowBox[{"1", "-",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}]}]]}]},
{
StyleBox["\<\"tanNotocos\"\>",
StripOnInput->False,
FontFamily->"Helvetica",
FontSize->10],
RowBox[{
TemplateBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}]}]],
TemplateBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}]},
"Abs"]]}]},
{
StyleBox["\<\"senNototan\"\>",
StripOnInput->False,
FontFamily->"Helvetica",
FontSize->10],
RowBox[{
TemplateBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
SqrtBox[
FractionBox[
RowBox[{
SuperscriptBox["tan", "2"], "(", "\[Alpha]", ")"}],
RowBox[{
RowBox[{
SuperscriptBox["tan", "2"], "(", "\[Alpha]", ")"}], "+", "1"}]]]}]},
{
StyleBox["\<\"cosNototan\"\>",
StripOnInput->False,
FontFamily->"Helvetica",
FontSize->10],
RowBox[{
TemplateBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
SqrtBox[
FractionBox["1",
RowBox[{
RowBox[{
SuperscriptBox["tan", "2"], "(", "\[Alpha]", ")"}], "+", "1"}]]]}]}
},
AutoDelete->False,
GridBoxAlignment->{"Columns" -> {Left, Center}},
GridBoxBackground->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic,
RGBColor[0.88, 1, 0.88]}}},
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
"Grid"], TraditionalForm]], "Output",
CellChangeTimes->{{3.5353906654481564`*^9, 3.5353906816097565`*^9},
3.5353907323253565`*^9,
3.589889401969143*^9},ExpressionUUID->"9bac0bfb-7967-4723-9686-\
fe7b99b79c65"],
Cell["\<\
Nel seguito riprenderemo, di queste, solo l'identit\[AGrave] fondamentale in \
quanto solo questa si dimostrer\[AGrave] necessaria.\
\>", "Text",ExpressionUUID->"b6c82d48-e328-4361-b1e1-4b7a6597bac7"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Angoli associati e relative identit\[AGrave]", "Section",ExpressionUUID->"52b1640a-3711-49ba-85d8-15f267023464"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"1f1aef2c-4d8e-41ab-afc8-35c1f6702d18"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "cosNotosen", ",", "tanNotosen", ",", "senNotocos",
",", "tanNotocos", ",", "senNototan", ",", "cosNototan"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}],
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]],
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
SqrtBox[
FractionBox[
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
SqrtBox[
FractionBox["1",
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]]}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Grid", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Style", "[",
RowBox[{"#", ",",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], "&"}], "/@",
RowBox[{"{",
RowBox[{
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\""}], "}"}]}], ",",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "cosNotosen", ",", "tanNotosen", ",",
"senNotocos", ",", "tanNotocos", ",", "senNototan", ",",
"cosNototan"}], "}"}]}]}], "}"}], "]"}], ",",
RowBox[{"Frame", "\[Rule]", "All"}], ",",
RowBox[{"Spacings", "\[Rule]",
RowBox[{"{",
RowBox[{"2", ",", "1"}], "}"}]}], ",",
RowBox[{"Alignment", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Left", ",", "Center"}], "}"}], "}"}]}], ",",
RowBox[{"Background", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Automatic", ",", "LightGreen"}], "}"}], "}"}]}], "}"}]}]}],
"]"}], "//", "TraditionalForm"}], ";"}]}], "Input",
CellChangeTimes->{{3.535390603999757*^9, 3.5353906809545565`*^9}, {
3.5353907222945566`*^9,
3.535390748580557*^9}},ExpressionUUID->"3e71801e-c99d-469c-8d0a-\
ccac8a0109ae"]
}, Closed]],
Cell[CellGroupData[{
Cell["Angoli complementari", "Subsection",ExpressionUUID->"8701ab28-c897-49a8-b607-8f512a17c6b2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{", "\[Beta]", "}"}], ",",
RowBox[{
RowBox[{"\[Beta]", "=",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "-", "\[Alpha]"}]}], ";", "\n",
RowBox[{"pP", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",",
RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "}"}]}], ";",
RowBox[{"pQ", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], ";",
RowBox[{"pO", "=",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ";",
RowBox[{"pR", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "}"}]}], ";",
RowBox[{"pS", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",", "0"}], "}"}]}], ";", "\n",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Yellow", ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ", ",", "pP"}], "}"}], "]"}], ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS", ",", "pR"}], "}"}], "]"}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"Green", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".3", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Beta]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".2", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Alpha]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "Gray", ",",
RowBox[{"Circle", "[", "]"}]}], "}"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pP", ",", "pO", ",", "pR"}], "}"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pQ", ",", "pP"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pS", ",", "pR"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pO", ",",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pQ", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pP", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pS", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pR", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "}"}]}], "}"}],
"]"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]", "1.1"}], ",",
RowBox[{"ImageSize", "->", "400"}]}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"25", "Degree"}], ",",
RowBox[{"Style", "[",
RowBox[{"\"\<\[Alpha] \>\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.5350314853843575`*^9, 3.535031543151158*^9}, {
3.535031659698758*^9, 3.5350316616175575`*^9}, {3.535031823607958*^9,
3.5350318690663576`*^9}, {3.5350320266419578`*^9, 3.535032026907158*^9}, {
3.5350325014279575`*^9, 3.5350325025979576`*^9}, {3.5353909210073566`*^9,
3.5353909325045567`*^9}, {3.8659318782708287`*^9,
3.8659319049169693`*^9}},ExpressionUUID->"507a9f05-babf-447a-b49a-\
818186b96e8e"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`\[Alpha]$$ = 25 Degree, Typeset`show$$ =
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`\[Alpha]$$], 25 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
Typeset`size$$ = {288., {142., 146.}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 25 Degree},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Block[{$CellContext`\[Beta]}, $CellContext`\[Beta] =
Pi/2 - $CellContext`\[Alpha]$$; $CellContext`pP = {
Cos[$CellContext`\[Alpha]$$],
Sin[$CellContext`\[Alpha]$$]}; $CellContext`pQ = {
Cos[$CellContext`\[Alpha]$$], 0}; $CellContext`pO = {0,
0}; $CellContext`pR = {
Cos[$CellContext`\[Beta]],
Sin[$CellContext`\[Beta]]}; $CellContext`pS = {
Cos[$CellContext`\[Beta]], 0}; Show[
Graphics[{{Yellow,
Polygon[{$CellContext`pO, $CellContext`pQ, $CellContext`pP}],
Polygon[{$CellContext`pO, $CellContext`pS, $CellContext`pR}]}, {
Green,
Disk[$CellContext`pO, 0.3, {0, $CellContext`\[Beta]}]}, {Red,
Disk[$CellContext`pO, 0.2, {0, $CellContext`\[Alpha]$$}]}, {
Dashed, Gray,
Circle[]},
Line[{$CellContext`pP, $CellContext`pO, $CellContext`pR}], {
Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pQ}],
Arrow[{$CellContext`pQ, $CellContext`pP}]}, {Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pS}],
Arrow[{$CellContext`pS, $CellContext`pR}]}, {
Text["O", $CellContext`pO, {1, 1}],
Text["Q", $CellContext`pQ, {0, 1}],
Text["P", $CellContext`pP, {0, -1}],
Text["S", $CellContext`pS, {0, 1}],
Text["R", $CellContext`pR, {0, -1}]}}], Axes -> True,
Ticks -> {{-1, 0, 1}, {-1, 0, 1}}, PlotRange -> 1.1, ImageSize ->
400]], "Specifications" :> {{{$CellContext`\[Alpha]$$, 25 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
"Options" :> {},
"DefaultOptions" :> {ControlPlacement -> Top, SaveDefinitions -> True}],
ImageSizeCache->{323., {175.93650390625, 180.06349609375}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
Initialization:>({$CellContext`pP = {
Cos[25 Degree],
Sin[25 Degree]}, $CellContext`pQ = {
Cos[25 Degree], 0}, $CellContext`pO = {0, 0}, $CellContext`pR = {
Sin[25 Degree],
Cos[25 Degree]}, $CellContext`pS = {
Sin[25 Degree], 0}}; Typeset`initDone$$ = True),
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.5350315243219576`*^9, 3.535031544243158*^9},
3.535031662553558*^9, {3.5350318424371576`*^9, 3.535031869627958*^9}, {
3.535032027640358*^9, 3.5350320428659577`*^9}, 3.535032503362358*^9,
3.535044460054954*^9, 3.535044843403754*^9, 3.535045181954954*^9,
3.535046158733354*^9, 3.5352074098977633`*^9, 3.535219082520963*^9,
3.5353909331129565`*^9, {3.5353909750457563`*^9, 3.535390984686557*^9},
3.5354623598457537`*^9, 3.5354624370813537`*^9, 3.5354633615539536`*^9,
3.535463673460354*^9, 3.5354657642357535`*^9, 3.5354660633969536`*^9,
3.535466111288954*^9, 3.535474326124364*^9, 3.589889402015943*^9,
3.865931830701353*^9, 3.8659319057137847`*^9,
3.8659363684429884`*^9},ExpressionUUID->"efb3ca51-39e1-4193-ac2c-\
c9e5cd6079ba"]
}, {2}]],
Cell["", "NumberedFigure",
CellTags->"figura2",ExpressionUUID->"58c1285c-90df-458d-8046-7bbad1207dd6"],
Cell[CellGroupData[{
Cell["Seno di un angolo complementare", "Subsubsection",ExpressionUUID->"f0104646-1c3d-4e8f-942e-c47bf42bf8fa"],
Cell[TextData[{
"Sia ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"4a1286b0-f4b5-47c9-97a0-2637a17a338e"],
" l'ampiezza di un angolo orientato. Questo individua nella circonferenza ",
Cell[BoxData[
FormBox["\[Gamma]", TraditionalForm]],ExpressionUUID->
"93129798-a670-4300-9892-0d08b33f41f9"],
" con centro nell'origine ",
Cell[BoxData[
FormBox["O", TraditionalForm]],ExpressionUUID->
"acc6c21d-a194-4dd8-890b-3d261e77afeb"],
" di un sistema cartesiano il triangolo ",
Cell[BoxData[
FormBox[
StyleBox["OQP",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"9cd892e6-8db6-481b-baf2-e93c56cfab6d"],
". In ",
ButtonBox["fig. 2",
BaseStyle->"Hyperlink",
ButtonData:>"figura2"],
" ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"19c96e99-acc7-4097-a417-60c428415607"],
", per comodit\[AGrave], appare un angolo compreso nel I quadrante (in \
rosso) ma le relazioni che dedurremo si dimostrano valide qualsiasi sia il \
suo valore. L'angolo complementare, di ampiezza ",
Cell[BoxData[
FormBox[
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], TraditionalForm]],
ExpressionUUID->"d4cf6bd1-be26-4a95-bde4-e881f750b9d6"],
" che si associa ad ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"a73d2b2e-aace-4bff-8cdf-73be1a35c94f"],
" definisce a sua volta il triangolo ",
Cell[BoxData[
FormBox[
StyleBox["OSR",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"9c89b1f7-d66c-4a00-bfad-46d6ad6c18be"],
": siamo interessati ad esprimere le funzioni goniometriche di quest'ultimo \
in termini di quelle dell'angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"28509678-e36f-4545-ada1-262e05a87041"],
". Dalla definizione discende quindi che"
}], "Text",ExpressionUUID->"589cb2c0-e12d-43cb-ac15-08d6bd23a8d4"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OR"}]}]], "Input",ExpressionUUID->"cc0ad90c-4501-49f8-\
88ad-dbb6ee0302ef"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OR"]}]], "Output",
CellChangeTimes->{
3.502020446433956*^9, 3.5350312869055576`*^9, 3.535044460195354*^9,
3.535044843590954*^9, 3.535046158748954*^9, {3.535207432798564*^9,
3.5352074401773634`*^9}, 3.5352190826457634`*^9, 3.535462360001754*^9,
3.5354624372373533`*^9, 3.5354633617255535`*^9, 3.535465764438554*^9,
3.5354660635217533`*^9, 3.5354661114293537`*^9, 3.535474326249164*^9,
3.589889402015943*^9, 3.8659319184641523`*^9,
3.865936368521107*^9},ExpressionUUID->"a4d45a5c-b787-4295-8c9b-\
8aeadd7e41e1"]
}, {2}]],
Cell[TextData[{
"ma la congruenza tra i triangoli ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox[
RowBox[{"\[EmptyUpTriangle]",
StyleBox["OQP",
FontSlant->"Italic"]}]], "\[TildeFullEqual]",
StyleBox[
RowBox[{"\[EmptyUpTriangle]",
StyleBox["OSR",
FontSlant->"Italic"]}]]}], TraditionalForm]],ExpressionUUID->
"b41d42c1-0819-4ceb-a7aa-c27f516ea76d"],
" comporta che si abbia, anche in segno, ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["SR",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["OQ",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"39e784eb-2757-4793-b646-11f8cfcb57a5"],
" e ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["OR",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["OP",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"39700415-3b55-4c6b-832e-485ed85e9bd8"],
". Pertanto sostituendo queste uguaglianze nella precedente"
}], "Text",
CellChangeTimes->{{3.8659925239504633`*^9,
3.8659925245209913`*^9}},ExpressionUUID->"25a6d54c-4b31-4364-8d70-\
d5f82e75a065"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]", "OQ"}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"32e0c4e0-e3cd-4125-9db7-49197ec4e9d8"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OQ", "OP"]}]], "Output",
CellChangeTimes->{3.502020446480756*^9, 3.535031286921158*^9,
3.5350444602577543`*^9, 3.535044843637754*^9, 3.535046158764554*^9,
3.5352074402397633`*^9, 3.535219082676963*^9, 3.5354623600485535`*^9,
3.535462437284154*^9, 3.535463361756754*^9, 3.5354657644853535`*^9,
3.535466063630954*^9, 3.5354661114761534`*^9, 3.535474326311564*^9,
3.589889402015943*^9, 3.8659319184954004`*^9,
3.8659363685523553`*^9},ExpressionUUID->"a8a1e330-e61b-468e-a37e-\
eeb7426ff5bc"]
}, {2}]],
Cell[TextData[{
"Ma per la definizione delle funzioni goniometriche relative all'angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"be82723e-e514-42f2-9dec-73e9776ec3e7"],
", in particolare quella del coseno, risulta che"
}], "Text",ExpressionUUID->"a0b7556c-d547-43d5-83c7-a4422b2ebd64"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"37015b70-fca3-4aab-9637-8bea87b55943"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]], "Output",
CellChangeTimes->{3.502020446511956*^9, 3.535031286936758*^9,
3.535044460304554*^9, 3.535044843684554*^9, 3.535046158780154*^9,
3.535207440286564*^9, 3.5352190827237635`*^9, 3.5354623600953536`*^9,
3.5354624373309536`*^9, 3.5354633618815536`*^9, 3.5354657645477533`*^9,
3.5354660636777534`*^9, 3.5354661115229535`*^9, 3.535474326358364*^9,
3.589889402031543*^9, 3.865931918511024*^9, 3.865935956647292*^9,
3.8659363685523553`*^9},ExpressionUUID->"57f3281b-4154-4434-a6f5-\
dc4e920284a8"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["Coseno di un angolo complementare", "Subsubsection",ExpressionUUID->"ca3f4806-42d3-492a-b3bf-3bf22b053f8c"],
Cell[TextData[{
"Procediamo nello stesso modo per determinare ",
Cell[BoxData[
FormBox[
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], TraditionalForm]],
ExpressionUUID->"f6037044-7cf5-4843-987e-a384c637ce8b"],
" in termini di funzioni dell'angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"8d489e01-52ec-4263-8715-7b0b2a9d916d"],
"."
}], "Text",ExpressionUUID->"5e2ab725-2b63-47c5-9754-71d793fb6207"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"OS", "/", "OR"}]}]], "Input",ExpressionUUID->"efed672c-8e25-4432-\
8bde-a3198939471b"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OS", "OR"]}]], "Output",
CellChangeTimes->{3.5020204465899563`*^9, 3.535031286952358*^9,
3.5350444604293537`*^9, 3.535044843793754*^9, 3.5350461588113537`*^9,
3.535207469428364*^9, 3.5352190828173633`*^9, 3.5354623601733537`*^9,
3.535462437424554*^9, 3.535463361975154*^9, 3.535465764656954*^9,
3.535466063786954*^9, 3.535466111663354*^9, 3.535474326451964*^9,
3.589889402031543*^9, 3.865931923854417*^9,
3.865936368583603*^9},ExpressionUUID->"206a4285-38fe-4741-86a6-\
f3b596c3c7cb"]
}, {2}]],
Cell[TextData[{
"Osservata la validit\[AGrave] di ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["OS",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["QP",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"646d3c41-5650-4e74-a894-382883392570"],
" (",
ButtonBox["fig.2",
BaseStyle->"Hyperlink",
ButtonData:>"figura2"],
") discende"
}], "Text",ExpressionUUID->"a09c2860-f987-4a3a-94eb-3a59498cb700"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"OS", "\[Rule]", "QP"}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"75ea065e-e1f1-4f04-b3f0-ae95f140759f"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["QP", "OP"]}]], "Output",
CellChangeTimes->{3.5020204466211557`*^9, 3.5350312869679575`*^9,
3.535044460491754*^9, 3.535044843840554*^9, 3.535046158826954*^9,
3.5352074695219636`*^9, 3.535219082910963*^9, 3.535462360220154*^9,
3.5354624374713535`*^9, 3.5354633620063534`*^9, 3.5354657647037535`*^9,
3.5354660638337536`*^9, 3.5354661117101536`*^9, 3.535474326498764*^9,
3.589889402031543*^9, 3.865931923901271*^9,
3.865936368583603*^9},ExpressionUUID->"e5be5a1f-64ee-481e-8d9b-\
1d3ca49b9d12"]
}, {2}]],
Cell[TextData[{
"e utilizzando la definizione di ",
Cell[BoxData[
FormBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"a634ee30-b961-484f-9d87-19b29efe7b55"]
}], "Text",ExpressionUUID->"58029d87-2f3f-4a1a-b595-f6fc2de097d0"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"c4436bd2-e9dc-45b9-b1a5-9a849e01ce0d"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]], "Output",
CellChangeTimes->{3.5020204466679564`*^9, 3.5350312869835577`*^9,
3.535044460538554*^9, 3.535044843887354*^9, 3.535046158842554*^9,
3.5352074695687637`*^9, 3.535219082957763*^9, 3.5354623602513533`*^9,
3.5354624375181537`*^9, 3.5354633620531535`*^9, 3.5354657647661533`*^9,
3.5354660638961535`*^9, 3.5354661117569537`*^9, 3.535474326561164*^9,
3.589889402031543*^9, 3.865931923901271*^9, 3.865935963507433*^9,
3.865936368614851*^9},ExpressionUUID->"5a197063-156f-49a3-8bf5-\
480ffb3a6da4"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",
CellChangeTimes->{{3.535474601620364*^9,
3.5354746065343637`*^9}},ExpressionUUID->"c0199f08-cd12-4474-a49f-\
be48ef650127"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{"senCompl", ",", "cosCompl"}], "}"}], "=",
RowBox[{"toRule", "/@",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], "}"}]}]}]], "Input",
CellChangeTimes->{
3.535474643365964*^9, {3.535474704377564*^9,
3.5354747428159637`*^9}},ExpressionUUID->"abaf9fea-5996-48df-bffb-\
bccde49a173e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], "}"}]], "Output",
CellChangeTimes->{3.535474746918764*^9, 3.589889402047143*^9,
3.865931925980495*^9,
3.865936368614851*^9},ExpressionUUID->"43f23420-7048-4e14-be23-\
ca3286a5d631"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell["Tangente di un angolo complementare", "Subsubsection",ExpressionUUID->"b4b8ff28-40ee-45a5-bb5c-b20df7dfbc29"],
Cell["\<\
Infine, la definizione di tangente per l'angolo complementare comporta \
l'uguaglianza\
\>", "Text",ExpressionUUID->"31cb4763-2d0d-4ebf-a29b-da40404f8950"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "-", "\[Alpha]"}], "]"}], "==",
RowBox[{"SR", "/", "OS"}]}]], "Input",ExpressionUUID->"eb476b50-a133-4b6f-\
9910-59b476dae1f6"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OS"]}]], "Output",
CellChangeTimes->{3.502020446745956*^9, 3.535031287014758*^9,
3.535044460756954*^9, 3.535044843996554*^9, 3.535046158873754*^9,
3.5352074830003633`*^9, 3.535219083051363*^9, 3.5354623603449535`*^9,
3.5354624376117535`*^9, 3.5354633621467533`*^9, 3.5354657648597536`*^9,
3.5354660639897537`*^9, 3.5354661118505535`*^9, 3.535474326685964*^9,
3.589889402047143*^9, 3.865931935996691*^9,
3.865936368646099*^9},ExpressionUUID->"5b0874d0-d927-4a73-b017-\
7e2859049939"]
}, {2}]],
Cell[TextData[{
"ma la congruenza dei triangoli gi\[AGrave] esposta assicura che ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["SR",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["OQ",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"44602c9b-47e6-4bca-9e73-439a7930b285"],
" e ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["OS",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["QP",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"b69274a1-f594-4246-82bb-a21cadc9c043"],
" (",
ButtonBox["fig. 2",
BaseStyle->"Hyperlink",
ButtonData:>"figura2"],
") per cui"
}], "Text",ExpressionUUID->"a64bb21c-0b73-4e0a-812f-649f5064f889"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]", "OQ"}], ",",
RowBox[{"OS", "\[Rule]", "QP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"eafc6180-2e28-42f1-a9d8-da1c89320255"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OQ", "QP"]}]], "Output",
CellChangeTimes->{3.502020446777156*^9, 3.535031287030358*^9,
3.535044460803754*^9, 3.535044844043354*^9, 3.5350461588893538`*^9,
3.5352074830627637`*^9, 3.5352190830825634`*^9, 3.5354623604073534`*^9,
3.5354624376585536`*^9, 3.5354633621779537`*^9, 3.5354657649065533`*^9,
3.5354660640365534`*^9, 3.5354661118973536`*^9, 3.5354743267327642`*^9,
3.589889402047143*^9, 3.865931936012333*^9,
3.865936368646099*^9},ExpressionUUID->"f37ec5e6-d8bb-4ca8-aa28-\
126b2532ff81"]
}, {2}]],
Cell["che \[EGrave] equivalente alla", "Text",ExpressionUUID->"a1fe99f3-e763-4366-82e1-bb6a25075676"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", " ",
RowBox[{"QP", "/", "OQ"}]}]], "Input",ExpressionUUID->"30f53c7d-9bdc-4fe0-a71a-648e1657b5dd"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"QP", " ",
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}]}], "OQ"],
"\[Equal]", "1"}]], "Output",
CellChangeTimes->{3.5020204468083563`*^9, 3.535031287030358*^9,
3.5350444608661537`*^9, 3.5350448440901537`*^9, 3.535046158904954*^9,
3.535207483109564*^9, 3.535219083129363*^9, 3.5354623604697533`*^9,
3.5354624377053537`*^9, 3.5354633622247534`*^9, 3.5354657649689536`*^9,
3.5354660640989532`*^9, 3.535466111944154*^9, 3.535474326779564*^9,
3.589889402047143*^9, 3.865931936012333*^9,
3.865936368677346*^9},ExpressionUUID->"cc98d42c-5447-449d-9f04-\
057dbfe7dd64"]
}, {2}]],
Cell["Per la definizione di tangente risulta anche", "Text",ExpressionUUID->"eff343f5-83e4-4839-9f82-82c594b936ec"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"c8ab5e84-9266-4d28-8343-72d78d6e7668"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], " ",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], "\[Equal]", "1"}]], "Output",
CellChangeTimes->{3.5020204468395557`*^9, 3.5350312870459576`*^9,
3.5350444609129543`*^9, 3.5350448441369543`*^9, 3.535046158920554*^9,
3.5352074831563635`*^9, 3.535219083176163*^9, 3.5354623605321536`*^9,
3.5354624377365537`*^9, 3.5354633622715535`*^9, 3.5354657650157537`*^9,
3.535466064145754*^9, 3.5354661119909534`*^9, 3.535474326826364*^9,
3.589889402062743*^9, 3.865931936043563*^9,
3.865936368677346*^9},ExpressionUUID->"a78dbb6e-04fd-44e5-b5be-\
ef29f417ec01"]
}, {2}]],
Cell[TextData[{
"da cui, dividendo per ",
Cell[BoxData[
FormBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"ba6625ca-6199-4d54-a67c-6058cb3def0e"]
}], "Text",ExpressionUUID->"3c93563a-e5a5-4df8-919c-6034930ab356"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]], "Input",ExpressionUUID->"a94dd8d9-\
d69f-48eb-81f9-63dd86bd119c"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["1",
RowBox[{"tan", "[", "\[Alpha]", "]"}]]}]], "Output",
CellChangeTimes->{3.502020446870756*^9, 3.535031287061558*^9,
3.535044460959754*^9, 3.535044844183754*^9, 3.535046158936154*^9,
3.5352074832031636`*^9, 3.5352190832229633`*^9, 3.5354623606101537`*^9,
3.535462437783354*^9, 3.5354633623183537`*^9, 3.5354657650469537`*^9,
3.5354660642081537`*^9, 3.5354661120377536`*^9, 3.535474326873164*^9,
3.589889402062743*^9, 3.865931936059187*^9,
3.8659363687085943`*^9},ExpressionUUID->"f59f72b9-9490-43b2-907f-\
5b89b43c7e63"]
}, {2}]],
Cell["che si pu\[OGrave] riscrivere nei due modi seguenti", "Text",ExpressionUUID->"9d5c2364-9a57-4d11-ba9e-88a07ff97504"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "id3"}]], "Input",ExpressionUUID->"d1cf26b6-2b84-4aec-93ce-b15de08a74f9"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}]], "Output",
CellChangeTimes->{3.502020446901956*^9, 3.535031287077158*^9,
3.535044461022154*^9, 3.535044844230554*^9, 3.535046158951754*^9,
3.5352074832499638`*^9, 3.535219083269763*^9, 3.5354623606413536`*^9,
3.5354624378301535`*^9, 3.5354633623651533`*^9, 3.535465765093754*^9,
3.5354660642549534`*^9, 3.5354661120845537`*^9, 3.535474326919964*^9,
3.589889402062743*^9, 3.865931936059187*^9, 3.8659359761965466`*^9,
3.8659363687398424`*^9},ExpressionUUID->"673c5bb0-2b15-49ab-ac17-\
06cecfe8f9e1"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "id2"}]], "Input",ExpressionUUID->"4011426e-0ac0-4113-80b9-2ef4d8957450"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]], "Output",
CellChangeTimes->{3.502020446933156*^9, 3.5350312870927577`*^9,
3.535044461068954*^9, 3.5350448442773542`*^9, 3.535046158967354*^9,
3.5352074832967634`*^9, 3.5352190833009634`*^9, 3.5354623606881533`*^9,
3.5354624378769536`*^9, 3.535463362411954*^9, 3.5354657651405535`*^9,
3.5354660643017535`*^9, 3.5354661121313534`*^9, 3.535474326966764*^9,
3.589889402062743*^9, 3.865931936074811*^9, 3.865935979760007*^9,
3.865936368755466*^9},ExpressionUUID->"ef8dad3c-e809-4915-93c2-\
87dcb1eddb55"]
}, {2}]],
Cell["In alternativa", "Text",ExpressionUUID->"c5f61b56-99ab-4231-9a9b-5e7d835a5af0"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "-", "\[Alpha]"}], "]"}], "/",
RowBox[{"cos", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "-", "\[Alpha]"}], "]"}]}]}]], "Input",Expre\
ssionUUID->"f53c8b80-61c3-47a7-9c22-f5fdee299f5f"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}],
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}]]}]], "Output",
CellChangeTimes->{3.5020204469799557`*^9, 3.5350312870927577`*^9,
3.535044461115754*^9, 3.535044844324154*^9, 3.535046158982954*^9,
3.5352074833591633`*^9, 3.535219083347763*^9, 3.535462360734954*^9,
3.5354624379081535`*^9, 3.5354633624587536`*^9, 3.535465765171754*^9,
3.5354660643485537`*^9, 3.5354661121781535`*^9, 3.535474327013564*^9,
3.589889402078343*^9, 3.865931936106058*^9,
3.8659363687867136`*^9},ExpressionUUID->"dbb0930c-d2e6-49d5-9b1c-\
2ab6bb2467a0"]
}, {2}]],
Cell["\<\
per cui sfruttando le identit\[AGrave] gi\[AGrave] dimostrate per seno e \
coseno, riesce\
\>", "Text",ExpressionUUID->"7637c75e-c629-4f9d-80d0-8a9362c128ab"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "senCompl"}], "/.", "cosCompl"}]], "Input",ExpressionUUID\
->"a742e3ef-0166-4109-ac11-90e35d2fa26d"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]], "Output",
CellChangeTimes->{3.502020447011156*^9, 3.535031287108358*^9,
3.535044461178154*^9, 3.535044844370954*^9, 3.535046158998554*^9,
3.535207483468364*^9, 3.535219083394563*^9, 3.5354623607661533`*^9,
3.5354624379549537`*^9, 3.5354633625211535`*^9, 3.5354657652341537`*^9,
3.5354660644109535`*^9, 3.5354661122249537`*^9, 3.535474327075964*^9,
3.589889402078343*^9, 3.865931936106058*^9, 3.8659341401703973`*^9,
3.8659363688023376`*^9},ExpressionUUID->"74c66bff-6cbc-4c06-9d00-\
5ebe029e8889"]
}, {2}]],
Cell["Abbiamo pertanto dimostrato le identit\[AGrave]:", "Text",ExpressionUUID->"51e55cb7-605a-4b5d-a75e-556c56021098"],
Cell[BoxData[{
FormBox[
RowBox[{"Angoli", " ", "complementari"}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], ")"}], "=",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], ")"}], "=",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], ")"}], "=",
RowBox[{
RowBox[{"cot", "(", "\[Alpha]", ")"}], "=",
FractionBox["1",
RowBox[{"tan", "(", "\[Alpha]", ")"}]]}]}], TraditionalForm]}], "Output",
CellChangeTimes->{
3.589889402093943*^9},ExpressionUUID->"80f03e56-a361-4e55-a395-\
9f014cd0163e"]
}, Open ]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",
CellChangeTimes->{{3.535474601620364*^9,
3.5354746065343637`*^9}},ExpressionUUID->"c4f6478f-78e2-4454-9548-\
b59bf79ae530"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"senCompl", ",", "cosCompl", ",", "tanCompl"}], "}"}], "=",
RowBox[{"toRule", "/@",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], "}"}]}]}], ";"}]], "Input",
CellChangeTimes->{
3.535474643365964*^9, {3.535474704377564*^9, 3.5354747428159637`*^9}, {
3.535474818912764*^9,
3.535474844917964*^9}},ExpressionUUID->"fd5c067e-6d20-415e-8c12-\
778e54412e3f"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Angoli che differiscono per un angolo retto", "Subsection",ExpressionUUID->"3b88293d-8cbf-498d-9bda-59e879e87eb6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{", "\[Beta]", "}"}], ",",
RowBox[{
RowBox[{"\[Beta]", "=",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "+", "\[Alpha]"}]}], ";", "\n",
RowBox[{"pP", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",",
RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "}"}]}], ";",
RowBox[{"pQ", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], ";",
RowBox[{"pO", "=",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ";",
RowBox[{"pR", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "}"}]}], ";",
RowBox[{"pS", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",", "0"}], "}"}]}], ";", "\n",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Yellow", ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ", ",", "pP"}], "}"}], "]"}], ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS", ",", "pR"}], "}"}], "]"}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"Green", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".3", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Beta]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".2", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Alpha]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "Gray", ",",
RowBox[{"Circle", "[", "]"}]}], "}"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pP", ",", "pO", ",", "pR"}], "}"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pQ", ",", "pP"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pS", ",", "pR"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pO", ",",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pQ", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pP", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pS", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pR", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "}"}]}], "}"}],
"]"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]", "1.1"}], ",",
RowBox[{"ImageSize", "->", "400"}]}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"25", "Degree"}], ",",
RowBox[{"Style", "[",
RowBox[{"\"\<\[Alpha] \>\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
RowBox[{
RowBox[{"3", "/", "2"}], "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.535032227398358*^9, 3.535032272326358*^9}, {
3.535032323494358*^9, 3.5350323324799576`*^9}, {3.535032381619958*^9,
3.5350323852391577`*^9}, {3.535032474315158*^9, 3.5350324757191577`*^9}, {
3.5353908801197567`*^9, 3.5353908972953568`*^9}, {3.865931964954496*^9,
3.8659319774092846`*^9}},ExpressionUUID->"7003c1bc-fe98-483a-b061-\
f57c03da090c"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`\[Alpha]$$ = 25 Degree, Typeset`show$$ =
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`\[Alpha]$$], 25 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, Rational[3, 2] Pi}},
Typeset`size$$ = {288., {142., 146.}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 25 Degree},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Block[{$CellContext`\[Beta]}, $CellContext`\[Beta] =
Pi/2 + $CellContext`\[Alpha]$$; $CellContext`pP = {
Cos[$CellContext`\[Alpha]$$],
Sin[$CellContext`\[Alpha]$$]}; $CellContext`pQ = {
Cos[$CellContext`\[Alpha]$$], 0}; $CellContext`pO = {0,
0}; $CellContext`pR = {
Cos[$CellContext`\[Beta]],
Sin[$CellContext`\[Beta]]}; $CellContext`pS = {
Cos[$CellContext`\[Beta]], 0}; Show[
Graphics[{{Yellow,
Polygon[{$CellContext`pO, $CellContext`pQ, $CellContext`pP}],
Polygon[{$CellContext`pO, $CellContext`pS, $CellContext`pR}]}, {
Green,
Disk[$CellContext`pO, 0.3, {0, $CellContext`\[Beta]}]}, {Red,
Disk[$CellContext`pO, 0.2, {0, $CellContext`\[Alpha]$$}]}, {
Dashed, Gray,
Circle[]},
Line[{$CellContext`pP, $CellContext`pO, $CellContext`pR}], {
Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pQ}],
Arrow[{$CellContext`pQ, $CellContext`pP}]}, {Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pS}],
Arrow[{$CellContext`pS, $CellContext`pR}]}, {
Text["O", $CellContext`pO, {1, 1}],
Text["Q", $CellContext`pQ, {0, 1}],
Text["P", $CellContext`pP, {0, -1}],
Text["S", $CellContext`pS, {0, 1}],
Text["R", $CellContext`pR, {0, -1}]}}], Axes -> True,
Ticks -> {{-1, 0, 1}, {-1, 0, 1}}, PlotRange -> 1.1, ImageSize ->
400]], "Specifications" :> {{{$CellContext`\[Alpha]$$, 25 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, Rational[3, 2] Pi}},
"Options" :> {},
"DefaultOptions" :> {ControlPlacement -> Top, SaveDefinitions -> True}],
ImageSizeCache->{323., {175.93650390625, 180.06349609375}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
Initialization:>({$CellContext`pP = {
Cos[25 Degree],
Sin[25 Degree]}, $CellContext`pQ = {
Cos[25 Degree], 0}, $CellContext`pO = {0, 0}, $CellContext`pR = {
Sin[25 Degree],
Cos[25 Degree]}, $CellContext`pS = {
Sin[25 Degree], 0}}; Typeset`initDone$$ = True),
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.5020204471047564`*^9, 3.535031287139558*^9, 3.535032273387158*^9,
3.535032333462758*^9, 3.535032386143958*^9, {3.535032459432758*^9,
3.535032476561558*^9}, 3.535032551675558*^9, 3.535044461287354*^9,
3.535044844480154*^9, 3.535046159045354*^9, 3.5352075010963635`*^9,
3.5352190834413633`*^9, 3.5353908985121565`*^9, {3.5353911225437565`*^9,
3.5353911288773565`*^9}, 3.5353912227737565`*^9, 3.535462360875354*^9,
3.5354624380329533`*^9, 3.5354633625835533`*^9, 3.5354636921491537`*^9,
3.5354657758733535`*^9, 3.5354660644889536`*^9, 3.5354661122873535`*^9,
3.535474327153964*^9, 3.5898894021407433`*^9, 3.8659319783779545`*^9,
3.8659363688335857`*^9},ExpressionUUID->"cbc3f9b0-990f-41c4-8889-\
45d3d4153d30"]
}, {2}]],
Cell["", "NumberedFigure",
CellTags->"figura3",ExpressionUUID->"d6a92a4e-30e5-4a31-974a-1c00604395a6"],
Cell[CellGroupData[{
Cell[TextData[{
"Seno di un angolo che differisce di ",
Cell[BoxData[
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]],ExpressionUUID->
"834ba949-1472-49af-8f02-a44caac01db5"]
}], "Subsubsection",ExpressionUUID->"39616f15-8054-4a4e-b50f-1f2661b01494"],
Cell[TextData[{
"Angoli che differiscono per un angolo retto danno origine alla \
configurazione geometrica di ",
ButtonBox["fig. 3",
BaseStyle->"Hyperlink",
ButtonData:>"figura3"],
". Ancora \[EGrave] soddisfatta la congruenza di tipo geometrico ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox[
RowBox[{"\[EmptyUpTriangle]",
StyleBox["OQP",
FontSlant->"Italic"]}]], "\[TildeFullEqual]",
StyleBox[
RowBox[{"\[EmptyUpTriangle]",
StyleBox["OSR",
FontSlant->"Italic"]}]]}], TraditionalForm]],ExpressionUUID->
"c1a0e6eb-7ad2-4505-8df2-1ca79a497270"],
" mentre, osservando i versi delle componenti, risulta ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["SR",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["OQ",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"3106a9da-0899-4e64-a0bf-3e4849bb2d38"],
" e ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["OS",
FontSlant->"Italic"], "=",
RowBox[{"-",
StyleBox["QP",
FontSlant->"Italic"]}]}], TraditionalForm]],ExpressionUUID->
"37354d45-e69e-4ba7-8124-cae4d90a3337"],
". Ne segue "
}], "Text",
CellTags->
"osservazione1",ExpressionUUID->"c53d2e60-71d7-440f-92f0-8dcc61a3d6af"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OR"}]}]], "Input",ExpressionUUID->"46746adc-2af9-413c-\
be71-52e994de9067"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OR"]}]], "Output",
CellChangeTimes->{
3.502020447182756*^9, 3.535031287155158*^9, 3.535044461427754*^9,
3.535044844667354*^9, 3.535046159060954*^9, 3.5352075161815634`*^9,
3.535219083566163*^9, 3.535391222914157*^9, 3.5353913191193566`*^9,
3.535462361031354*^9, 3.5354624381421537`*^9, 3.535463362770754*^9, {
3.5354657760605536`*^9, 3.5354657827997537`*^9}, 3.5354660646761537`*^9,
3.5354661124277534`*^9, 3.535474327263164*^9, 3.5898894021407433`*^9,
3.8659319861130857`*^9,
3.865936368927329*^9},ExpressionUUID->"e14cae08-42c8-48ab-af31-\
99491f7fddef"]
}, {2}]],
Cell["che si riscrive", "Text",ExpressionUUID->"cd4f7913-a6d2-4787-8a5b-2d632c81d7bf"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]", "OQ"}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"03c9c39a-4d4e-415d-80a8-4d4e8b5697b4"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OQ", "OP"]}]], "Output",
CellChangeTimes->{
3.502020447213956*^9, 3.535031287170758*^9, 3.535044461474554*^9,
3.5350448447141542`*^9, 3.535046159123354*^9, 3.5352075162439637`*^9,
3.535219083612963*^9, 3.5353912229609566`*^9, 3.5353913191817565`*^9,
3.5354623610781536`*^9, 3.5354624381733537`*^9, 3.5354633628175535`*^9, {
3.5354657761073537`*^9, 3.5354657828621535`*^9}, 3.535466064722954*^9,
3.5354661124745536`*^9, 3.535474327309964*^9, 3.589889402156343*^9,
3.8659319861443343`*^9,
3.865936368927329*^9},ExpressionUUID->"ab5dac8a-bdcc-4a44-9722-\
fb53152af527"]
}, {2}]],
Cell["e, in base alla definizione, risulta", "Text",ExpressionUUID->"90766a76-728b-4489-aaa2-264d63f537c4"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"c2d2047b-882a-4172-87a8-bae894d5efd4"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]], "Output",
CellChangeTimes->{
3.5020204472451563`*^9, 3.535031287170758*^9, 3.535044461536954*^9,
3.535044844760954*^9, 3.535046159170154*^9, 3.535207516290764*^9,
3.5352190836597633`*^9, 3.5353912230077567`*^9, 3.5353913192285566`*^9,
3.5354623611249533`*^9, 3.5354624382513533`*^9, 3.5354633628643537`*^9, {
3.535465776154154*^9, 3.5354657829089537`*^9}, 3.5354660647853537`*^9,
3.5354661125213537`*^9, 3.535474327356764*^9, 3.589889402156343*^9,
3.8659319861443343`*^9, 3.865935992012738*^9,
3.865936368958577*^9},ExpressionUUID->"fbb77ba2-7528-49b4-9644-\
331324e62da3"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Coseno di un angolo che differisce di ",
Cell[BoxData[
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]],ExpressionUUID->
"4be6a21c-55e0-4581-b66d-1f23ab53501d"]
}], "Subsubsection",ExpressionUUID->"4f9e7c78-4dd6-4668-a4e5-232d224fc3af"],
Cell["Dalla definizione", "Text",ExpressionUUID->"68a68681-86fe-4b59-af4e-a8d1c4914938"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"OS", "/", "OR"}]}]], "Input",ExpressionUUID->"490e61c2-d7bd-407d-\
9384-dbc8bc8df7bf"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OS", "OR"]}]], "Output",
CellChangeTimes->{
3.5020204473231564`*^9, 3.5350312872019577`*^9, 3.535044461755354*^9,
3.535044844854554*^9, 3.535046159232554*^9, 3.5352075284587636`*^9,
3.535219083753363*^9, 3.535391223054557*^9, 3.5353913811735563`*^9,
3.535462361171754*^9, 3.5354624383137536`*^9, 3.5354633629267535`*^9, {
3.5354657762165537`*^9, 3.5354657922533536`*^9}, 3.5354660648477535`*^9,
3.5354661125837536`*^9, 3.535474327434764*^9, 3.589889402156343*^9,
3.8659319894735394`*^9,
3.865936368958577*^9},ExpressionUUID->"5b56b4e3-417e-4552-9cc3-\
07faee5e58e3"]
}, {2}]],
Cell[TextData[{
"ma per quanto osservato ",
ButtonBox["sopra",
BaseStyle->"Hyperlink",
ButtonData:>"osservazione1"],
" nel caso del seno diviene"
}], "Text",ExpressionUUID->"ef9875df-72f9-4222-9e50-b4c718b26264"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"OS", "\[Rule]",
RowBox[{"-", "QP"}]}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"3c18924c-b06e-47ac-b4e1-742ae5191f31"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["QP", "OP"]}]}]], "Output",
CellChangeTimes->{
3.502020447354356*^9, 3.535031287217558*^9, 3.535044461802154*^9,
3.535044844901354*^9, 3.535046159279354*^9, 3.5352075285055637`*^9,
3.5352190838001633`*^9, 3.5353912231013565`*^9, 3.5353913812359567`*^9,
3.5354623612185535`*^9, 3.5354624383449535`*^9, 3.5354633629579535`*^9, {
3.5354657762633533`*^9, 3.535465792315754*^9}, 3.5354660648945537`*^9,
3.5354661126617537`*^9, 3.535474327481564*^9, 3.589889402156343*^9,
3.865931989504775*^9,
3.8659363689898243`*^9},ExpressionUUID->"5d62e1cc-506c-40b5-b0ba-\
4d446838f925"]
}, {2}]],
Cell["per cui", "Text",ExpressionUUID->"360766e2-3f3b-4c7c-94c1-fef8c8a03b43"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"1e1a6bb6-77d3-4d39-8b42-a66a4eed4dcd"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{
3.502020447385556*^9, 3.535031287233158*^9, 3.535044461864554*^9,
3.535044844948154*^9, 3.535046159310554*^9, 3.5352075285523634`*^9,
3.535219083831363*^9, 3.5353912231481566`*^9, 3.535391381282757*^9,
3.5354623612809534`*^9, 3.5354624383917537`*^9, 3.5354633630047536`*^9, {
3.5354657763101535`*^9, 3.5354657923625536`*^9}, 3.535466064941354*^9,
3.5354661127241535`*^9, 3.535474327528364*^9, 3.5898894021719427`*^9,
3.865931989504775*^9, 3.8659341897863827`*^9,
3.8659363689898243`*^9},ExpressionUUID->"637affee-a27e-4a72-b2cc-\
06b8df5bdfef"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Tangente di un angolo che differisce di ",
Cell[BoxData[
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]],ExpressionUUID->
"cdfb2509-3615-4c0c-9bb9-93a3819a5e0c"]
}], "Subsubsection",ExpressionUUID->"831a2c73-6204-49a3-b7d0-47e15feab11d"],
Cell["Con le medesime osservazioni e iniziando dalla definizione ", "Text",ExpressionUUID->"3b8d2361-bee9-46b2-86e2-cdb27a5572e0"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OS"}]}]], "Input",ExpressionUUID->"8f17b17f-774b-461e-\
81ae-ffbcbc2ddbc0"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OS"]}]], "Output",
CellChangeTimes->{
3.5020204474635563`*^9, 3.5350312872643576`*^9, 3.535044461989354*^9,
3.535044845057354*^9, 3.535046159341754*^9, 3.5352075364927635`*^9,
3.535219083971763*^9, 3.5353912231793566`*^9, 3.5353914263823566`*^9,
3.5354623614213533`*^9, 3.5354624384853535`*^9, 3.5354633630983534`*^9, {
3.5354657764037533`*^9, 3.5354658167141533`*^9}, 3.5354660650505533`*^9,
3.535466112817754*^9, 3.535474327653164*^9, 3.5898894021719427`*^9,
3.865931995474389*^9,
3.8659363690210724`*^9},ExpressionUUID->"6414f19b-2cb2-462c-b153-\
cd71349b6513"]
}, {2}]],
Cell["risulta che l'espressione precedente si modifica in", "Text",ExpressionUUID->"455e9859-61ed-43b0-a8c7-929cd5a018c7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]", "OQ"}], ",",
RowBox[{"OS", "\[Rule]",
RowBox[{"-", "QP"}]}]}], "}"}]}]], "Input",ExpressionUUID->"1173534a-\
d759-41f9-aee0-5ed835f00ca0"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["OQ", "QP"]}]}]], "Output",
CellChangeTimes->{
3.502020447510356*^9, 3.5350312872643576`*^9, 3.535044462051754*^9,
3.535044845104154*^9, 3.535046159357354*^9, 3.5352075365551634`*^9,
3.5352190840185633`*^9, 3.5353912232261567`*^9, 3.5353914264603567`*^9,
3.5354623614837537`*^9, 3.5354624385321536`*^9, 3.5354633631451535`*^9, {
3.535465776450554*^9, 3.5354658167765536`*^9}, 3.535466065097354*^9,
3.5354661128645535`*^9, 3.535474327699964*^9, 3.5898894021719427`*^9,
3.865931995552509*^9,
3.8659363690210724`*^9},ExpressionUUID->"5cb97555-11de-47d0-a45e-\
9365f4c8e8d1"]
}, {2}]],
Cell["da cui, moltiplicando per il reciproco del secondo membro", "Text",ExpressionUUID->"758c000b-dcb7-45b9-ad6f-fe24d46770f9"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", " ",
RowBox[{"(",
RowBox[{"QP", "/", "OQ"}], ")"}]}]], "Input",ExpressionUUID->"52643f41-\
7a9f-414a-9e4b-12ef660426dc"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"QP", " ",
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}]}], "OQ"],
"\[Equal]",
RowBox[{"-", "1"}]}]], "Output",
CellChangeTimes->{
3.502020447541556*^9, 3.535031287279958*^9, 3.5350444620985537`*^9,
3.5350448451509542`*^9, 3.535046159372954*^9, 3.5352075366019635`*^9,
3.535219084065363*^9, 3.535391223272957*^9, 3.5353914264915566`*^9,
3.5354623615461535`*^9, 3.5354624385633535`*^9, 3.5354633631763535`*^9, {
3.5354657764973536`*^9, 3.535465816823354*^9}, 3.535466065159754*^9,
3.5354661129113536`*^9, 3.535474327746764*^9, 3.5898894021719427`*^9,
3.8659319955681324`*^9,
3.8659363690523205`*^9},ExpressionUUID->"1bc1b41f-7a66-41d3-b1d1-\
8983bbefce3f"]
}, {2}]],
Cell[TextData[{
"si ottiene un'espressione dove appare la definizione di ",
Cell[BoxData[
FormBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"9b99ea4b-16a9-40d4-b823-1e4ae4d8b0d8"]
}], "Text",ExpressionUUID->"8273f1ae-b009-4a85-b831-2619e0d53889"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"79124315-8bad-4324-8272-1471ba50946f"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}]}], "\[Equal]",
RowBox[{"-", "1"}]}]], "Output",
CellChangeTimes->{
3.502020447572756*^9, 3.535031287295558*^9, 3.5350444621453543`*^9,
3.535044845197754*^9, 3.535046159388554*^9, 3.5352075366487637`*^9,
3.5352190841121635`*^9, 3.5353912233197565`*^9, 3.535391426538357*^9,
3.535462361608554*^9, 3.5354624386101537`*^9, 3.5354633632231536`*^9, {
3.5354657765441537`*^9, 3.5354658168701534`*^9}, 3.5354660652065535`*^9,
3.5354661129581537`*^9, 3.535474327809164*^9, 3.589889402187543*^9,
3.8659319955837564`*^9,
3.8659363690835686`*^9},ExpressionUUID->"e77424a6-0f0f-43bf-9f92-\
9a88a539fb6a"]
}, {2}]],
Cell["Dividendo per tale funzione si ha", "Text",ExpressionUUID->"971c6e02-76d7-4f4b-8034-1560d3737f29"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]], "Input",ExpressionUUID->"48e4b0a3-\
ce3a-42d8-bc86-f0ce651974cc"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["1",
RowBox[{"tan", "[", "\[Alpha]", "]"}]]}]}]], "Output",
CellChangeTimes->{
3.502020447603956*^9, 3.5350312873111577`*^9, 3.535044462207754*^9,
3.535044845244554*^9, 3.535046159404154*^9, 3.5352075366799636`*^9,
3.535219084143363*^9, 3.5353912233665566`*^9, 3.5353914266007566`*^9,
3.5354623616709538`*^9, 3.535462438656954*^9, 3.5354633632699537`*^9, {
3.535465776590954*^9, 3.5354658169325533`*^9}, 3.5354660652533536`*^9,
3.5354661130049534`*^9, 3.5354743278559637`*^9, 3.589889402187543*^9,
3.86593199559938*^9, 3.8659342207146683`*^9,
3.8659363690991917`*^9},ExpressionUUID->"4c3c6e5f-08b5-4795-8001-\
50cd418a453c"]
}, {2}]],
Cell["che si pu\[OGrave] riscrivere anche come", "Text",ExpressionUUID->"c338efa1-55d4-44b5-8b43-06e17a8bfb17"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "id3"}], "/.", "id2"}]], "Input",ExpressionUUID->\
"bfb13ab6-415f-4e35-8ede-90b7ec7af942"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}]], "Output",
CellChangeTimes->{
3.5020204476351557`*^9, 3.535031287326758*^9, 3.535044462254554*^9,
3.535044845291354*^9, 3.535046159419754*^9, 3.5352075367267637`*^9,
3.535219084190163*^9, 3.535391223413357*^9, 3.5353914266475563`*^9,
3.5354623617333536`*^9, 3.5354624387037535`*^9, 3.5354633633167534`*^9, {
3.5354657766377535`*^9, 3.535465816979354*^9}, 3.535466065315754*^9,
3.5354661130517535`*^9, 3.5354743279027643`*^9, 3.589889402187543*^9,
3.86593199559938*^9, 3.865934223995675*^9,
3.8659363691304398`*^9},ExpressionUUID->"7bf5d8a1-63ff-4130-a341-\
9630b8d2cea9"]
}, {2}]],
Cell["Riassumiamo in riquadro quanto ottenuto", "Text",ExpressionUUID->"fd1145ff-6bea-4eb6-8a57-baded8a07c52"],
Cell[BoxData[{
FormBox[
RowBox[{
"Angoli", " ", "angolo", " ", "che", " ", "differiscono", " ", "per", " ",
"retto", " ", "un"}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "+",
FractionBox["\[Pi]", "2"]}], ")"}], "=",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+",
FractionBox["\[Pi]", "2"]}], ")"}], "=",
RowBox[{"-",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Alpha]", "+",
FractionBox["\[Pi]", "2"]}], ")"}], "=",
RowBox[{
RowBox[{"-",
RowBox[{"cot", "(", "\[Alpha]", ")"}]}], "=",
RowBox[{"-",
FractionBox["1",
RowBox[{"tan", "(", "\[Alpha]", ")"}]]}]}]}],
TraditionalForm]}], "Output",
CellChangeTimes->{
3.589889402203143*^9},ExpressionUUID->"1c106866-f073-4b08-8d54-\
468baaf81485"]
}, Open ]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",
CellChangeTimes->{{3.535475085360764*^9,
3.535475089525964*^9}},ExpressionUUID->"a1bd0859-646a-4714-9aac-\
ab77a05722e5"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2"}], "}"}], "=",
RowBox[{"toRule", "/@",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}]}], "}"}]}]}],
";"}]], "Input",
CellChangeTimes->{
3.535391244738557*^9, 3.535475004131564*^9, {3.535475039200364*^9,
3.535475074409564*^9}, {3.5354751252187643`*^9,
3.535475142721964*^9}},ExpressionUUID->"70809373-6707-4d98-aad3-\
646ba4f47e7a"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Angoli supplementari", "Subsection",ExpressionUUID->"d3c19295-eb9b-4561-a476-6c171f5e2ba6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{", "\[Beta]", "}"}], ",",
RowBox[{
RowBox[{"\[Beta]", "=",
RowBox[{"\[Pi]", "-", "\[Alpha]"}]}], ";", "\n",
RowBox[{"pP", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",",
RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "}"}]}], ";",
RowBox[{"pQ", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], ";",
RowBox[{"pO", "=",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ";",
RowBox[{"pR", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "}"}]}], ";",
RowBox[{"pS", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",", "0"}], "}"}]}], ";", "\n",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Yellow", ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ", ",", "pP"}], "}"}], "]"}], ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS", ",", "pR"}], "}"}], "]"}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"Green", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".3", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Beta]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".2", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Alpha]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "Gray", ",",
RowBox[{"Circle", "[", "]"}]}], "}"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pP", ",", "pO", ",", "pR"}], "}"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pQ", ",", "pP"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pS", ",", "pR"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pO", ",",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pQ", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pP", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pS", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pR", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "}"}]}], "}"}],
"]"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]", "1.1"}], ",",
RowBox[{"ImageSize", "->", "400"}]}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"30", " ", "Degree"}], ",",
RowBox[{"Style", "[",
RowBox[{"\"\<\[Alpha] \>\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.535032574654358*^9, 3.535032646788758*^9}, {
3.535032723805958*^9, 3.5350327251475577`*^9}, {3.5353918594383564`*^9,
3.5353918728231564`*^9}, {3.865932004459445*^9,
3.865932017307266*^9}},ExpressionUUID->"82de766f-5efc-4fdc-9deb-\
9e1eba371eda"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`\[Alpha]$$ = 30 Degree, Typeset`show$$ =
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`\[Alpha]$$], 30 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
Typeset`size$$ = {288., {142., 146.}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 30 Degree},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Block[{$CellContext`\[Beta]}, $CellContext`\[Beta] =
Pi - $CellContext`\[Alpha]$$; $CellContext`pP = {
Cos[$CellContext`\[Alpha]$$],
Sin[$CellContext`\[Alpha]$$]}; $CellContext`pQ = {
Cos[$CellContext`\[Alpha]$$], 0}; $CellContext`pO = {0,
0}; $CellContext`pR = {
Cos[$CellContext`\[Beta]],
Sin[$CellContext`\[Beta]]}; $CellContext`pS = {
Cos[$CellContext`\[Beta]], 0}; Show[
Graphics[{{Yellow,
Polygon[{$CellContext`pO, $CellContext`pQ, $CellContext`pP}],
Polygon[{$CellContext`pO, $CellContext`pS, $CellContext`pR}]}, {
Green,
Disk[$CellContext`pO, 0.3, {0, $CellContext`\[Beta]}]}, {Red,
Disk[$CellContext`pO, 0.2, {0, $CellContext`\[Alpha]$$}]}, {
Dashed, Gray,
Circle[]},
Line[{$CellContext`pP, $CellContext`pO, $CellContext`pR}], {
Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pQ}],
Arrow[{$CellContext`pQ, $CellContext`pP}]}, {Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pS}],
Arrow[{$CellContext`pS, $CellContext`pR}]}, {
Text["O", $CellContext`pO, {1, 1}],
Text["Q", $CellContext`pQ, {0, 1}],
Text["P", $CellContext`pP, {0, -1}],
Text["S", $CellContext`pS, {0, 1}],
Text["R", $CellContext`pR, {0, -1}]}}], Axes -> True,
Ticks -> {{-1, 0, 1}, {-1, 0, 1}}, PlotRange -> 1.1, ImageSize ->
400]], "Specifications" :> {{{$CellContext`\[Alpha]$$, 30 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
"Options" :> {},
"DefaultOptions" :> {ControlPlacement -> Top, SaveDefinitions -> True}],
ImageSizeCache->{323., {175.93650390625, 180.06349609375}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
Initialization:>({$CellContext`pP = {
Cos[25 Degree],
Sin[25 Degree]}, $CellContext`pQ = {
Cos[25 Degree], 0}, $CellContext`pO = {0,
0}, $CellContext`pR = {-Sin[25 Degree],
Cos[25 Degree]}, $CellContext`pS = {-Sin[25 Degree], 0}};
Typeset`initDone$$ = True),
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.502020447744356*^9, 3.5350312873423576`*^9, {3.535032631422758*^9,
3.535032647116358*^9}, {3.535032725865158*^9, 3.5350327465039577`*^9},
3.535044462379354*^9, 3.535044845384954*^9, 3.535046159497754*^9,
3.535207549393964*^9, 3.535219084283763*^9, 3.5353918738995566`*^9,
3.5353919054271564`*^9, 3.535462361826954*^9, 3.5354624387973537`*^9,
3.5354633634103537`*^9, 3.5354637053935537`*^9, 3.5354658315029535`*^9,
3.5354660654249535`*^9, 3.5354661131453533`*^9, 3.535474328011964*^9,
3.589889402265543*^9, 3.8659320191821175`*^9,
3.8659363691616874`*^9},ExpressionUUID->"0ae2e29a-3bd1-40ed-a4d1-\
7f7b8c699f8e"]
}, {2}]],
Cell["", "NumberedFigure",
CellTags->"figura4",ExpressionUUID->"d904b775-c22f-4878-af3b-52ea45115bfa"],
Cell[CellGroupData[{
Cell["Seno di un angolo supplementare", "Subsubsection",ExpressionUUID->"b3e68409-d5ad-43b4-8fc4-5aae56ebed05"],
Cell[TextData[{
"Ancora una volta l'espressione delle funzioni goniometriche di un angolo \
associato ad ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"443522c9-9f6b-473e-b0a6-3cdbaf30d6a4"],
", in tal caso l'angolo supplementare, si basa sull'osservazione della \
congruenza dei triangoli individuati dai lati terminali dei due angoli, nel \
caso in esame, ",
Cell[BoxData[
FormBox[
StyleBox[
RowBox[{"\[EmptyUpTriangle]",
StyleBox["OSR",
FontSlant->"Italic"]}]], TraditionalForm]],ExpressionUUID->
"d5ac307a-a322-4896-a6e6-edbb80a12516"],
" e ",
Cell[BoxData[
FormBox[
StyleBox[
RowBox[{"\[EmptyUpTriangle]",
StyleBox["OQP",
FontSlant->"Italic"]}]], TraditionalForm]],ExpressionUUID->
"31b23c0a-01ab-4562-9f46-288425464a75"],
" (",
ButtonBox["fig. 4",
BaseStyle->"Hyperlink",
ButtonData:>"figura4"],
"). Valgono pertanto le relazioni tra componenti ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["OS",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
RowBox[{
StyleBox["-",
FontSlant->"Plain"],
StyleBox["OQ",
FontSlant->"Italic"]}]}], TraditionalForm]],ExpressionUUID->
"f64bf2a6-f1d7-4970-99e8-1401a22c11a8"],
" e ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["SR",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["QP",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"68c8c0b3-0c2b-4a49-b7f2-7d97e8ca69be"],
" e di conseguenza discende"
}], "Text",
CellTags->
"osservazione2",ExpressionUUID->"5f2ba1cb-992f-4578-877e-30901a678d9d"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OR"}]}]], "Input",ExpressionUUID->"64b03c05-24a6-48c4-\
b1cc-bac55c05d935"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OR"]}]], "Output",
CellChangeTimes->{3.502020447791156*^9, 3.535031287357958*^9,
3.535044462519754*^9, 3.535044845525354*^9, 3.5350461595133543`*^9,
3.5352075610315638`*^9, 3.535219084408563*^9, 3.535462361967354*^9,
3.5354624389065533`*^9, 3.5354633635351534`*^9, 3.5354658317213535`*^9,
3.5354660655653534`*^9, 3.5354661132857533`*^9, 3.535474328136764*^9,
3.589889402265543*^9, 3.8659320264485674`*^9,
3.865936369255433*^9},ExpressionUUID->"00f9e0b5-88e7-42e5-9f6e-\
146dfdce2f9a"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]", "QP"}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"6096096a-374d-4aa9-88bb-ca3c4bacfb98"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["QP", "OP"]}]], "Output",
CellChangeTimes->{3.502020447822356*^9, 3.535031287373558*^9,
3.5350444625821543`*^9, 3.535044845572154*^9, 3.535046159528954*^9,
3.5352075610939636`*^9, 3.5352190844553633`*^9, 3.5354623620765533`*^9,
3.5354624389377537`*^9, 3.535463363566354*^9, 3.5354658317681537`*^9,
3.5354660656121535`*^9, 3.535466113332554*^9, 3.535474328183564*^9,
3.589889402265543*^9, 3.8659320264798098`*^9,
3.8659363692710547`*^9},ExpressionUUID->"3ddc60eb-6425-4206-8173-\
5ff5aa8d4c12"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"ec79561d-0a48-4d20-97e6-530d80cc544f"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]], "Output",
CellChangeTimes->{3.5020204478535557`*^9, 3.535031287389158*^9,
3.535044462628954*^9, 3.5350448456657543`*^9, 3.5350461595445538`*^9,
3.5352075611407633`*^9, 3.535219084502163*^9, 3.5354623621233535`*^9,
3.5354624389845533`*^9, 3.5354633636287537`*^9, 3.5354658318305535`*^9,
3.5354660657213535`*^9, 3.5354661133793535`*^9, 3.535474328230364*^9,
3.589889402281143*^9, 3.8659320264798098`*^9, 3.86593427910994*^9,
3.8659363693023033`*^9},ExpressionUUID->"f0233803-c04a-4fbb-9dfa-\
f79c699a9854"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["Coseno di un angolo supplementare", "Subsubsection",ExpressionUUID->"9088bbde-1597-4e9b-a768-e70909c3faad"],
Cell["Nello stesso modo", "Text",ExpressionUUID->"bd3a01dd-a3c5-44c3-ad1f-60987e4cb565"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"OS", "/", "OR"}]}]], "Input",ExpressionUUID->"155bfacc-be62-4152-\
a90d-93e16fe6cb58"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OS", "OR"]}]], "Output",
CellChangeTimes->{3.5020204479315557`*^9, 3.5350312874047575`*^9,
3.535044462847354*^9, 3.535044845774954*^9, 3.535046159575754*^9,
3.5352075683011637`*^9, 3.5352190845489635`*^9, 3.5354623622325535`*^9,
3.5354624390469537`*^9, 3.5354633636755533`*^9, 3.535465831892954*^9,
3.5354660657837534`*^9, 3.5354661134417534`*^9, 3.5354743282927637`*^9,
3.589889402281143*^9, 3.865932029559097*^9,
3.865936369317927*^9},ExpressionUUID->"3a6468b6-0bec-4cd2-8585-\
1ea8d44b29e0"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"OS", "\[Rule]",
RowBox[{"-", "OQ"}]}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"b1fb0572-8577-4dbe-b9c7-00d0b32e58f2"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["OQ", "OP"]}]}]], "Output",
CellChangeTimes->{3.502020447962756*^9, 3.5350312874203577`*^9,
3.535044462894154*^9, 3.535044845821754*^9, 3.535046159591354*^9,
3.5352075683635635`*^9, 3.535219084595763*^9, 3.5354623622793536`*^9,
3.535462439093754*^9, 3.5354633638003535`*^9, 3.5354658319397535`*^9,
3.5354660658305535`*^9, 3.5354661134885535`*^9, 3.5354743283395643`*^9,
3.589889402281143*^9, 3.8659320295903187`*^9,
3.8659363693491745`*^9},ExpressionUUID->"b2ed67f4-1f12-4f27-aed8-\
c00d7179fdf3"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"13d3b2ad-d0b9-4f3c-a30d-805c052fd10e"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020447993956*^9, 3.535031287435958*^9,
3.535044462940954*^9, 3.535044845868554*^9, 3.535046159606954*^9,
3.5352075684103637`*^9, 3.535219084642563*^9, 3.5354623623417535`*^9,
3.5354624391249533`*^9, 3.5354633638471537`*^9, 3.5354658319865537`*^9,
3.5354660658773537`*^9, 3.5354661135353537`*^9, 3.535474328386364*^9,
3.589889402281143*^9, 3.8659320295903187`*^9, 3.8659342740455427`*^9,
3.8659363693647985`*^9},ExpressionUUID->"4b343691-887f-4af3-a918-\
320738d88c7d"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["Tangente di un angolo supplementare", "Subsubsection",ExpressionUUID->"06feaec2-b6f1-4c8e-8dc1-c359aad243a8"],
Cell["Infine, la definizione di tangente implica", "Text",ExpressionUUID->"f152de85-0810-4691-aaa0-6f75188f9695"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OS"}]}]], "Input",ExpressionUUID->"012a8a5a-bcdd-4748-\
9ab5-bb92711fb02c"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OS"]}]], "Output",
CellChangeTimes->{3.5020204480719557`*^9, 3.535031287467158*^9,
3.535044463065754*^9, 3.535044845977754*^9, 3.535046159638154*^9,
3.5352075760699635`*^9, 3.535219084720563*^9, 3.5353919709627566`*^9,
3.5354623624509535`*^9, 3.5354624392185535`*^9, 3.5354633639251537`*^9,
3.5354658320801535`*^9, 3.5354660659865537`*^9, 3.535466113628954*^9,
3.535474328448764*^9, 3.589889402296743*^9, 3.8659320329182267`*^9,
3.8659363693960457`*^9},ExpressionUUID->"a7741535-2954-4c6f-be9f-\
18abfe16be0b"]
}, {2}]],
Cell[TextData[{
"e le osservazioni fatte ",
ButtonBox["inizialmente",
BaseStyle->"Hyperlink",
ButtonData:>"osservazione2"],
" permettono di riscriverla come"
}], "Text",ExpressionUUID->"2c875c03-9c4c-460a-af16-59a8b023ad41"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]", "QP"}], ",",
RowBox[{"OS", "\[Rule]",
RowBox[{"-", "OQ"}]}]}], "}"}]}]], "Input",ExpressionUUID->"6c1e8888-\
fcc8-423e-b9b7-5797e77b451e"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["QP", "OQ"]}]}]], "Output",
CellChangeTimes->{3.502020448103156*^9, 3.535031287467158*^9,
3.535044463112554*^9, 3.5350448460245543`*^9, 3.535046159653754*^9,
3.5352075761635637`*^9, 3.5352190847673635`*^9, 3.5353919710251565`*^9,
3.5354623624977536`*^9, 3.5354624392965536`*^9, 3.5354633639719534`*^9,
3.5354658321425533`*^9, 3.535466066033354*^9, 3.5354661137225533`*^9,
3.5354743285111637`*^9, 3.589889402296743*^9, 3.865932032949458*^9,
3.8659363694116697`*^9},ExpressionUUID->"b49223e3-02ea-4274-8f00-\
3c00b447005f"]
}, {2}]],
Cell["da cui", "Text",ExpressionUUID->"9bcea25e-e8e7-4c48-9a92-d869633193a0"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"c97fb6ac-7781-4fd3-9061-005001ec39dd"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020448134356*^9, 3.5350312874827576`*^9,
3.535044463174954*^9, 3.535044846071354*^9, 3.535046159669354*^9,
3.5352075762103634`*^9, 3.535219084814163*^9, 3.5353919710563564`*^9,
3.5354623625289536`*^9, 3.5354624393277535`*^9, 3.5354633640187535`*^9,
3.535465832189354*^9, 3.5354660660801535`*^9, 3.535466113769354*^9,
3.5354743285579643`*^9, 3.589889402296743*^9, 3.865932032949458*^9,
3.865934268575901*^9,
3.8659363694429245`*^9},ExpressionUUID->"c711666d-4d21-4885-87eb-\
13ebdf39fe29"]
}, {2}]],
Cell["Abbiamo dimostrato quindi le ulteriori tre relazioni", "Text",ExpressionUUID->"812b217c-eb53-42b3-a70d-40704b731c2f"],
Cell[BoxData[{
FormBox[
RowBox[{"Angoli", " ", "supplementari"}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], ")"}], "=",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"tan", "(", "\[Alpha]", ")"}]}]}], TraditionalForm]}], "Output",
CellChangeTimes->{
3.5898894023123426`*^9},ExpressionUUID->"c85a6c5c-c308-403c-ab07-\
602f1c318235"]
}, Open ]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",
CellChangeTimes->{{3.5353919198727565`*^9, 3.5353919218539567`*^9}, {
3.535475245557164*^9,
3.535475250424364*^9}},ExpressionUUID->"3c269f61-57e5-4371-ad0e-\
bf88a07c95f9"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"senSuppl", ",", "cosSuppl", ",", "tanSuppl"}], "}"}], "=",
RowBox[{"toRule", "/@",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}]}], "}"}]}]}],
";"}]], "Input",
CellChangeTimes->{
3.5351290735169544`*^9, 3.535475175138764*^9, {3.535475259253964*^9,
3.535475326599164*^9}},ExpressionUUID->"90113cf4-4d79-46dc-a970-\
cb15bbb018ee"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Angoli che differiscono di \[Pi]", "Subsection",ExpressionUUID->"c7b423c7-acf1-41a0-b721-206ed8ad7800"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{", "\[Beta]", "}"}], ",",
RowBox[{
RowBox[{"\[Beta]", "=",
RowBox[{"\[Pi]", "+", "\[Alpha]"}]}], ";", "\n",
RowBox[{"pP", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",",
RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "}"}]}], ";",
RowBox[{"pQ", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], ";",
RowBox[{"pO", "=",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ";",
RowBox[{"pR", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "}"}]}], ";",
RowBox[{"pS", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",", "0"}], "}"}]}], ";", "\n",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Yellow", ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ", ",", "pP"}], "}"}], "]"}], ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS", ",", "pR"}], "}"}], "]"}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"Green", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".3", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Beta]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".2", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Alpha]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "Gray", ",",
RowBox[{"Circle", "[", "]"}]}], "}"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pP", ",", "pO", ",", "pR"}], "}"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pQ", ",", "pP"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pS", ",", "pR"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pO", ",",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pQ", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pP", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pS", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pR", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "}"}]}], "}"}],
"]"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]", "1.1"}], ",",
RowBox[{"ImageSize", "->", "400"}]}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"30", " ", "Degree"}], ",",
RowBox[{"Style", "[",
RowBox[{"\"\<\[Alpha] \>\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.535032774381158*^9, 3.5350327898563576`*^9}, {
3.535032848559158*^9, 3.535032850509158*^9}, {3.535391983099557*^9,
3.5353919934111567`*^9}, {3.8659320424826307`*^9,
3.8659320570310936`*^9}},ExpressionUUID->"9a7cf932-ff2a-4975-841c-\
e5b2b0800c94"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`\[Alpha]$$ = 30 Degree, Typeset`show$$ =
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`\[Alpha]$$], 30 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
Typeset`size$$ = {288., {142., 146.}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 30 Degree},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Block[{$CellContext`\[Beta]}, $CellContext`\[Beta] =
Pi + $CellContext`\[Alpha]$$; $CellContext`pP = {
Cos[$CellContext`\[Alpha]$$],
Sin[$CellContext`\[Alpha]$$]}; $CellContext`pQ = {
Cos[$CellContext`\[Alpha]$$], 0}; $CellContext`pO = {0,
0}; $CellContext`pR = {
Cos[$CellContext`\[Beta]],
Sin[$CellContext`\[Beta]]}; $CellContext`pS = {
Cos[$CellContext`\[Beta]], 0}; Show[
Graphics[{{Yellow,
Polygon[{$CellContext`pO, $CellContext`pQ, $CellContext`pP}],
Polygon[{$CellContext`pO, $CellContext`pS, $CellContext`pR}]}, {
Green,
Disk[$CellContext`pO, 0.3, {0, $CellContext`\[Beta]}]}, {Red,
Disk[$CellContext`pO, 0.2, {0, $CellContext`\[Alpha]$$}]}, {
Dashed, Gray,
Circle[]},
Line[{$CellContext`pP, $CellContext`pO, $CellContext`pR}], {
Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pQ}],
Arrow[{$CellContext`pQ, $CellContext`pP}]}, {Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pS}],
Arrow[{$CellContext`pS, $CellContext`pR}]}, {
Text["O", $CellContext`pO, {1, 1}],
Text["Q", $CellContext`pQ, {0, 1}],
Text["P", $CellContext`pP, {0, -1}],
Text["S", $CellContext`pS, {0, -1}],
Text["R", $CellContext`pR, {0, 1}]}}], AspectRatio -> Automatic,
Axes -> True, Ticks -> {{-1, 0, 1}, {-1, 0, 1}}, PlotRange -> 1.1,
ImageSize -> 400]],
"Specifications" :> {{{$CellContext`\[Alpha]$$, 30 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
"Options" :> {},
"DefaultOptions" :> {ControlPlacement -> Top, SaveDefinitions -> True}],
ImageSizeCache->{323., {175.93650390625, 180.06349609375}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
Initialization:>({$CellContext`pP = {Sqrt[3]/2, 1/2}, $CellContext`pQ = {
Sqrt[3]/2, 0}, $CellContext`pO = {0,
0}, $CellContext`pR = {((-1)/2) Sqrt[3], 1/
2}, $CellContext`pS = {((-1)/2) Sqrt[3], 0}};
Typeset`initDone$$ = True),
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.502020448243556*^9, 3.535031287513958*^9, 3.535032792898358*^9,
3.535032851835158*^9, 3.5350444632685537`*^9, 3.535044846164954*^9,
3.5350461597629538`*^9, 3.5352075815767636`*^9, 3.535219084954563*^9, {
3.5353919943471565`*^9, 3.5353920042531567`*^9}, 3.5354623625913534`*^9,
3.5354624394057536`*^9, 3.535463364081154*^9, 3.5354637208843536`*^9,
3.5354658466817536`*^9, 3.5354660661581535`*^9, 3.5354661138317537`*^9,
3.535466270128154*^9, 3.535474328667164*^9, 3.589889402374743*^9,
3.865932057812272*^9,
3.865936369474166*^9},ExpressionUUID->"4c0af835-5ba1-4a4e-a4ce-\
e0e7dcc10785"]
}, {2}]],
Cell["", "NumberedFigure",
CellTags->"figura5",ExpressionUUID->"3bedb40e-730f-47d6-a9a2-7cfe5bda985a"],
Cell[CellGroupData[{
Cell["Seno di un angolo che differisce di \[Pi]", "Subsubsection",ExpressionUUID->"a51bd3c4-e629-4824-a682-610fa90ddc5f"],
Cell[TextData[{
"Con riferimento alla ",
ButtonBox["fig. 5",
BaseStyle->"Hyperlink",
ButtonData:>"figura5"],
" osserviamo al solito modo che ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["OS",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["OQ",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"52450f4f-c297-40d6-9ec2-043617fe1310"],
" cos\[IGrave] come ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["SR",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["QP",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"574dd214-6c6d-48e4-b087-70d417a5eddc"],
". Poich\[EAcute] per definizione risulta"
}], "Text",
CellTags->
"osservazione3",ExpressionUUID->"0fe2e335-7b93-49be-9961-a0c4eac6cd2b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OR"}]}]], "Input",ExpressionUUID->"4d498aea-d884-4789-\
b41c-93c0e275f9ec"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OR"]}]], "Output",
CellChangeTimes->{3.502020448305956*^9, 3.5350312875295577`*^9,
3.535044463424554*^9, 3.535044846305354*^9, 3.535046159778554*^9,
3.5352075948627634`*^9, 3.535219085079363*^9, 3.535462362700554*^9,
3.5354624395149536`*^9, 3.5354633641903534`*^9, 3.5354658469001536`*^9,
3.5354660662985535`*^9, 3.5354661139721537`*^9, 3.535474328791964*^9,
3.589889402374743*^9, 3.8659320658924303`*^9,
3.8659363695679092`*^9},ExpressionUUID->"4d480395-b979-4b3d-9c75-\
5b46a1a6596b"]
}, {2}]],
Cell["le precedenti danno luogo alla", "Text",ExpressionUUID->"ec1786e9-ef1b-49ab-b534-f7f9beb88b54"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]",
RowBox[{"-", "QP"}]}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"1f2798ea-42d9-45dc-bf12-e83c944f484f"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["QP", "OP"]}]}]], "Output",
CellChangeTimes->{3.5020204483371563`*^9, 3.535031287545158*^9,
3.535044463471354*^9, 3.535044846367754*^9, 3.535046159794154*^9,
3.5352075949251633`*^9, 3.5352190851261635`*^9, 3.5354623627473536`*^9,
3.5354624395461535`*^9, 3.5354633642371535`*^9, 3.535465846946954*^9,
3.5354660663453536`*^9, 3.5354661140189533`*^9, 3.535474328838764*^9,
3.589889402374743*^9, 3.8659320659080544`*^9,
3.8659363695679092`*^9},ExpressionUUID->"2d41fc5e-1754-4fbc-8f79-\
4b1189420b76"]
}, {2}]],
Cell[TextData[{
"e quindi, riprese le definizioni per l'angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"594d8689-10a3-4f11-8593-27917961a35f"],
", segue"
}], "Text",ExpressionUUID->"a79062b3-c71a-46b8-bc92-e503a51d7753"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"cdca808c-5ae1-4a85-baf7-bb911d880d96"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{3.5020204483683558`*^9, 3.5350312875607576`*^9,
3.5350444635337543`*^9, 3.535044846414554*^9, 3.535046159809754*^9,
3.5352075949563637`*^9, 3.535219085172963*^9, 3.5354623627941537`*^9,
3.5354624395929537`*^9, 3.5354633642839537`*^9, 3.5354658470093536`*^9,
3.5354660663921537`*^9, 3.535466114065754*^9, 3.535474328885564*^9,
3.5898894023903427`*^9, 3.8659320659080544`*^9, 3.865934305847481*^9,
3.865936369599157*^9},ExpressionUUID->"e4a201f2-27fa-4707-9a15-\
3b13d1b20b1a"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["Coseno di un angolo che differisce di \[Pi]", "Subsubsection",ExpressionUUID->"2e3a9408-073d-4d66-a7bd-3bf783fb26be"],
Cell[TextData[{
"La definizione di coseno implica per l'angolo explementare ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "+", "\[Pi]"}], TraditionalForm]],ExpressionUUID->
"747955f1-fc16-45fe-afff-3dacc8d79dd3"],
" (",
ButtonBox["fig. 5",
BaseStyle->"Hyperlink",
ButtonData:>"figura5"],
")"
}], "Text",ExpressionUUID->"83241c67-2422-45e4-936c-73c7d00386a6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"OS", "/", "OR"}]}]], "Input",ExpressionUUID->"7234aacc-b6e2-45aa-\
9537-5418f06c035a"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OS", "OR"]}]], "Output",
CellChangeTimes->{3.502020448446356*^9, 3.535031287576358*^9,
3.535044463658554*^9, 3.535044846508154*^9, 3.535046159840954*^9,
3.5352086956409636`*^9, 3.535219085250963*^9, 3.5354623628721533`*^9,
3.535462439686554*^9, 3.535463364377554*^9, 3.535465847102954*^9,
3.5354660665013533`*^9, 3.5354661141593533`*^9, 3.5354743289947643`*^9,
3.5898894023903427`*^9, 3.865932070798362*^9,
3.865936369599157*^9},ExpressionUUID->"96fbe333-957d-4ea7-8b7d-\
6d5fb924ce7e"]
}, {2}]],
Cell[TextData[{
"ma le ",
ButtonBox["relazioni",
BaseStyle->"Hyperlink",
ButtonData:>"osservazione3"],
" tra componenti gi\[AGrave] discusse permettono di scrivere"
}], "Text",ExpressionUUID->"7dd6c43c-d05d-4d40-bd7f-1cb6d3610e35"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"OS", "\[Rule]",
RowBox[{"-", "OQ"}]}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"c5058298-61c6-4599-a757-924c8ffc2e95"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["OQ", "OP"]}]}]], "Output",
CellChangeTimes->{3.502020448493156*^9, 3.535031287591958*^9,
3.5350444637053537`*^9, 3.535044846554954*^9, 3.535046159856554*^9,
3.5352086956877637`*^9, 3.535219085297763*^9, 3.535462362918954*^9,
3.5354624397177534`*^9, 3.5354633644087534`*^9, 3.5354658471497536`*^9,
3.535466066548154*^9, 3.535466114206154*^9, 3.535474329041564*^9,
3.5898894023903427`*^9, 3.8659320708295836`*^9,
3.8659363696304045`*^9},ExpressionUUID->"56228239-eaea-42c6-837a-\
f9ba6a8556d9"]
}, {2}]],
Cell["da cui", "Text",ExpressionUUID->"165ac410-0a11-42bf-9cce-4c35353c9d4b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"2f860060-29f8-4349-bec5-7b294425c9c1"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020448524356*^9, 3.535031287607558*^9,
3.535044463861354*^9, 3.535044846601754*^9, 3.535046159872154*^9,
3.535208695734564*^9, 3.5352190853445635`*^9, 3.5354623629501534`*^9,
3.5354624397645535`*^9, 3.5354633644555535`*^9, 3.5354658471965537`*^9,
3.5354660665949535`*^9, 3.5354661142529535`*^9, 3.5354743290883636`*^9,
3.5898894023903427`*^9, 3.8659320708295836`*^9, 3.8659343202239885`*^9,
3.8659363696304045`*^9},ExpressionUUID->"61a8398e-cda2-4729-abac-\
0ddf2cbfd7ff"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["Tangente di un angolo che differisce di \[Pi]", "Subsubsection",ExpressionUUID->"96b63f94-64da-4487-8ee5-f994f1c4c84e"],
Cell["Infine sfruttando ancora la definizione di tangente", "Text",ExpressionUUID->"e2d74880-e949-4efa-8a32-8261f84e62d7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OS"}]}]], "Input",ExpressionUUID->"856763b8-f0b5-42c3-\
baa0-3df410b98a51"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OS"]}]], "Output",
CellChangeTimes->{3.502020448602356*^9, 3.5350312876231575`*^9,
3.535044463986154*^9, 3.5350448467577543`*^9, 3.5350461599033537`*^9,
3.5352087016937637`*^9, 3.5352190854381633`*^9, 3.5353920606939564`*^9,
3.5354623630749536`*^9, 3.5354624398425536`*^9, 3.5354633645491533`*^9,
3.5354658472901535`*^9, 3.5354660667197533`*^9, 3.5354661143153534`*^9,
3.535474329150764*^9, 3.589889402405943*^9, 3.86593207848656*^9,
3.8659363696616526`*^9},ExpressionUUID->"bece0ebb-2a34-4f40-b387-\
812bd98c3011"]
}, {2}]],
Cell[TextData[{
"e le ",
ButtonBox["relazioni",
BaseStyle->"Hyperlink",
ButtonData:>"osservazione3"],
" tra componenti"
}], "Text",ExpressionUUID->"8efc3090-824a-47a7-bc32-2f15d20b6b6e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]",
RowBox[{"-", "QP"}]}], ",",
RowBox[{"OS", "\[Rule]",
RowBox[{"-", "OQ"}]}]}], "}"}]}]], "Input",ExpressionUUID->"e9571160-\
1f42-4148-a254-ee2d1963d58a"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["QP", "OQ"]}]], "Output",
CellChangeTimes->{3.502020448633556*^9, 3.5350312876387577`*^9,
3.535044464032954*^9, 3.535044846804554*^9, 3.535046159918954*^9,
3.5352087017405634`*^9, 3.535219085469363*^9, 3.5353920608343563`*^9,
3.5354623631217537`*^9, 3.5354624398893538`*^9, 3.5354633645803537`*^9,
3.5354658473525534`*^9, 3.535466066766554*^9, 3.5354661143621535`*^9,
3.535474329197564*^9, 3.589889402405943*^9, 3.865932078517808*^9,
3.8659363696616526`*^9},ExpressionUUID->"015ab810-5126-4373-9f8c-\
87ae7e20ace5"]
}, {2}]],
Cell["risulta", "Text",ExpressionUUID->"c95c4374-2d74-4b17-a711-1e5f9c7ba138"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",ExpressionUUID->"a7e81cb0-33e7-4df2-9163-201872bd7fb0"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]], "Output",
CellChangeTimes->{3.502020448664756*^9, 3.535031287654358*^9,
3.535044464079754*^9, 3.5350448468513536`*^9, 3.535046159934554*^9,
3.5352087017873635`*^9, 3.535219085516163*^9, 3.535392060881157*^9,
3.5354623631685534`*^9, 3.5354624399361534`*^9, 3.5354633646271534`*^9,
3.5354658473993535`*^9, 3.5354660668289537`*^9, 3.5354661144089537`*^9,
3.535474329259964*^9, 3.589889402405943*^9, 3.8659320785334315`*^9,
3.8659343312307563`*^9,
3.8659363696929*^9},ExpressionUUID->"ac67613b-e04f-4977-bcb2-c41571cc7c53"]
}, {2}]],
Cell[TextData[{
"Questa identit\[AGrave] conferma e dimostra la periodicit\[AGrave] della \
funzione tangente: il suo periodo \[EGrave] pari a ",
Cell[BoxData[
FormBox["\[Pi]", TraditionalForm]],ExpressionUUID->
"9498277d-4bc7-4749-a2db-644df6960052"],
"."
}], "Text",ExpressionUUID->"ec40bafb-fce3-4b1e-977c-7138c1c6eb71"],
Cell[TextData[{
"In definitiva abbiamo che le funzioni goniometriche di angoli che \
differiscono per ",
Cell[BoxData[
FormBox["\[Pi]", TraditionalForm]],ExpressionUUID->
"03874187-afc1-4e4e-97f0-da260df79859"],
" sono collegate a quelle dell'angolo originario dalle seguenti identit\
\[AGrave]"
}], "Text",ExpressionUUID->"c12ea698-3561-47e6-a286-aab788fd279b"],
Cell[BoxData[{
FormBox[
RowBox[{
"\[Pi]", " ", "Angoli", " ", "che", " ", "di", " ", "differiscono"}],
TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "+", "\[Pi]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+", "\[Pi]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Alpha]", "+", "\[Pi]"}], ")"}], "=",
RowBox[{"tan", "(", "\[Alpha]", ")"}]}], TraditionalForm]}], "Output",
CellChangeTimes->{
3.589889402421543*^9},ExpressionUUID->"3c69baa2-7dca-451e-bd3d-\
2541db4f99d4"]
}, Open ]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",
CellChangeTimes->{{3.5353920264207563`*^9, 3.5353920292599564`*^9}, {
3.535475421072764*^9,
3.535475425768364*^9}},ExpressionUUID->"7f3b358e-d039-4106-90e3-\
2bfabb6f6204"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{"senExpl", ",", "cosExpl", ",", "tanExpl"}], "}"}], "=",
RowBox[{"toRule", "/@",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], "}"}]}]}]], "Input",
CellChangeTimes->{
3.535475369233964*^9, {3.535475429309564*^9,
3.535475476842764*^9}},ExpressionUUID->"d72ad044-f00c-44a1-a7f3-\
e5fcc22b5eb0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], "}"}]], "Output",
CellChangeTimes->{3.502020448399556*^9, 3.5350312875607576`*^9,
3.535044463580554*^9, 3.535044846445754*^9, 3.535046159825354*^9,
3.5352075950031633`*^9, 3.5352190852197633`*^9, 3.5354623628253536`*^9,
3.5354624396397533`*^9, 3.5354633643307533`*^9, 3.5354658470561533`*^9,
3.5354660664545536`*^9, 3.5354661141125536`*^9, 3.535474328932364*^9,
3.535475477856764*^9, 3.5898894024371433`*^9, 3.865932083577081*^9,
3.8659363696929*^9},ExpressionUUID->"69e94a3f-c36d-4bb4-8904-304a10f52e25"]
}, {2}]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Angoli opposti", "Subsection",ExpressionUUID->"ff2c389d-fc9f-4209-b0a2-24784a863bfb"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{", "\[Beta]", "}"}], ",",
RowBox[{
RowBox[{"\[Beta]", "=",
RowBox[{"-", "\[Alpha]"}]}], ";", "\n",
RowBox[{"pP", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",",
RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "}"}]}], ";",
RowBox[{"pQ", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], ";",
RowBox[{"pO", "=",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ";",
RowBox[{"pR", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "}"}]}], ";",
RowBox[{"pS", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",", "0"}], "}"}]}], ";", "\n",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Yellow", ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ", ",", "pP"}], "}"}], "]"}], ",",
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS", ",", "pR"}], "}"}], "]"}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"Green", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".3", ",",
RowBox[{"{",
RowBox[{"\[Beta]", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Disk", "[",
RowBox[{"pO", ",", ".2", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Alpha]"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "Gray", ",",
RowBox[{"Circle", "[", "]"}]}], "}"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pP", ",", "pO", ",", "pR"}], "}"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pQ"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pQ", ",", "pP"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pO", ",", "pS"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pS", ",", "pR"}], "}"}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pO", ",",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",",
RowBox[{"pQ", "+",
RowBox[{"{",
RowBox[{
RowBox[{"-", ".03"}], ",", "0.03"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pP", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pR", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "}"}]}], "}"}],
"]"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]", "1.1"}], ",",
RowBox[{"ImageSize", "->", "400"}]}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"30", " ", "Degree"}], ",",
RowBox[{"Style", "[",
RowBox[{"\"\<\[Alpha] \>\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.535032870243158*^9, 3.535032915623558*^9}, {
3.5350329466675577`*^9, 3.535032947931158*^9}, {3.5353920720663567`*^9,
3.5353920823155565`*^9}, {3.5354624239149537`*^9, 3.535462424102154*^9}, {
3.5354624672049537`*^9, 3.535462467470154*^9}, {3.8659320888745484`*^9,
3.8659321004387836`*^9}},ExpressionUUID->"cc7a05bd-762a-4b25-8530-\
49e4760ed706"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`\[Alpha]$$ = 30 Degree, Typeset`show$$ =
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`\[Alpha]$$], 30 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
Typeset`size$$ = {288., {142., 146.}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 30 Degree},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Block[{$CellContext`\[Beta]}, $CellContext`\[Beta] = -$CellContext`\
\[Alpha]$$; $CellContext`pP = {
Cos[$CellContext`\[Alpha]$$],
Sin[$CellContext`\[Alpha]$$]}; $CellContext`pQ = {
Cos[$CellContext`\[Alpha]$$], 0}; $CellContext`pO = {0,
0}; $CellContext`pR = {
Cos[$CellContext`\[Beta]],
Sin[$CellContext`\[Beta]]}; $CellContext`pS = {
Cos[$CellContext`\[Beta]], 0}; Show[
Graphics[{{Yellow,
Polygon[{$CellContext`pO, $CellContext`pQ, $CellContext`pP}],
Polygon[{$CellContext`pO, $CellContext`pS, $CellContext`pR}]}, {
Green,
Disk[$CellContext`pO, 0.3, {$CellContext`\[Beta], 0}]}, {Red,
Disk[$CellContext`pO, 0.2, {0, $CellContext`\[Alpha]$$}]}, {
Dashed, Gray,
Circle[]},
Line[{$CellContext`pP, $CellContext`pO, $CellContext`pR}], {
Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pQ}],
Arrow[{$CellContext`pQ, $CellContext`pP}]}, {Blue, Thick,
Arrow[{$CellContext`pO, $CellContext`pS}],
Arrow[{$CellContext`pS, $CellContext`pR}]}, {
Text["O", $CellContext`pO, {1, 1}],
Text["Q\[Congruent]S", $CellContext`pQ + {-0.03, 0.03}, {1, -1}],
Text["P", $CellContext`pP, {0, -1}],
Text["R", $CellContext`pR, {0, 1}]}}], AspectRatio -> Automatic,
Axes -> True, Ticks -> {{-1, 0, 1}, {-1, 0, 1}}, PlotRange -> 1.1,
ImageSize -> 400]],
"Specifications" :> {{{$CellContext`\[Alpha]$$, 30 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}},
"Options" :> {},
"DefaultOptions" :> {ControlPlacement -> Top, SaveDefinitions -> True}],
ImageSizeCache->{323., {175.93650390625, 180.06349609375}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
Initialization:>({$CellContext`pP = {Sqrt[3]/2, 1/2}, $CellContext`pQ = {
Sqrt[3]/2, 0}, $CellContext`pO = {0,
0}, $CellContext`pR = {((-1)/2) Sqrt[3], (-1)/
2}, $CellContext`pS = {((-1)/2) Sqrt[3], 0}};
Typeset`initDone$$ = True),
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.5020204487739563`*^9, 3.535031287685558*^9, {3.5350328913499575`*^9,
3.535032916044758*^9}, {3.535032948929558*^9, 3.535032961393958*^9},
3.535044464204554*^9, 3.535044846944954*^9, 3.535046160028154*^9,
3.5352087078401637`*^9, 3.535219085609763*^9, 3.5353920833919563`*^9,
3.5354623632621536`*^9, {3.5354624279553537`*^9, 3.535462468281354*^9},
3.5354633646895533`*^9, 3.535463479692754*^9, 3.5354637336451535`*^9,
3.5354658558545537`*^9, 3.5354660668913536`*^9, 3.5354661144713535`*^9,
3.535474329337964*^9, 3.589889402483943*^9, 3.86593210115748*^9,
3.865936369724148*^9},ExpressionUUID->"45591126-732d-4b2c-b8ac-\
b4ad3014efe8"]
}, {2}]],
Cell["", "NumberedFigure",
CellTags->"figura6",ExpressionUUID->"783572bb-c021-4f23-a5b6-411c45437527"],
Cell[CellGroupData[{
Cell["Seno di un angolo opposto", "Subsubsection",ExpressionUUID->"6d4c4604-65c4-4d85-8e69-77b8baf1d64b"],
Cell[TextData[{
"Dalla congruenza pi\[UGrave] volte notata ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox[
RowBox[{"\[EmptyUpTriangle]",
StyleBox["OSR",
FontSlant->"Italic"]}]], "\[TildeFullEqual]",
StyleBox[
RowBox[{"\[EmptyUpTriangle]",
StyleBox["OQP",
FontSlant->"Italic"]}]]}], TraditionalForm]],ExpressionUUID->
"4e163397-866e-43ee-a793-007c7e8198b5"],
" discende ora ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["SR",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
RowBox[{
StyleBox["-",
FontSlant->"Plain"],
StyleBox["QP",
FontSlant->"Italic"]}]}], TraditionalForm]],ExpressionUUID->
"1a7846e9-2f47-48da-a9ac-f89a677e263e"],
" e ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["OS",
FontSlant->"Italic"],
StyleBox["=",
FontSlant->"Plain"],
StyleBox["OQ",
FontSlant->"Italic"]}], TraditionalForm]],ExpressionUUID->
"9f5d6d42-1d1d-4986-9e25-29a34aff2052"],
" (",
ButtonBox["fig. 6",
BaseStyle->"Hyperlink",
ButtonData:>"figura6"],
"). Ne deriva che"
}], "Text",
CellTags->
"osservazione4",ExpressionUUID->"925a6961-3e05-4ec9-a87d-e076642f70d5"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OR"}]}]], "Input",ExpressionUUID->"b0bea073-41a1-42ee-\
96e6-83dee1f85d6a"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OR"]}]], "Output",
CellChangeTimes->{
3.502020448820756*^9, 3.5350312877011576`*^9, 3.5350444643605537`*^9,
3.535044847085354*^9, 3.535046160043754*^9, 3.5352087131597633`*^9,
3.535219085734563*^9, 3.5354623633713536`*^9, {3.5354624281581535`*^9,
3.5354624401077538`*^9}, 3.5354633648923535`*^9, 3.5354658639665537`*^9,
3.5354659067729535`*^9, 3.5354660670317535`*^9, 3.5354661146117535`*^9,
3.535474329462764*^9, 3.589889402483943*^9, 3.8659321077989187`*^9,
3.865936369817891*^9},ExpressionUUID->"a3d6b210-c7e6-477d-92fb-\
a8e3ebf0c022"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]",
RowBox[{"-", "QP"}]}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"7c3a23ed-5fc9-441b-8442-2681d08b1382"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["QP", "OP"]}]}]], "Output",
CellChangeTimes->{
3.502020448851956*^9, 3.5350312877011576`*^9, 3.5350444644073544`*^9,
3.535044847132154*^9, 3.535046160059354*^9, 3.5352087132221637`*^9,
3.5352190857813635`*^9, 3.5354623634025536`*^9, {3.5354624282049537`*^9,
3.5354624401545534`*^9}, 3.5354633649235535`*^9, 3.5354658640445538`*^9,
3.535465906835354*^9, 3.5354660670785537`*^9, 3.5354661146585536`*^9,
3.535474329509564*^9, 3.589889402483943*^9, 3.865932107830167*^9,
3.865936369849139*^9},ExpressionUUID->"56e1494f-fb83-48b3-839e-\
547ebbcf176e"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",
CellTags->
"senodispari",ExpressionUUID->"add26ec7-c13c-47af-953a-18abf95c9b16"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{
3.502020448883156*^9, 3.535031287716758*^9, 3.535044464454154*^9,
3.535044847178954*^9, 3.535046160074954*^9, 3.5352087132533636`*^9,
3.535219085828163*^9, 3.5354623634493537`*^9, {3.5354624282361536`*^9,
3.5354624402013535`*^9}, 3.5354633649703536`*^9, 3.5354658640913534`*^9,
3.5354659068821535`*^9, 3.535466067125354*^9, 3.5354661147521534`*^9,
3.535474329556364*^9, 3.589889402499543*^9, 3.865932107830167*^9,
3.8659343491559467`*^9, 3.8659363698647633`*^9},
CellTags->
"senodispari",ExpressionUUID->"a936d04e-4f7c-4607-ac13-848ea3084397"]
}, {2}]],
Cell[TextData[{
"Questo risultato, valido per ",
Cell[BoxData[
FormBox[
RowBox[{"\[ForAll]", " ",
RowBox[{"\[Alpha]", "\[Element]", " ", "\[DoubleStruckCapitalR]"}]}],
TraditionalForm]],ExpressionUUID->"8bdeb01b-dc18-4473-90e7-4b4838fda54b"],
" stabilisce che la funzione seno \[EGrave] una ",
StyleBox["funzione dispari:",
FontSlant->"Italic"],
" il suo grafico risulta pertanto simmetrico rispetto all'origine di un \
sistema cartesiano che abbia in ascissa la variabile angolare ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"0a4c1a87-4c75-4773-87fd-cd6f178b2a6e"],
" e in ordinata il valore ",
Cell[BoxData[
FormBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"f512bf78-2393-4c87-bc5d-f91306095d84"],
"."
}], "Text",ExpressionUUID->"0a22851a-0932-4c28-a97d-a89447acfcad"]
}, Open ]],
Cell[CellGroupData[{
Cell["Coseno di un angolo opposto", "Subsubsection",ExpressionUUID->"3b3f8189-ac62-4cf4-b808-af65bbbdaaef"],
Cell[TextData[{
"Analogamente a quanto finora visto e in base alla configurazione di ",
ButtonBox["fig. 6",
BaseStyle->"Hyperlink",
ButtonData:>"figura6"]
}], "Text",ExpressionUUID->"df76478d-017b-49ce-ad65-2b8c38ccc4b4"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"OS", "/", "OR"}]}]], "Input",ExpressionUUID->"b3862556-5f37-407d-\
b078-a72764f8bea3"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OS", "OR"]}]], "Output",
CellChangeTimes->{
3.502020448976756*^9, 3.5350312877479577`*^9, 3.5350444645789537`*^9,
3.5350448472881536`*^9, 3.535046160106154*^9, 3.5352087189785633`*^9,
3.535219085952963*^9, 3.5354623635273533`*^9, {3.5354624282985535`*^9,
3.5354624402793536`*^9}, 3.535463365032754*^9, 3.5354658719537535`*^9,
3.5354659195181537`*^9, 3.535466067203354*^9, 3.5354661148145533`*^9,
3.535474329618764*^9, 3.589889402499543*^9, 3.8659321119571238`*^9,
3.865936369896021*^9},ExpressionUUID->"e934984f-0382-438a-8a9c-\
5462cedecf0e"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"OS", "\[Rule]", "OQ"}], ",",
RowBox[{"OR", "\[Rule]", "OP"}]}], "}"}]}]], "Input",ExpressionUUID->\
"2209fe4e-c260-4ebb-9e7a-00d208d0e357"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["OQ", "OP"]}]], "Output",
CellChangeTimes->{
3.502020449007956*^9, 3.535031287763558*^9, 3.535044464641354*^9,
3.5350448473349543`*^9, 3.5350461601217537`*^9, 3.5352087190409636`*^9,
3.5352190859997635`*^9, 3.535462363574154*^9, {3.5354624283453536`*^9,
3.5354624403261538`*^9}, 3.5354633650795536`*^9, 3.5354658720317535`*^9,
3.5354659195805535`*^9, 3.5354660672501535`*^9, 3.535466114861354*^9,
3.535474329696764*^9, 3.589889402499543*^9, 3.8659321119883804`*^9,
3.865936369911635*^9},ExpressionUUID->"57b59a59-a1c5-4071-baa7-\
cf752c809fc8"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",
CellTags->
"cosenopari",ExpressionUUID->"6829313b-90b5-446f-b671-bb10778d9736"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]], "Output",
CellChangeTimes->{
3.502020449039156*^9, 3.5350312877791576`*^9, 3.535044464672554*^9,
3.535044847381754*^9, 3.535046160137354*^9, 3.5352087190721636`*^9,
3.535219086046563*^9, 3.5354623636209536`*^9, {3.5354624283921537`*^9,
3.5354624403729534`*^9}, 3.5354633651107535`*^9, 3.5354658720785537`*^9,
3.5354659196273537`*^9, 3.5354660672969537`*^9, 3.5354661149081535`*^9,
3.5354743297435637`*^9, 3.589889402499543*^9, 3.8659321119883804`*^9,
3.86593436050146*^9, 3.865936369911635*^9},
CellTags->
"cosenopari",ExpressionUUID->"96768084-a9b6-4361-82d6-280c31ff6719"]
}, {2}]],
Cell[TextData[{
"Anche questa identit\[AGrave], valida per ",
Cell[BoxData[
FormBox[
RowBox[{"\[ForAll]", " ",
RowBox[{"\[Alpha]", "\[Element]", " ", "\[DoubleStruckCapitalR]"}]}],
TraditionalForm]],ExpressionUUID->"411fbd00-50d6-4acc-9f6c-f1dd6cf58d56"],
" codifica una propriet\[AGrave] importante della funzione coseno: questa \
\[EGrave] una ",
StyleBox["funzione pari",
FontSlant->"Italic"],
" con grafico simmetrico rispetto all'asse delle ordinate del sistema \
cartesiano associato all'equazione ",
Cell[BoxData[
FormBox[
RowBox[{"y", "=",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], TraditionalForm]],ExpressionUUID->
"ab2dd7e9-bad3-4c02-8240-4a202f7cdeb4"],
"."
}], "Text",ExpressionUUID->"100d24ee-179c-40af-9c48-38d45f37e08c"]
}, Open ]],
Cell[CellGroupData[{
Cell["Tangente di un angolo opposto", "Subsubsection",ExpressionUUID->"4d59e45e-9acf-4069-8f39-62b2973c1425"],
Cell[TextData[{
"Per la definizione di tangente e in base a quanto osservato ",
ButtonBox["precedentemente",
BaseStyle->"Hyperlink",
ButtonData:>"osservazione4"]
}], "Text",ExpressionUUID->"93967204-b028-41ec-b0c7-c188b749c52e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"SR", "/", "OS"}]}]], "Input",ExpressionUUID->"665c8604-36ed-4961-\
87ea-a11fd7540010"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox["SR", "OS"]}]], "Output",
CellChangeTimes->{
3.502020449117156*^9, 3.535031287794758*^9, 3.535044464906554*^9,
3.535044847490954*^9, 3.5350461601685543`*^9, 3.5352087280109634`*^9,
3.535219086124563*^9, 3.5354623636989536`*^9, {3.5354624284389534`*^9,
3.5354624404197536`*^9}, 3.535463365173154*^9, 3.535465881594554*^9,
3.535465935788954*^9, 3.5354660673593535`*^9, 3.5354661149705534`*^9,
3.535474329805964*^9, 3.589889402515143*^9, 3.865932126130516*^9,
3.8659363699428825`*^9},ExpressionUUID->"aa6acf5a-822c-4abe-bc13-\
e18631c9d4b8"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"SR", "\[Rule]",
RowBox[{"-", "QP"}]}], ",",
RowBox[{"OS", "\[Rule]", "OQ"}]}], "}"}]}]], "Input",ExpressionUUID->\
"d91f4996-34e9-49a0-ae4f-9186ea63336e"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
FractionBox["QP", "OQ"]}]}]], "Output",
CellChangeTimes->{
3.502020449148356*^9, 3.535031287810358*^9, 3.535044464953354*^9,
3.535044847537754*^9, 3.535046160184154*^9, 3.5352087280733633`*^9,
3.535219086171363*^9, 3.5354623637301536`*^9, {3.5354624284857535`*^9,
3.5354624404665537`*^9}, 3.5354633652199535`*^9, 3.5354658817037535`*^9,
3.5354659358357534`*^9, 3.5354660674061537`*^9, 3.5354661150173535`*^9,
3.535474329852764*^9, 3.589889402515143*^9, 3.865932126161764*^9,
3.8659363699428825`*^9},ExpressionUUID->"bdf96754-9190-4de6-b479-\
52fcd34ce476"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "defs"}]], "Input",
CellTags->
"tandispari",ExpressionUUID->"c24bdad3-1559-4543-b84a-d76406f41d13"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{
3.502020449195156*^9, 3.535031287825958*^9, 3.535044465000154*^9,
3.5350448475845537`*^9, 3.5350461601997538`*^9, 3.535208728120164*^9,
3.5352190862181635`*^9, 3.5354623637769537`*^9, {3.5354624285325537`*^9,
3.5354624405133533`*^9}, 3.5354633652667537`*^9, 3.5354658817505536`*^9,
3.5354659358981533`*^9, 3.5354660674685535`*^9, 3.5354661150641537`*^9,
3.535474329899564*^9, 3.589889402515143*^9, 3.865932126161764*^9,
3.865934371284255*^9, 3.8659363699741306`*^9},
CellTags->
"tandispari",ExpressionUUID->"0fa22712-c5e9-4f3a-9481-12d5516169c8"]
}, {2}]],
Cell[TextData[{
"Come gi\[AGrave] visto per la funzione seno, poich\[EAcute] l'identit\
\[AGrave] precedente vale per ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"\[ForAll]", " ",
RowBox[{"\[Alpha]", "\[Element]", " ",
RowBox[{"Dom", "(", "tan", ")"}]}]}], "=", " ",
RowBox[{"\[DoubleStruckCapitalR]", "-",
RowBox[{"{",
RowBox[{
FractionBox["\[Pi]", "2"], "+",
RowBox[{"k", " ", "\[Pi]"}]}], "}"}]}]}], TraditionalForm]],
ExpressionUUID->"f864b3fc-01d7-47bc-966c-456c16a8f150"],
" stabilisce che pure la funzione tangente \[EGrave] una ",
StyleBox["funzione dispari",
FontSlant->"Italic"],
" con grafico quindi simmetrico rispetto all'origine di un sistema \
cartesiano con in ascissa la variabile angolare e in ordinata il valore di ",
Cell[BoxData[
FormBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], TraditionalForm]],ExpressionUUID->
"6176a0a4-7f75-4a46-874d-18e14be7b975"],
". "
}], "Text",ExpressionUUID->"76a9ef2b-caba-4f2d-8110-4641e45eb3f5"],
Cell["Abbiamo ottenuto quindi", "Text",ExpressionUUID->"f22ea248-efb5-4752-a488-9d9bed00a19e"],
Cell[BoxData[{
FormBox[
RowBox[{"Angoli", " ", "opposti"}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{"-", "\[Alpha]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{"-", "\[Alpha]"}], ")"}], "=",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{"-", "\[Alpha]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"tan", "(", "\[Alpha]", ")"}]}]}], TraditionalForm]}], "Output",
CellChangeTimes->{
3.5898894025307426`*^9},ExpressionUUID->"14f9757f-e042-4266-ad86-\
6e107e4e7503"]
}, Open ]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",
CellChangeTimes->{{3.5353921154967566`*^9, 3.535392117696357*^9}, {
3.535475709501164*^9,
3.5354757138067636`*^9}},ExpressionUUID->"f48c1ceb-1196-4519-a9f1-\
e13c56b873ad"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{"senOpp", ",", "cosOpp", ",", "tanOpp"}], "}"}], "=",
RowBox[{"toRule", "/@",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}]}], "}"}]}]}]], "Input",
CellChangeTimes->{
3.5353921210815563`*^9, {3.535475641609964*^9,
3.535475687208764*^9}},ExpressionUUID->"998b2279-bd8d-4a56-a762-\
35a5f0a7d2ee"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{3.535475687988764*^9, 3.589889402546343*^9,
3.865932130318946*^9,
3.8659363699741306`*^9},ExpressionUUID->"9e0a834a-cacc-4342-bdb9-\
8f1e1a20a3ad"]
}, {2}]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Introduzione grafica e prima identit\[AGrave]", "Section",ExpressionUUID->"d5e6e4b2-6b5a-4250-95d0-f6fd7d552ba2"],
Cell[CellGroupData[{
Cell["Analisi grafica", "Subsubsection",ExpressionUUID->"9a531814-541a-45e7-834a-71333f587eba"],
Cell[TextData[{
"Affrontiamo in questa sezione la dimostrazione dell'identit\[AGrave] che \
lega il coseno di una differenza di angoli alle funzioni goniometriche degli \
angoli stessi. In base a questa relazione sar\[AGrave] possibile dedurre una \
(lunga) serie di identit\[AGrave] che specificano di volta in volta nuove \
propriet\[AGrave] delle funzioni goniometriche.\nDefiniamo nella \
circonferenza goniometrica ",
Cell[BoxData[
FormBox["\[Gamma]", TraditionalForm]],ExpressionUUID->
"7f392e61-c59f-4f04-8d90-4d0b1415061d"],
" i due angoli ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "=",
RowBox[{"170", " ", "\[Degree]"}]}], TraditionalForm]],ExpressionUUID->
"154a4065-7d61-457c-99fd-e6ba24eec7fe"],
"e ",
Cell[BoxData[
FormBox[
RowBox[{"\[Beta]", "=",
RowBox[{"115", " ", "\[Degree]"}]}], TraditionalForm]],ExpressionUUID->
"07cf8047-bff2-4af5-9720-ff4b1d913b26"],
", il primo indicato in giallo nella ",
ButtonBox["figura sottostante",
BaseStyle->"Hyperlink",
ButtonData:>"figura7"],
" e tale da ricoprire un intero settore circolare di ",
Cell[BoxData[
FormBox["\[Gamma]", TraditionalForm]],ExpressionUUID->
"9b16bc75-5ec4-4f3f-acad-2fe88f797176"],
" e il secondo in verde. I lati non coincidenti con il semiasse positivo \
delle ",
Cell[BoxData[
FormBox["x", TraditionalForm]],ExpressionUUID->
"beffc09a-0e6a-4f65-b725-0abf9eb13c7e"],
" di questi angoli intersecano la circonferenza nei due punti, ",
Cell[BoxData[
FormBox[
RowBox[{"P", "(",
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], ",",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}], ")"}], TraditionalForm]],
ExpressionUUID->"8e5fd337-a33e-468e-8d98-d52c22567676"],
" e ",
Cell[BoxData[
FormBox[
RowBox[{"Q", "(",
RowBox[{
RowBox[{"cos", "(", "\[Beta]", ")"}], ",",
RowBox[{"sen", "(", "\[Beta]", ")"}]}], ")"}], TraditionalForm]],
ExpressionUUID->"0c5e531a-6d30-43a2-9702-2a01723334ac"],
"."
}], "Text",ExpressionUUID->"a3023166-1283-45bb-872d-5c5075d2b6ff"],
Cell[BoxData[{
RowBox[{
RowBox[{"pP", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",",
RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pQ", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "}"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.535218638420163*^9, 3.5352186436149635`*^9}, {
3.535463830552354*^9, 3.5354638346707535`*^9}, {3.5354663352425537`*^9,
3.535466339766554*^9}},ExpressionUUID->"967e82ad-feb1-48ce-ab62-\
7e18a3accf1c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], ",",
RowBox[{
RowBox[{"\[Alpha]", "=",
RowBox[{"\[Alpha]Fix", " ", "-", "rotazione"}]}], ";",
RowBox[{"\[Beta]", "=",
RowBox[{"\[Beta]Fix", "-", "rotazione"}]}], ";", " ",
RowBox[{"pP", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",",
RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "}"}]}], ";",
RowBox[{"pQ", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "}"}]}], ";",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Yellow", ",",
RowBox[{"EdgeForm", "[", "Thin", "]"}], ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "1", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Alpha]Fix"}], "}"}]}], "]"}]}], "}"}],
",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"mostraDiff", "\[Equal]", "True"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"CapForm", "[", "\"\\"", "]"}], ",",
RowBox[{"Thickness", "[", ".07", "]"}], ",",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", ".32", ",",
RowBox[{"{",
RowBox[{"\[Beta]", ",", "\[Alpha]"}], "}"}]}], "]"}]}],
"}"}]}], "]"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]Fix", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]Fix", "]"}]}], "}"}]}], "}"}],
"]"}], ",",
RowBox[{"{",
RowBox[{"Green", ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", ".2", ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Beta]Fix"}], "}"}]}], "]"}]}], "}"}],
",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pQ", ",",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "Gray", ",",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}],
",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pP", ",",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"AbsolutePointSize", "[", "4", "]"}], ",",
RowBox[{"Point", "[", "pP", "]"}], ",",
RowBox[{"Point", "[", "pQ", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"AbsolutePointSize", "[", "4", "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Alpha]Fix", "]"}], ",",
RowBox[{"Sin", "[", "\[Alpha]Fix", "]"}]}], "}"}], "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Beta]Fix", "]"}], ",",
RowBox[{"Sin", "[", "\[Beta]Fix", "]"}]}], "}"}], "]"}]}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"Text", "[",
RowBox[{
RowBox[{"Style", "[",
RowBox[{"\"\\"", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}], ",",
RowBox[{"pP", "+",
RowBox[{"{",
RowBox[{".15", ",", "0.04"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{
RowBox[{"Style", "[",
RowBox[{"\"\\"", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", "pQ", ",",
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "}"}]}], "}"}],
"]"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"PlotRange", "\[Rule]", "1.2"}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"ImageSize", "->", "400"}]}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]Fix", ",",
RowBox[{"170", " ", "Degree"}], ",",
RowBox[{"Style", "[",
RowBox[{"\"\<\[Alpha] \>\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Beta]Fix", ",",
RowBox[{"115", " ", "Degree"}], ",",
RowBox[{"Style", "[",
RowBox[{"\"\<\[Beta] \>\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
"\[Alpha]Fix"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"rotazione", ",", "0", ",",
RowBox[{"Style", "[",
RowBox[{"\"\\"", ",", "Bold", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}]}], "}"}], ",", "0", ",",
"\[Beta]Fix"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"mostraDiff", ",", "True", ",", "\"\\""}],
"}"}], ",",
RowBox[{"{",
RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->CompressedData["
1:eJwlz21Ik3EUBfCx1CjBhLU0ELTBLGFpDUEcTB2Ii/KNmW3VM6dhmpgpm33w
BZ2IDWZMFFExkbkGsdomjtIppeYKtsmCiZhRpgiizpYySnFO8Dl/P1x+nMuF
w73yqFbymMlgMBLpgftlMoX2nk+0zgkQj1RmJaTuy5/DhXTlK/iioHgEfoxb
2Ya2JY2PZMu7f5D9VRuE6rbdsE5a/dxsBFxO6rgAB+OHiYaWiEvw2Z12Yupt
HR/W//0kgLHC3xnQqNkSw9w6UyF0ZtXIILP8gIJca6McziodSvhLvk+caBA0
kf6izFbIOufXwoobxy/h3eC1buh1DxH7XP1DcPx81TDsCZO9hr0pV40w+Y3D
DHnN1CTcViTNdZJ/DY7TvXEeFi+3L8KND1Kvjnax9Scx+ps6r4v2gZ1bCCPT
15gbtE/YaWdgaLoqDvJ/eONh7OV8LuTsjRHPSlg8mLAZcx1GKTJLKKlPlJb7
vwI2aoXV8O37qKewPGFgHFISnR3qV6bc0MIzeGBAVb8GnQ9HidPemR24fhi+
C9WujmSr548oFBzkw9WcDAHUe4LEfNvFbKi4eYv4/bOpAO71+KXkTvilErpL
xdXwBNZFPC8=
"],
CellTags->"figura1",ExpressionUUID->"363e47dc-bc0f-4c2c-8a43-db466d98fd9e"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`mostraDiff$$ =
True, $CellContext`rotazione$$ = 0, $CellContext`\[Alpha]Fix$$ = 170
Degree, $CellContext`\[Beta]Fix$$ = 115 Degree, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`\[Alpha]Fix$$], 170 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2 Pi}, {{
Hold[$CellContext`\[Beta]Fix$$], 115 Degree,
Style["\[Beta] ", Bold, FontSize -> 12]}, 0,
Dynamic[$CellContext`\[Alpha]Fix$$]}, {{
Hold[$CellContext`rotazione$$], 0,
Style["rotazione ", Bold, FontSize -> 12]}, 0,
Dynamic[$CellContext`\[Beta]Fix$$]}, {{
Hold[$CellContext`mostraDiff$$], True, "nascondi \[Alpha]-\[Beta]"}, {
False, True}}}, Typeset`size$$ = {288., {142., 146.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`mostraDiff$$ =
True, $CellContext`rotazione$$ = 0, $CellContext`\[Alpha]Fix$$ =
170 Degree, $CellContext`\[Beta]Fix$$ = 115 Degree},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Block[{$CellContext`\[Alpha], $CellContext`\[Beta]}, $CellContext`\
\[Alpha] = $CellContext`\[Alpha]Fix$$ - $CellContext`rotazione$$; \
$CellContext`\[Beta] = $CellContext`\[Beta]Fix$$ - $CellContext`rotazione$$; \
$CellContext`pP = {
Cos[$CellContext`\[Alpha]],
Sin[$CellContext`\[Alpha]]}; $CellContext`pQ = {
Cos[$CellContext`\[Beta]],
Sin[$CellContext`\[Beta]]}; Show[
Graphics[{{Yellow,
EdgeForm[Thin],
Disk[{0, 0}, 1, {0, $CellContext`\[Alpha]Fix$$}]},
If[$CellContext`mostraDiff$$ == True, {Red,
CapForm["Butt"],
Thickness[0.07],
Circle[{0, 0},
0.32, {$CellContext`\[Beta], $CellContext`\[Alpha]}]}],
Line[{{0, 0}, {
Cos[$CellContext`\[Beta]Fix$$],
Sin[$CellContext`\[Beta]Fix$$]}}], {Green,
Disk[{0, 0}, 0.2, {0, $CellContext`\[Beta]Fix$$}]},
Line[{$CellContext`pQ, {0, 0}}], {Dashed, Gray,
Circle[{0, 0}, 1]},
Line[{$CellContext`pP, {0, 0}}], {Red,
AbsolutePointSize[4],
Point[$CellContext`pP],
Point[$CellContext`pQ]}, {Red,
AbsolutePointSize[4],
Point[{
Cos[$CellContext`\[Alpha]Fix$$],
Sin[$CellContext`\[Alpha]Fix$$]}],
Point[{
Cos[$CellContext`\[Beta]Fix$$],
Sin[$CellContext`\[Beta]Fix$$]}]}, {
Text[
Style[
"P(cos(\[Alpha]),sen(\[Alpha]))", FontSize ->
12], $CellContext`pP + {0.15, 0.04}, {0, -1}],
Text[
Style[
"Q(cos(\[Beta]),sen(\[Beta]))", FontSize ->
12], $CellContext`pQ, {1, -1}]}}], Axes -> True, PlotRange ->
1.2, Ticks -> {{-1, 0, 1}, {-1, 0, 1}}, ImageSize -> 400]],
"Specifications" :> {{{$CellContext`\[Alpha]Fix$$, 170 Degree,
Style["\[Alpha] ", Bold, FontSize -> 12]}, 0, 2
Pi}, {{$CellContext`\[Beta]Fix$$, 115 Degree,
Style["\[Beta] ", Bold, FontSize -> 12]}, 0,
Dynamic[$CellContext`\[Alpha]Fix$$]}, {{$CellContext`rotazione$$, 0,
Style["rotazione ", Bold, FontSize -> 12]}, 0,
Dynamic[$CellContext`\[Beta]Fix$$]}, {{$CellContext`mostraDiff$$,
True, "nascondi \[Alpha]-\[Beta]"}, {False, True}}},
"Options" :> {},
"DefaultOptions" :> {ControlPlacement -> Top, SaveDefinitions -> True}],
ImageSizeCache->{323., {203.93650390625, 208.06349609375}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
Initialization:>({$CellContext`pP = {
Cos[$CellContext`\[Alpha]],
Sin[$CellContext`\[Alpha]]}, $CellContext`pQ = {
Cos[$CellContext`\[Beta]],
Sin[$CellContext`\[Beta]]}}; Typeset`initDone$$ = True),
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.5354640458791533`*^9, 3.5354641981195536`*^9, {3.5354642784127536`*^9,
3.5354643134815536`*^9}, 3.5354659585961533`*^9, 3.5354660675465536`*^9,
3.535466115157754*^9, 3.5354663891249533`*^9, 3.5354743300087643`*^9,
3.589889402561943*^9, {3.8659321819368076`*^9, 3.865932210614008*^9},
3.8659322487293825`*^9, {3.865932307409506*^9, 3.865932336460745*^9},
3.8659323873954105`*^9, {3.8659324473578296`*^9, 3.8659324900665503`*^9},
3.865932635011757*^9, 3.865936370021003*^9},
CellTags->"figura1",ExpressionUUID->"bc6eca3e-a99e-4950-af88-0b3d6cd41a20"]
}, {2}]],
Cell["", "NumberedFigure",
CellTags->"figura7",ExpressionUUID->"86ed9800-898c-445d-a68c-070fc5479141"],
Cell[TextData[{
"Dal punto di vista geometrico, la differenza ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "-", "\[Beta]"}], TraditionalForm]],ExpressionUUID->
"06d20b9c-dd41-4287-97c7-4704e200d1d4"],
" appare come l'angolo evidenziato in color rosso. Poich\[EAcute] le \
convenzioni sugli angoli in goniometria impongono di trattare questi con un \
lato coincidente con il semiasse positivo delle ascisse, eseguiamo una \
rotazione attorno all'origine pari all'angolo ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"d441f0f2-92f7-414a-a583-4753898162b9"],
" in modo da riportare quest'angolo nell'ambito convenzionale corretto. "
}], "Text",ExpressionUUID->"38bbc331-89e7-4bb2-9cc6-f488a91982df"]
}, Open ]],
Cell[CellGroupData[{
Cell["Ulteriori osservazioni", "Subsubsection",ExpressionUUID->"788b7643-b27a-41b2-91c4-0e3c9c1874b8"],
Cell[TextData[{
"Appare evidente come in tale rotazione il punto ",
Cell[BoxData[
FormBox["Q", TraditionalForm]],ExpressionUUID->
"afcd5a51-8ad4-4f84-a8fe-86ebd6266d31"],
", alla fine, vada a coincidere con il punto ",
Cell[BoxData[
FormBox[
RowBox[{"A", "(",
RowBox[{"1", ",", "0"}], ")"}], TraditionalForm]],ExpressionUUID->
"bbd0c399-e119-46a3-a513-931a550ba2be"],
" di ",
ButtonBox["fig. 8",
BaseStyle->"Hyperlink",
ButtonData:>"figura8"],
" mentre il punto ",
Cell[BoxData[
FormBox["P", TraditionalForm]],ExpressionUUID->
"dfffa6b4-22da-4652-8f9d-27d8748882dd"],
" a sua volta ha per immagine finale il punto ",
Cell[BoxData[
FormBox[
RowBox[{"D", "(",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], ",",
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}]}], ")"}], TraditionalForm]],
ExpressionUUID->"7b6c5637-00c6-4bac-8d06-5af0212251c7"],
". "
}], "Text",ExpressionUUID->"1d6a86d8-d1a0-43e5-b718-f106cac66f1a"],
Cell[BoxData[{
RowBox[{
RowBox[{"pA", "=",
RowBox[{"{",
RowBox[{"1", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pD", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], ",",
RowBox[{"Sin", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "}"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.5354663971589537`*^9,
3.5354664001697536`*^9}},ExpressionUUID->"d958802e-cb86-42bc-b2b2-\
9925de5e342d"],
Cell[TextData[{
"In particolare, essendo le rotazioni delle isometrie, la lunghezza della \
corda ",
Cell[BoxData[
FormBox[
StyleBox["PQ",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"14a6a522-74ad-412d-9e7e-cb14aed8dec7"],
" rimane invariata cosicch\[EAcute] possiamo porre in relazione la lunghezza \
del segmento originario ",
Cell[BoxData[
FormBox[
StyleBox["PQ",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"51242396-6a26-4a7a-955c-7c84330d101e"],
" con quella della sua immagine ",
Cell[BoxData[
FormBox[
StyleBox["DA",
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"fba479c6-b6b6-4aaa-8704-6a6ae2647096"],
": queste lunghezze sono uguali per cui vale ",
Cell[BoxData[
FormBox[
StyleBox[
RowBox[{"PQ", "=", "DA"}],
FontSlant->"Italic"], TraditionalForm]],ExpressionUUID->
"51e3ed32-6e95-41d2-8511-8ffe5fa2b09a"],
" oppure, elevando al quadrato"
}], "Text",ExpressionUUID->"3af2751d-74b4-4ec7-b0a3-867cef00de2b"],
Cell[BoxData[
RowBox[{
SuperscriptBox["PQ", "2"], "=",
RowBox[{
SuperscriptBox["DA", "2"], "."}]}]], "DisplayFormula",
CellTags->
"relazione1",ExpressionUUID->"882e6cf7-db14-486f-b32e-043ef8f566c5"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"\[Alpha]", "=",
RowBox[{"170", "Degree"}]}], ",",
RowBox[{"\[Beta]", "=",
RowBox[{"115", "Degree"}]}]}], "}"}], ",",
RowBox[{
RowBox[{"pA", "=",
RowBox[{"{",
RowBox[{"1", ",", "0"}], "}"}]}], ";",
RowBox[{"pD", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], ",",
RowBox[{"Sin", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "}"}]}], ";",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"LightGreen", ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "1", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], "]"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "Gray", ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pP", ",", "pD"}], "}"}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"pQ", ",", "pA"}], "}"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Magenta", ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", ".2", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"55", "Degree"}]}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pP", ",",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "pQ"}], "}"}], "]"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "pD"}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"Red", ",", "Thick", ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pP", ",", "pQ"}], "}"}], "]"}], ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"pD", ",", "pA"}], "}"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Gray", ",",
RowBox[{"Circle", "[", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"AbsolutePointSize", "[", "4", "]"}], ",",
RowBox[{"Point", "[", "pP", "]"}], ",",
RowBox[{"Point", "[", "pQ", "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",",
RowBox[{"pP", "+",
RowBox[{"{",
RowBox[{
RowBox[{"-", ".02"}], ",", "0"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pQ", ",",
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\\"", ",", "pA", ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{
RowBox[{"Style", "[",
RowBox[{
"\"\\"", ",",
RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", "pD", ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\<\[Alpha]-\[Beta]\>\"", ",",
RowBox[{"{",
RowBox[{".35", ",", ".12"}], "}"}]}], "]"}]}], "}"}], "]"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.1"}], ",", "1.7"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"ImageSize", "->", "400"}]}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.535042356376354*^9, 3.535042418651554*^9}, {
3.535042465389154*^9, 3.535042511689954*^9}, {3.535042808682754*^9,
3.535042810445554*^9}, {3.5350429048099537`*^9, 3.5350430239939537`*^9}, {
3.5350430604511538`*^9, 3.535043105301154*^9}, {3.535043161523554*^9,
3.535043161788754*^9}, {3.535043273094754*^9, 3.535043310799954*^9}, {
3.535466424240554*^9, 3.5354665679789534`*^9}, {3.865932528478606*^9,
3.8659325648591037`*^9}},
CellTags->"figura1",ExpressionUUID->"ec04b7f5-5bba-485a-a513-af8b11fb5703"],
Cell[BoxData[
GraphicsBox[{
{RGBColor[0.88, 1, 0.88],
DiskBox[{0, 0}, 1, NCache[{0, 55 Degree}, {0, 0.9599310885968813}]]},
{GrayLevel[0.5], Dashing[{Small, Small}],
ArrowBox[NCache[{{-Cos[10 Degree], Sin[10 Degree]}, {
Sin[35 Degree], Cos[35 Degree]}}, {{-0.984807753012208,
0.17364817766693033`}, {0.573576436351046, 0.8191520442889918}}]],
ArrowBox[NCache[{{-Sin[25 Degree], Cos[25 Degree]}, {1,
0}}, {{-0.42261826174069944`, 0.9063077870366499}, {1, 0}}]]},
{RGBColor[1, 0, 1],
DiskBox[{0, 0}, 0.2, NCache[{0, 55 Degree}, {0, 0.9599310885968813}]]},
LineBox[NCache[{{-Cos[10 Degree], Sin[10 Degree]}, {0,
0}, {-Sin[25 Degree], Cos[25 Degree]}}, {{-0.984807753012208,
0.17364817766693033`}, {0, 0}, {-0.42261826174069944`,
0.9063077870366499}}]],
LineBox[NCache[{{0, 0}, {Sin[35 Degree], Cos[35 Degree]}}, {{0, 0}, {
0.573576436351046, 0.8191520442889918}}]],
{RGBColor[1, 0, 0], Thickness[Large],
LineBox[NCache[{{-Cos[10 Degree], Sin[10 Degree]}, {-Sin[25 Degree], Cos[
25 Degree]}}, {{-0.984807753012208,
0.17364817766693033`}, {-0.42261826174069944`, 0.9063077870366499}}]],
LineBox[NCache[{{Sin[35 Degree], Cos[35 Degree]}, {1, 0}}, {{
0.573576436351046, 0.8191520442889918}, {1, 0}}]]},
{GrayLevel[0.5], CircleBox[{0, 0}]},
{RGBColor[1, 0, 0], AbsolutePointSize[4],
PointBox[NCache[{-Cos[10 Degree], Sin[10 Degree]}, {-0.984807753012208,
0.17364817766693033`}]],
PointBox[NCache[{-Sin[25 Degree], Cos[25 Degree]}, {-0.42261826174069944`,
0.9063077870366499}]]},
InsetBox["\<\"P\"\>",
NCache[{-1.004807753012208, Sin[10 Degree]}, {-1.004807753012208,
0.17364817766693033`}], ImageScaled[{Rational[1, 2], 0}]],
InsetBox["\<\"Q\"\>",
NCache[{-Sin[25 Degree], Cos[25 Degree]}, {-0.42261826174069944`,
0.9063077870366499}], ImageScaled[{1, 0}]],
InsetBox["\<\"A\"\>", {1, 0}, ImageScaled[{0, 0}]], InsetBox[
StyleBox["\<\"D(cos(\[Alpha]-\[Beta]), sen(\[Alpha]-\[Beta]))\"\>",
StripOnInput->False,
FontSize->12],
NCache[{Sin[35 Degree], Cos[35 Degree]}, {0.573576436351046,
0.8191520442889918}], ImageScaled[{0, 0}]],
InsetBox["\<\"\[Alpha]-\[Beta]\"\>", {0.35, 0.12}]},
Axes->True,
BaseStyle->{FontSize -> 9},
ImageSize->400,
PlotRange->{{-1.1, 1.7}, {-1.1, 1.1}},
Ticks->{{{-1,
FormBox[
RowBox[{"-", "1"}], TraditionalForm]}, {0,
FormBox["0", TraditionalForm]}, {1,
FormBox["1", TraditionalForm]}}, {{-1,
FormBox[
RowBox[{"-", "1"}], TraditionalForm]}, {0,
FormBox["0", TraditionalForm]}, {1,
FormBox["1", TraditionalForm]}}}]], "Output",
CellChangeTimes->{
3.502020450240356*^9, 3.5350312888711576`*^9, {3.535042369105954*^9,
3.5350423863595543`*^9}, 3.535042420086754*^9, {3.535042466886754*^9,
3.5350425124543543`*^9}, 3.535042811147554*^9, {3.535042934652754*^9,
3.535042957007554*^9}, {3.535043000905954*^9, 3.535043024758354*^9},
3.5350430630407543`*^9, 3.535043106299554*^9, 3.535043162194354*^9, {
3.535043283078754*^9, 3.535043311673554*^9}, 3.535044465265354*^9,
3.535044847896554*^9, 3.5350461603401537`*^9, 3.535219086467763*^9,
3.5354659682369537`*^9, 3.5354660677961535`*^9, 3.5354661153293533`*^9,
3.5354664469853535`*^9, {3.535466481133754*^9, 3.5354665686185536`*^9},
3.535474330195964*^9, 3.589889402624343*^9, {3.865932511923633*^9,
3.865932534635701*^9}, 3.865932565812145*^9, 3.865936370148263*^9},
CellTags->"figura1",ExpressionUUID->"0e6da084-aa1a-44da-b3e3-abdab284fd24"]
}, {2}]],
Cell["", "NumberedFigure",
CellTags->"figura8",ExpressionUUID->"94be1470-5bb5-44c7-904f-4440410b1c41"]
}, Open ]],
Cell[CellGroupData[{
Cell["Formula di sottrazione per il coseno", "Subsection",ExpressionUUID->"69d65ce4-3a54-4f34-af56-8fd82cdb2479"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"8cc79689-073a-427f-b036-1e6981a044a8"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}]}], "}"}]}], ";"}]], "Input",
CellChangeTimes->{{3.5354646261367536`*^9,
3.5354646268075533`*^9}},ExpressionUUID->"caeb74d6-fc9b-4d1f-aa84-\
bc6f4797cb12"]
}, Closed]],
Cell[CellGroupData[{
Cell["Dimostrazione", "Subsubsection",ExpressionUUID->"37e7ad85-5cad-42dd-8501-b65dd8daf168"],
Cell[TextData[{
"Poich\[EAcute] i punti ",
Cell[BoxData[
FormBox["P", TraditionalForm]],ExpressionUUID->
"795af7b1-b05a-4ead-958e-69ad390d5c34"],
", ",
Cell[BoxData[
FormBox["Q", TraditionalForm]],ExpressionUUID->
"dcc524b9-d945-4682-98ea-4da09dbf5bef"],
", ",
Cell[BoxData[
FormBox["A", TraditionalForm]],ExpressionUUID->
"f5f1b907-9d52-4877-8219-6c00becf240e"],
" e ",
Cell[BoxData[
FormBox["D", TraditionalForm]],ExpressionUUID->
"44a42497-3503-448d-93ac-bd6f1493c6a5"],
" sono descritti dalle coppie ordinate"
}], "Text",ExpressionUUID->"038e4ebf-22d4-48dc-bae6-787f76539c6d"],
Cell[BoxData[{
RowBox[{
RowBox[{"pP", "=",
RowBox[{"{",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], ",",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pQ", "=",
RowBox[{"{",
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], ",",
RowBox[{"sen", "[", "\[Beta]", "]"}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pA", "=",
RowBox[{"{",
RowBox[{"1", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pD", "=",
RowBox[{"{",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], ",",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "}"}]}], ";"}]}], "Input",\
ExpressionUUID->"b1f9ae01-d83c-4726-9fc2-62ef3a65eff1"],
Cell[TextData[{
"ne segue che i quadrati dei segmenti ",
StyleBox["PQquadrato", "InlineInput"],
" e ",
StyleBox["DAquadrato ", "InlineInput"],
"in termini degli angoli ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"70b1ac41-f6d5-43e1-937e-ec4d63eaabc6"],
" e ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"6353dcbb-a14a-43d6-9cbd-dc166b85fbd0"],
" risultano"
}], "Text",ExpressionUUID->"683a44e1-d127-4224-9427-28e3970e5999"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\"\\"", ",",
RowBox[{"PQquadrato", "=",
RowBox[{"Plus", "@@",
SuperscriptBox[
RowBox[{"(",
RowBox[{"pP", "-", "pQ"}], ")"}], "2"]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\"\\"", ",",
RowBox[{"DAquadrato", "=",
RowBox[{"Plus", "@@",
SuperscriptBox[
RowBox[{"(",
RowBox[{"pD", "-", "pA"}], ")"}], "2"]}]}]}], "}"}]}], "}"}], "//",
"TableForm"}]], "Input",ExpressionUUID->"08ba8c58-91de-4a86-a1cf-\
f81257c27b8e"],
Cell[BoxData[
TagBox[GridBox[{
{"\<\"PQquadrato =\"\>",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "-",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "-",
RowBox[{"sen", "[", "\[Beta]", "]"}]}], ")"}], "2"]}]},
{"\<\"DAquadrato =\"\>",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "2"]}]}
},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{
3.5020204503027563`*^9, 3.535031288886758*^9, 3.535044465343354*^9,
3.5350448479901543`*^9, 3.535046160355754*^9, 3.535219086561363*^9, {
3.535465975662554*^9, 3.5354659821833534`*^9}, 3.5354660679053535`*^9,
3.5354661154229536`*^9, 3.535474330289564*^9, 3.589889402639943*^9,
3.865932657485952*^9,
3.865936370179512*^9},ExpressionUUID->"aba4b526-11b1-4b6f-8e50-\
815c3c83f627"]
}, {2}]],
Cell[TextData[{
"Posti, ",
ButtonBox["per quanto visto",
BaseStyle->"Hyperlink",
ButtonData:>"relazione1"],
", uguali ne discende l'equazione"
}], "Text",ExpressionUUID->"3bb04416-10ca-4317-a0e7-ed43958db36b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"PQquadrato", "==", "DAquadrato"}]], "Input",ExpressionUUID->"9e7eac30-f601-4e01-8387-062f80e404dc"],
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "-",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "-",
RowBox[{"sen", "[", "\[Beta]", "]"}]}], ")"}], "2"]}], "\[Equal]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "2"]}]}]], "Output",
CellChangeTimes->{
3.502020450333956*^9, 3.535031288902358*^9, 3.535044465405754*^9,
3.535044848036954*^9, 3.535046160371354*^9, 3.535219086608163*^9, {
3.5354659757093534`*^9, 3.5354659822457533`*^9}, 3.5354660679521537`*^9,
3.5354661154697533`*^9, 3.535474330351964*^9, 3.5898894026555433`*^9,
3.865932679644451*^9,
3.865936370195136*^9},ExpressionUUID->"6e99d971-80dd-4d23-8e91-\
d7ea2de51292"]
}, {2}]],
Cell["Possiamo ora eseguire i quadrati coinvolti nei due membri", "Text",ExpressionUUID->"6f8cba7c-aa27-42af-a2da-7f3c0421cd61"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Expand", "/@", "%"}]], "Input",ExpressionUUID->"77313a20-d65f-401f-9dfc-30da28eb1840"],
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
SuperscriptBox[
RowBox[{"cos", "[", "\[Beta]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"], "-",
RowBox[{"2", " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Beta]", "]"}], "2"]}], "\[Equal]",
RowBox[{"1", "-",
RowBox[{"2", " ",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "+",
SuperscriptBox[
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "2"]}]}]], "Output",
CellChangeTimes->{
3.502020450380756*^9, 3.535031288917958*^9, 3.5350444654525537`*^9,
3.535044848083754*^9, 3.5350461603869543`*^9, 3.5352190866549635`*^9, {
3.5354659757717533`*^9, 3.535465982292554*^9}, 3.535466067998954*^9,
3.535466115516554*^9, 3.5354743303987637`*^9, 3.589889402671143*^9, {
3.865932664939847*^9, 3.8659326836141944`*^9},
3.8659363702263837`*^9},ExpressionUUID->"e2eabf0c-34ba-440f-ae91-\
e09234f63e9c"]
}, {2}]],
Cell[TextData[{
"e quindi utilizzando l'identit\[AGrave] goniometrica fondamentale ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["sen", "2"], "\[Alpha]"}], "+",
RowBox[{
SuperscriptBox["cos", "2"], "\[Alpha]"}]}], "=", "1"}],
TraditionalForm]],ExpressionUUID->"370dd6b9-483d-4973-860b-a29407318853"],
", ",
"ridurre l'equazione alla forma equivalente pi\[UGrave] semplice"
}], "Text",ExpressionUUID->"cc01e897-e5b9-41d0-bce6-3b393ae5ca34"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "//.", "idFondamentale"}]], "Input",ExpressionUUID->"a1ad7a8e-8680-4d92-9aea-2bb271958069"],
Cell[BoxData[
RowBox[{
RowBox[{"2", "-",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{"2", " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}], "\[Equal]",
RowBox[{"2", "-",
RowBox[{"2", " ",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}]}]}]], "Output",
CellChangeTimes->{
3.502020450411956*^9, 3.5350312889335575`*^9, 3.535044465499354*^9,
3.535044848130554*^9, 3.535046160402554*^9, 3.535219086686163*^9, {
3.535465975818554*^9, 3.5354659823393536`*^9}, 3.5354660680613537`*^9,
3.5354661155633535`*^9, 3.5354743304455643`*^9, 3.589889402686743*^9, {
3.8659326725655613`*^9, 3.865932686490254*^9},
3.8659363702263837`*^9},ExpressionUUID->"61ee56a4-e95d-4056-8433-\
8dd757580cd3"]
}, {2}]],
Cell[TextData[{
"Sottraendo ",
Cell[BoxData[
FormBox["2", TraditionalForm]],ExpressionUUID->
"9fe57429-ff07-4fad-a990-189ddd895a8a"],
" ad entrambi i membri"
}], "Text",ExpressionUUID->"a3fd548f-d36e-4d24-a4cf-496d6b259242"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "-", "2"}]], "Input",ExpressionUUID->"0c567a84-02dc-4d20-8f91-a874885c5f6b"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{"2", " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}], "\[Equal]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}]}]], "Output",
CellChangeTimes->{
3.5020204504431562`*^9, 3.5350312889491577`*^9, 3.535044465561754*^9,
3.535044848177354*^9, 3.535046160418154*^9, 3.535219086732963*^9, {
3.5354659758653536`*^9, 3.5354659824017534`*^9}, 3.5354660681081533`*^9,
3.5354661156101537`*^9, 3.535474330492364*^9, 3.589889402686743*^9,
3.8659326896931715`*^9,
3.8659363702576313`*^9},ExpressionUUID->"c63095d0-8287-448e-b300-\
7d8ec30d04b6"]
}, {2}]],
Cell[TextData[{
"e, dopo aver diviso per ",
Cell[BoxData[
FormBox[
RowBox[{"-", "2"}], TraditionalForm]],ExpressionUUID->
"dc9565f1-4694-4f4b-baf5-b8128737bfe1"],
", scambiamo i due membri e semplifichiamo"
}], "Text",ExpressionUUID->"dffb7b6f-a3e1-4936-bc08-afeefd063d78"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"scambia", "[",
RowBox[{"%", "/",
RowBox[{"-", "2"}]}], "]"}], "//", "Simplify"}]], "Input",ExpressionUUID->\
"a0d5d8b2-0f34-4814-ade4-4dee796edd3b"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{
3.5020204504743557`*^9, 3.535031288964758*^9, 3.535044465608554*^9,
3.535044848224154*^9, 3.535046160433754*^9, 3.535219086779763*^9, {
3.5354659759121532`*^9, 3.5354659824485536`*^9}, 3.535466068154954*^9,
3.535466115656954*^9, 3.535474330539164*^9, 3.589889402702343*^9,
3.8659326934754143`*^9,
3.8659363702732553`*^9},ExpressionUUID->"3e4fd894-816d-42d8-a596-\
8f94f05344e7"]
}, {2}]],
Cell["\<\
In definitiva siamo giunti a dimostrare la validit\[AGrave] dell'espressione\
\>", "Text",ExpressionUUID->"3b2523dc-dee4-4ac5-91a4-c9706ed8766b"],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "=",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"cos", "(", "\[Beta]", ")"}]}], "+",
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}]}], TraditionalForm]], "Output",
CellChangeTimes->{{3.535030302678558*^9, 3.535030302678558*^9},
3.589889402717943*^9},ExpressionUUID->"44c3049b-67ea-4bb5-8a78-\
4e687fb6bd05"],
Cell["\<\
Il coseno di una differenza \[EGrave] pertanto, ben diverso dall'aspettativa \
ingenua che lo \"vorrebbe\" pari alla differenza dei coseni! In termini pi\
\[UGrave] formali questa identit\[AGrave] (e le analoghe seguenti) dimostrano \
che le funzioni goniometriche non sono delle funzioni lineari dei propri \
argomenti.\
\>", "Text",ExpressionUUID->"da38e24e-5f4e-452f-a928-e200ec47b205"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Formule di addizione e sottrazione", "Section",ExpressionUUID->"eefd1f37-136c-42b9-8a31-ea3f48f04b63"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"e45d8674-2c5e-432a-857f-8c7c91823268"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff"}],
"}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]}], "}"}]}], ";"}]], "Input",\
ExpressionUUID->"08838256-170d-446a-b999-21ed8fa6f542"]
}, Closed]],
Cell[CellGroupData[{
Cell["Formula di addizione per il coseno", "Subsection",ExpressionUUID->"81bacf20-8d6b-4df8-bc6f-ddd33e61f4cb"],
Cell[TextData[{
"La precedente identit\[AGrave] collega il ",
StyleBox["coseno della differenza di due angoli",
FontSlant->"Italic"],
" ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"c6e86516-12fe-4404-9070-e39103620795"],
" e ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"f5123073-57ed-4eb0-bc13-348326af1a61"],
" con le funzioni goniometriche di questi e costituisce la ",
StyleBox["formula di sottrazione per il coseno",
FontSlant->"Italic"],
". Questo risultato si pu\[OGrave] facilmente estendere e in questa sezione \
otterremo, per prima, la corrispondente formula di addizione e \
successivamente le formule di addizione e sottrazione per seno e tangente. A \
tal fine sostituiamo nell'identit\[AGrave] appena dimostrata"
}], "Text",ExpressionUUID->"d0a00e16-f333-432e-a434-d13c2743dd59"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "cosDiff", "]"}]], "Input",ExpressionUUID->"37a2fdb4-a31b-4492-adeb-16e4a2ca1e2a"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{
3.502020450567956*^9, 3.535031288980358*^9, 3.535044465733354*^9,
3.535044848333354*^9, 3.535046160464954*^9, 3.5352190868577633`*^9, {
3.5354659933217535`*^9, 3.5354659999205537`*^9}, 3.5354660682329535`*^9,
3.5354661157817535`*^9, 3.535466671048154*^9, 3.535474330648364*^9,
3.589889402733543*^9, 3.8659335546956797`*^9,
3.8659363703045025`*^9},ExpressionUUID->"c58a72e0-151d-478c-a3ab-\
d71a8630924b"]
}, {2}]],
Cell[TextData[{
"all'angolo ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"9a7c42ea-b69c-4fc3-b06b-b80adcfd5386"],
" l'angolo ",
Cell[BoxData[
FormBox[
RowBox[{"-", "\[Beta]"}], TraditionalForm]],ExpressionUUID->
"1d2a6adc-38ac-41e5-b8a2-b1c44ba52ed6"]
}], "Text",ExpressionUUID->"48bcc04d-2805-440b-a018-f371240aa957"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Beta]", "\[Rule]",
RowBox[{"-", "\[Beta]"}]}]}]], "Input",ExpressionUUID->"0b9dd5c1-56c4-4cec-\
a626-2640fad7319d"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[",
RowBox[{"-", "\[Beta]"}], "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[",
RowBox[{"-", "\[Beta]"}], "]"}]}]}]}]], "Output",
CellChangeTimes->{3.502020450599156*^9, 3.535031288995958*^9,
3.535044465842554*^9, 3.5350448483801537`*^9, 3.535046160480554*^9,
3.535219086904563*^9, 3.535466007907754*^9, 3.535466068295354*^9,
3.5354661158285537`*^9, 3.535474330726364*^9, 3.589889402733543*^9,
3.865933554726928*^9,
3.865936370320127*^9},ExpressionUUID->"e2138083-e038-4877-933f-\
df197e85e579"]
}, {2}]],
Cell[TextData[{
"Tenendo presente quanto gi\[AGrave] dimostrato ossia che il seno \[EGrave] \
una funzione ",
ButtonBox["dispari",
BaseStyle->"Hyperlink",
ButtonData:>"senodispari"],
" valendo ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{"-", "\[Beta]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}], TraditionalForm]],
ExpressionUUID->"4be51bb4-8237-47f3-9711-44c59c99613b"],
" mentre il coseno \[EGrave] ",
ButtonBox["pari",
BaseStyle->"Hyperlink",
ButtonData:>"cosenopari"],
" dato che ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{"cos", "(",
RowBox[{"-", "\[Beta]"}], ")"}], "=",
RowBox[{"cos", "(", "\[Beta]", ")"}]}], ",", " ",
RowBox[{"\[ForAll]", " ",
RowBox[{
"\[Beta]", " ", "\[Element]", " ", "\[DoubleStruckCapitalR]"}]}]}],
TraditionalForm]],ExpressionUUID->"c839f2c4-1e0a-4ff2-a074-2c1d2b706e26"],
", l'espressione precedente diviene "
}], "Text",ExpressionUUID->"bb26dfe6-82ce-42ca-abec-e1783dcea999"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "senOpp"}], "/.", "cosOpp"}]], "Input",ExpressionUUID->\
"1a81b0cb-aa62-4d97-bf2d-39088f7ffff0"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{3.502020450645956*^9, 3.5350312890115576`*^9,
3.5350444658893538`*^9, 3.5350448484269543`*^9, 3.535046160496154*^9,
3.535219086998163*^9, 3.535466011105754*^9, 3.5354660683421535`*^9,
3.535466115875354*^9, 3.535474330773164*^9, 3.5898894027491426`*^9,
3.865933554726928*^9,
3.8659363703513746`*^9},ExpressionUUID->"3aec06cf-f066-4419-a4be-\
54d00bc28549"]
}, {2}]],
Cell[TextData[{
"Il coseno della somma in termini delle funzioni di ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"2e4a9377-ec37-4791-9363-a24ce0f26cf6"],
" e ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"9f9328e3-ec90-418e-8f0d-3e43a965d88b"],
" risulta quindi "
}], "Text",ExpressionUUID->"a4e42445-9b59-4de4-81f9-1e6481ac528f"],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}], "=",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"cos", "(", "\[Beta]", ")"}]}], "-",
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}]}], TraditionalForm]], "Output",
CellChangeTimes->{
3.589889402764743*^9},ExpressionUUID->"2f3ae5ff-143a-41ad-ab83-\
d1d57c05d83c"]
}, Open ]],
Cell[CellGroupData[{
Cell["Formule di addizione e sottrazione per il seno", "Subsection",ExpressionUUID->"4da61f41-39eb-47cd-916e-d0409d91a2ad"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"4f44df48-f503-4de5-bf5e-798a2b3a47ee"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]}], "}"}]}], ";"}]], "Input",\
ExpressionUUID->"02157b99-2a3c-405c-aadb-12b38703259c"]
}, Closed]],
Cell[CellGroupData[{
Cell["Seno della differenza", "Subsubsection",ExpressionUUID->"306e51c3-3660-4a5f-939c-e9f39fa21673"],
Cell[TextData[{
"Sfruttiamo l'identit\[AGrave] ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], "=",
RowBox[{
RowBox[{"cos", "(",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], ")"}], Cell[
"",ExpressionUUID->"fd218498-2fa2-474c-a3eb-45c1e9a611e0"]}]}],
TraditionalForm]],ExpressionUUID->"91675509-5d74-40e3-a6eb-d4b43a990964"],
"per dedurre la formula di sottrazione per la funzione seno."
}], "Text",
CellTags->"id1",ExpressionUUID->"8391dee5-2d77-4f24-a710-17f26038dda7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-",
RowBox[{"(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}]}], "]"}]}]], "Input",Expressi\
onUUID->"8fb4be45-e1ca-4f45-8814-fb578e311db9"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]", "+", "\[Beta]"}],
"]"}]}]], "Output",
CellChangeTimes->{3.5020204507395563`*^9, 3.535031289042758*^9,
3.535044466014154*^9, 3.535044848536154*^9, 3.5350461605273542`*^9,
3.5352190870917635`*^9, 3.5354645655307536`*^9, 3.535466068435754*^9,
3.535466115953354*^9, 3.535474330866764*^9, 3.589889402764743*^9,
3.865933562540203*^9,
3.8659363703826227`*^9},ExpressionUUID->"b4247387-16a1-4030-81bc-\
f106aebd00ca"]
}, {2}]],
Cell[TextData[{
"e, in base alla propriet\[AGrave] associativa, riscriviamo il secondo \
membro sostituendo a ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "=", "\[Gamma]"}],
TraditionalForm]],ExpressionUUID->"a814e73d-60d3-4892-9071-2d382ae6b6ac"],
" "
}], "Text",ExpressionUUID->"1e6433fe-08bc-4492-8d36-167265a9c93b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "\[Rule]",
"\[Gamma]"}]}]], "Input",ExpressionUUID->"d62f8150-feef-4b60-bb76-\
179fd6094f46"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{"cos", "[",
RowBox[{"\[Beta]", "+", "\[Gamma]"}], "]"}]}]], "Output",
CellChangeTimes->{3.502020450770756*^9, 3.5350312890583577`*^9,
3.535044466060954*^9, 3.535044848582954*^9, 3.535046160542954*^9,
3.535219087122963*^9, 3.5354660684981537`*^9, 3.5354661160001535`*^9,
3.5354743309135637`*^9, 3.589889402780343*^9, 3.865933562540203*^9,
3.8659363703826227`*^9},ExpressionUUID->"d4f1f82b-41ff-4143-b4ba-\
57329fda2c3b"]
}, {2}]],
Cell[TextData[{
"Possiamo ora applicare la ",
ButtonBox["formula di addizione per il coseno",
BaseStyle->"Hyperlink",
ButtonData:>"cosSomma"],
" appena ottenuta"
}], "Text",ExpressionUUID->"7bcebe34-a24a-4566-b1f2-c686dd94eb10"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "cosAdd"}]], "Input",ExpressionUUID->"7c66bbe7-3c77-41d1-bbdf-f975acd25eb8"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"cos", "[", "\[Gamma]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Gamma]", "]"}]}]}]}]], "Output",
CellChangeTimes->{3.502020450817556*^9, 3.5350312890583577`*^9,
3.535044466123354*^9, 3.535044848629754*^9, 3.5350461605585537`*^9,
3.535219087169763*^9, 3.5354660685449533`*^9, 3.5354661160469537`*^9,
3.535474330975964*^9, 3.589889402780343*^9, 3.865933562571451*^9,
3.8659363704138703`*^9},ExpressionUUID->"9ce7fdf5-7086-4898-9227-\
b04cd5086281"]
}, {2}]],
Cell[TextData[{
"e ritornando ad esprimere ",
Cell[BoxData[
FormBox["\[Gamma]", TraditionalForm]],ExpressionUUID->
"687ca827-322d-440c-bcdf-7ca1938dff61"],
" in termini di ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"43714f67-a05d-45d2-9794-f4a7f4dac56b"]
}], "Text",ExpressionUUID->"d44578da-5dd1-48e7-817f-27d4b0cb7b2d"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Gamma]", "->",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}]}]}]], "Input",ExpressionUUID->\
"e21ab43a-c79e-4538-8750-5b6f3a1e840a"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{3.502020450848756*^9, 3.5350312890739574`*^9,
3.535044466170154*^9, 3.5350448486765537`*^9, 3.535046160574154*^9,
3.535219087216563*^9, 3.5354660685917535`*^9, 3.535466116093754*^9,
3.535474331022764*^9, 3.5898894027959433`*^9, 3.865933562571451*^9,
3.865936370445118*^9},ExpressionUUID->"52331a1f-d241-44c8-937e-\
1ef686f286dd"]
}, {2}]],
Cell[TextData[{
"Per l'identit\[AGrave] gi\[AGrave] ",
ButtonBox["ricordata",
BaseStyle->"Hyperlink",
ButtonData:>"id1"],
" e per quella analoga riguardante il seno di angoli complementari ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], ")"}], "=",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}], TraditionalForm]],ExpressionUUID->
"58760928-9c7f-4ab8-b058-9aca8a109df3"],
", la precedente fornisce "
}], "Text",ExpressionUUID->"f3139542-5a03-48f1-80ab-80a6b6c64379"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "senCompl"}], "/.", "cosCompl"}]], "Input",ExpressionUUID\
->"741717af-5fc0-4eaa-8bc7-b4046e92dbb0"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{3.5020204508799562`*^9, 3.5350312890895576`*^9,
3.535044466216954*^9, 3.535044848770154*^9, 3.535046160589754*^9,
3.535219087263363*^9, 3.5354660686385536`*^9, 3.5354661161405535`*^9,
3.535474331069564*^9, 3.589889402811543*^9, 3.8659335626026993`*^9,
3.865936370460742*^9},ExpressionUUID->"7eb0b332-1048-4cdc-b4d1-\
372a055a1309"]
}, {2}]],
Cell["che \[EGrave] quanto si voleva ottenere.", "Text",ExpressionUUID->"c28329e6-ff3e-421b-a463-6e9e0e493506"]
}, Open ]],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.865936073129594*^9,
3.865936076896244*^9}},ExpressionUUID->"63f3aac4-85eb-45cd-a82c-\
bdefe860db27"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"senDiff", "=",
RowBox[{"toRule", "[", "%", "]"}]}]], "Input",ExpressionUUID->"4b8b463d-\
938f-44df-87a5-d4c34ecdf021"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{3.5020204509111557`*^9, 3.535031289105158*^9,
3.535044466263754*^9, 3.5350448488169537`*^9, 3.5350461606053543`*^9,
3.5352190872945633`*^9, 3.5354660686853533`*^9, 3.5354661161873536`*^9,
3.535474331116364*^9, 3.589889402811543*^9, 3.8659335626026993`*^9,
3.86593637049199*^9},ExpressionUUID->"da1c36d3-64a3-468a-a334-69c72593553a"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"60290cd7-b4ed-48fe-8f3e-03f17e062e6e"],
Cell[BoxData[{
RowBox[{
RowBox[{"senDiffEq", "=",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd", ",", "senDiff"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]}], "}"}]}],
";"}]}], "Input",ExpressionUUID->"8aad7d08-358d-445a-9fb0-465e6dea68e9"]
}, Closed]],
Cell[CellGroupData[{
Cell["Seno della somma", "Subsubsection",ExpressionUUID->"52e39142-993f-493b-9975-297b8ae0de77"],
Cell[TextData[{
"Nello stesso modo seguito per il coseno, sostituiamo a ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"9685219b-855b-45d4-a801-5c9881efe468"],
" l'angolo ",
Cell[BoxData[
FormBox[
RowBox[{"-", "\[Beta]"}], TraditionalForm]],ExpressionUUID->
"af701d0f-27b6-42be-beb7-5e2837cdb2f3"]
}], "Text",ExpressionUUID->"5d52e0eb-0fa7-4902-b1d7-2ac71ad1beb1"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"toIdentita", "[", "senDiff", "]"}], "/.",
RowBox[{"\[Beta]", "\[Rule]",
RowBox[{"-", "\[Beta]"}]}]}]], "Input",ExpressionUUID->"7526ce7a-892a-4837-\
924b-69f9f32585fd"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Beta]"}], "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[",
RowBox[{"-", "\[Beta]"}], "]"}]}]}]}]], "Output",
CellChangeTimes->{
3.502020450973556*^9, 3.535031289120758*^9, 3.535044466341754*^9,
3.5350448488949537`*^9, 3.535046160620954*^9, 3.5352190873725634`*^9,
3.5354660688257537`*^9, 3.5354661162653537`*^9, 3.535474331194364*^9,
3.5898894028271427`*^9, {3.865933562633947*^9, 3.865933574370117*^9},
3.8659363705232377`*^9},ExpressionUUID->"2663280f-d85a-4899-884e-\
73767e48491d"]
}, {2}]],
Cell[TextData[{
"Per le propriet\[AGrave] di simmetria del ",
ButtonBox["seno",
BaseStyle->"Hyperlink",
ButtonData:>"senodispari"],
" ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{"-", "\[Beta]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}], TraditionalForm]],
ExpressionUUID->"1d42fc3f-025c-46c9-84e8-1cdfa362cb2f"],
" e del ",
ButtonBox["coseno",
BaseStyle->"Hyperlink",
ButtonData:>"cosenopari"],
", ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{"-", "\[Beta]"}], ")"}], "=",
RowBox[{"cos", "(", "\[Beta]", ")"}]}], TraditionalForm]],ExpressionUUID->
"c587fc57-423d-44b9-aee4-a4287fed3c0f"],
" ",
Cell[BoxData[
FormBox[
RowBox[{"\[ForAll]",
RowBox[{"\[Beta]", " ", "\[Element]", " ", "\[DoubleStruckCapitalR]"}]}],
TraditionalForm]],ExpressionUUID->"a86de5bb-ac72-4cf7-aaca-93d1368c76b5"],
", otteniamo"
}], "Text",
CellChangeTimes->{{3.8659345231466584`*^9,
3.8659345238028708`*^9}},ExpressionUUID->"7173fe56-d891-4866-bf73-\
3771e2481e11"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "senOpp"}], "/.", "cosOpp"}]], "Input",ExpressionUUID->\
"c5f2985e-b5f7-4040-9e36-f79593a17252"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{
3.502020451004756*^9, 3.535031289120758*^9, 3.535044466404154*^9,
3.5350448489417543`*^9, 3.535046160636554*^9, 3.535219087419363*^9,
3.535466068872554*^9, 3.535466116312154*^9, 3.535474331241164*^9,
3.5898894028271427`*^9, {3.8659335626651945`*^9, 3.865933574401349*^9},
3.8659363705388613`*^9},ExpressionUUID->"f0fe6092-d094-469c-bcf8-\
68ebfea3a38d"]
}, {2}]],
Cell["\<\
Riassumiamo in un'unica espressione le due identit\[AGrave] dimostrate\
\>", "Text",ExpressionUUID->"3647d08f-d69c-4080-a1ee-b9b2de6861bc"],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "\[PlusMinus]", "\[Beta]"}], ")"}], "=",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Beta]", ")"}], " ",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}], "\[PlusMinus]",
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}]}], TraditionalForm]], "Output",
CellChangeTimes->{{3.535030161358158*^9, 3.535030161358158*^9},
3.589889402842743*^9},ExpressionUUID->"38b279b3-ad9e-41ac-812f-\
d15a4847f71d"],
Cell["\<\
intendendo che i segni vanno considerati nell'ordine indicato ossia il segno \
superiore a primo membro va associato al segno superiore a secondo e cos\
\[IGrave] per quello inferiore.\
\>", "Text",ExpressionUUID->"70fc9e65-bcc9-4bbe-92da-be643ab5a19e"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Formule di addizione e sottrazione per la tangente", "Subsection",ExpressionUUID->"87c71540-3b45-47fa-aff4-6733b42fe5dc"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"6889d2fc-7dd9-4c2b-8d10-f5e67e4bc60e"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd", ",", "senDiff", ",", "senAdd"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]}], "}"}]}], ";"}]], "Input",\
ExpressionUUID->"e7923e2c-091f-4842-ad9e-7134c7381a83"]
}, Closed]],
Cell[CellGroupData[{
Cell["Tangente della somma", "Subsubsection",ExpressionUUID->"d29882fb-85a4-4ff9-8f2f-3c45bbb9ef77"],
Cell["\<\
Sfruttiamo le identit\[AGrave] appena trovate per dimostrare quelle \
coinvolgenti la tangente di una somma o di una differenza. Poich\[EAcute] la \
tangente di un angolo si pu\[OGrave] esprimere come il rapporto tra il seno e \
il coseno, abbiamo \
\>", "Text",ExpressionUUID->"da255db3-efb7-4d88-9baa-fd94468fb5ab"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}],
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]]}]], "Input",ExpressionUUID->\
"6849dbb1-d17e-4f46-886c-acac145152a8"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}],
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]]}]], "Output",
CellChangeTimes->{3.5020204510983562`*^9, 3.5350312891519575`*^9,
3.535044466528954*^9, 3.535044849050954*^9, 3.535046160667754*^9,
3.535219087497363*^9, 3.5354660689661536`*^9, 3.535466116390154*^9,
3.535474331334764*^9, 3.589889402858343*^9, 3.8659335819647007`*^9,
3.8659363705701094`*^9},ExpressionUUID->"32c97339-d771-4d11-a33d-\
b889a57796ff"]
}, {2}]],
Cell["\<\
Sviluppiamo il numeratore e denominatore della precedente utilizzando le \
formule di addizione per il seno e coseno\
\>", "Text",ExpressionUUID->"0a1bc530-bc7c-4911-94b8-ecf22f5741a3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "senAdd"}], "/.", "cosAdd"}]], "Input",ExpressionUUID->\
"6d141c7e-cd96-49bd-aae3-b3190bd15abc"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}],
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]]}]], "Output",
CellChangeTimes->{3.5020204511295557`*^9, 3.5350312891675577`*^9,
3.535044466575754*^9, 3.535044849097754*^9, 3.535046160683354*^9,
3.535219087544163*^9, 3.5354660690129538`*^9, 3.5354661164369535`*^9,
3.535474331381564*^9, 3.5898894028739433`*^9, 3.8659335819959493`*^9,
3.8659363706013575`*^9},ExpressionUUID->"0d5886a5-a74c-481c-a73f-\
2fb1ba9ade45"]
}, {2}]],
Cell[TextData[{
"Supponendo ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}],
RowBox[{"cos", "(", "\[Beta]", ")"}]}], "\[NotEqual]", "0"}],
TraditionalForm]],ExpressionUUID->"3992a24b-5c32-4fa6-88aa-42b5e955db54"],
" cio\[EGrave] ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", ",",
RowBox[{"\[Beta]", "\[NotEqual]",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "k\[Pi]"}]}]}], TraditionalForm]],
ExpressionUUID->"8be063f1-06c9-44cd-aed7-913663356b90"],
", dividiamo numeratore e denominatore del secondo membro per tale termine"
}], "Text",ExpressionUUID->"976b620e-b8c6-4757-8846-f9f4e92a0165"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"HoldForm", "[",
RowBox[{"#", "/",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"cos", "[", "\[Beta]", "]"}]}], ")"}]}], "]"}], "&"}]}],
"]"}]], "Input",ExpressionUUID->"599d98cb-959f-4720-8f8d-707865406437"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
TagBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}],
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}]],
HoldForm],
TagBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}],
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}]],
HoldForm]]}]], "Output",
CellChangeTimes->{3.502020451160756*^9, 3.535031289183158*^9,
3.535044466638154*^9, 3.535044849144554*^9, 3.535046160714554*^9,
3.5352190875909634`*^9, 3.5354660690753536`*^9, 3.5354661164837537`*^9,
3.535474331443964*^9, 3.5898894028739433`*^9, 3.8659335819959493`*^9,
3.8659363706326675`*^9},ExpressionUUID->"04c24132-0495-40d6-9906-\
aa34e67272f3"]
}, {2}]],
Cell["\<\
e quindi semplificando e tenendo conto della definizione di tangente in \
termini del seno e coseno, gli elementi coinvolti a secondo membro divengono \
rispettivamente\
\>", "Text",ExpressionUUID->"a88e1999-2e69-4dd7-b2f6-62016f93e27f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"Apart", "[",
RowBox[{"rilascia", "[", "#", "]"}], "]"}], "&"}]}], "]"}]], "Input",Expr\
essionUUID->"b36ca2ae-7a50-46f7-adc8-5d4a83cb3790"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}],
RowBox[{"cos", "[", "\[Alpha]", "]"}]], "+",
FractionBox[
RowBox[{"sen", "[", "\[Beta]", "]"}],
RowBox[{"cos", "[", "\[Beta]", "]"}]]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}],
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}]]}]]}]], "Output",
CellChangeTimes->{3.502020451191956*^9, 3.535031289198758*^9,
3.5350444666849537`*^9, 3.535044849191354*^9, 3.535046160730154*^9,
3.535219087637763*^9, 3.5354660691221533`*^9, 3.535466116530554*^9,
3.5354743314907637`*^9, 3.589889402889543*^9, 3.8659335820271835`*^9,
3.865936370648229*^9},ExpressionUUID->"32b2aa66-537e-47d1-a96e-\
eddafe17aaa4"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "//.", "id4"}]], "Input",ExpressionUUID->"9a12162c-c531-4ac0-b574-ebf5828a8450"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}]], "Output",
CellChangeTimes->{3.502020451238756*^9, 3.535031289198758*^9,
3.5350444667317543`*^9, 3.535044849238154*^9, 3.535046160730154*^9,
3.535219087684563*^9, 3.5354660691845536`*^9, 3.5354661165773535`*^9,
3.5354743315375643`*^9, 3.589889402889543*^9, 3.8659335820271835`*^9,
3.8659345556350036`*^9,
3.8659363706794767`*^9},ExpressionUUID->"61e47159-84cf-4470-854b-\
e8e75bbfae72"]
}, {2}]],
Cell["che \[EGrave] la formula cercata.", "Text",ExpressionUUID->"ef98266c-351d-4b87-9261-cf7ae294c07d"]
}, Open ]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"a3220a5a-34a8-40d9-b1af-b387fb19d470"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd", ",", "senDiff", ",", "senAdd", ",", "tanAdd"}], "}"}],
"=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}]}], "}"}]}],
";"}]], "Input",ExpressionUUID->"b3b9ad0e-84a9-4ba0-9283-0d43184d8a88"]
}, Closed]],
Cell[CellGroupData[{
Cell["Tangente della differenza", "Subsubsection",ExpressionUUID->"e4b726c1-737c-48a2-9faa-13eda7800a1a"],
Cell[TextData[{
"Per ottenere la formula corrispondente e relativa alla differenza degli \
angoli, procediamo alla sostituzione ",
Cell[BoxData[
FormBox[
RowBox[{"\[Beta]", "\[RightArrow]",
RowBox[{"-", "\[Beta]"}]}], TraditionalForm]],ExpressionUUID->
"5c6bb815-115b-47e8-95a6-ff3a2ed00ae7"]
}], "Text",ExpressionUUID->"a9ff7b1d-a50d-48b4-86a6-72d86b7a7f4a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"toIdentita", "[", "tanAdd", "]"}], "/.",
RowBox[{"\[Beta]", "\[Rule]",
RowBox[{"-", "\[Beta]"}]}]}]], "Input",ExpressionUUID->"d6f4f06c-834d-457f-\
9a50-4280d5f1e10a"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[",
RowBox[{"-", "\[Beta]"}], "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[",
RowBox[{"-", "\[Beta]"}], "]"}]}]}]]}]], "Output",
CellChangeTimes->{
3.502020451332356*^9, 3.5350312892299576`*^9, 3.535044466918954*^9,
3.535044849347354*^9, 3.5350461607769537`*^9, 3.535219087793763*^9,
3.5354660693405533`*^9, 3.5354661167021537`*^9, 3.535474331662364*^9,
3.589889402905143*^9, {3.865933582058442*^9, 3.865933592997775*^9},
3.865936370710725*^9},ExpressionUUID->"9fc7d4b8-dc82-4e8e-95ee-\
d6f5dafb77bc"]
}, {2}]],
Cell[TextData[{
"Ricordando che la tangente \[EGrave] una funzione ",
ButtonBox["dispari",
BaseStyle->"Hyperlink",
ButtonData:>"tandispari"],
" che soddisfa quindi alla identit\[AGrave] ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{"-", "\[Beta]"}], ")"}], "=",
RowBox[{"-",
RowBox[{"tan", "(", "\[Beta]", ")"}]}]}], TraditionalForm]],
ExpressionUUID->"703f7c37-ffc0-40b4-a709-32465c469acb"],
" giungiamo infine alla"
}], "Text",ExpressionUUID->"10359b47-cc9d-4bb1-8529-78bb13a4316c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "tanOpp"}]], "Input",ExpressionUUID->"b614f41d-3dc5-4591-9a42-6d9ec4b9c8c9"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "-",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "+",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}]], "Output",
CellChangeTimes->{
3.502020451363556*^9, 3.535031289245558*^9, 3.535044466965754*^9,
3.535044849394154*^9, 3.535046160792554*^9, 3.5352190878405633`*^9,
3.5354660694029536`*^9, 3.5354661167801533`*^9, 3.535474331740364*^9,
3.589889402905143*^9, {3.865933582089679*^9, 3.8659335930290236`*^9},
3.865936370710725*^9},ExpressionUUID->"8b464e0a-a006-4b8f-8913-\
58b0ea682a1d"]
}, {2}]],
Cell["\<\
In definitiva le formule di addizione e sottrazione per la tangente sono\
\>", "Text",ExpressionUUID->"7186c896-8943-429c-a439-57bf7da03489"],
Cell[BoxData[
FormBox[
InterpretationBox[Cell[BoxData[
FormBox[Cell[BoxData[
FormBox[
RowBox[{
FormBox[
FormBox[
StyleBox[
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Alpha]", "\[PlusMinus]", "\[Beta]"}], ")"}], "=",
FractionBox[
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], "\[PlusMinus]",
RowBox[{"tan", "(", "\[Beta]", ")"}]}],
RowBox[{"1", "\[MinusPlus]",
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}],
RowBox[{"tan", "(", "\[Beta]", ")"}]}]}]]}],
TraditionalForm], "DisplayFormula"],
TraditionalForm],
TraditionalForm], "\t", "con", " \t",
FormBox[
RowBox[{"\[Alpha]", ",",
RowBox[{"\[Beta]", "\[NotEqual]",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "k\[Pi]"}]}]}],
TraditionalForm]}], TraditionalForm]],ExpressionUUID->
"db4a51ce-67ac-4aa9-ad16-eb2e90ee8aa5"], TraditionalForm]],
ExpressionUUID->"0ee50432-5a9d-4eae-a415-ee07ee0fed3d"],
TextCell[
RawBoxes[
Cell[
BoxData[
FormBox[
RowBox[{
FormBox[
FormBox[
StyleBox[
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Alpha]", "\[PlusMinus]", "\[Beta]"}], ")"}], "=",
FractionBox[
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], "\[PlusMinus]",
RowBox[{"tan", "(", "\[Beta]", ")"}]}],
RowBox[{"1", "\[MinusPlus]",
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}],
RowBox[{"tan", "(", "\[Beta]", ")"}]}]}]]}],
TraditionalForm], "DisplayFormula"], TraditionalForm],
TraditionalForm], "\t", "con", " \t",
FormBox[
RowBox[{"\[Alpha]", ",",
RowBox[{"\[Beta]", "\[NotEqual]",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "k\[Pi]"}]}]}],
TraditionalForm]}], TraditionalForm]]]]]],
TraditionalForm]], "Output",
CellChangeTimes->{{3.5350301718413577`*^9, 3.5350301718413577`*^9},
3.589889402936343*^9},ExpressionUUID->"dd5d2deb-e0ae-45e9-a09f-\
f67c917368b3"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Formule di duplicazione", "Section",ExpressionUUID->"be0687ab-c81f-48f9-86f9-f856212bd779"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"12139676-394a-4ebc-8e10-27ed406ca7ed"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd", ",", "senDiff", ",", "senAdd", ",", "tanAdd", ",",
"tanDiff"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "-",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "+",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}]}], "}"}]}],
";"}]], "Input",ExpressionUUID->"08d39d97-ca42-4720-98a1-bdfeb06ba57d"]
}, Closed]],
Cell[CellGroupData[{
Cell["Formule di duplicazione per seno coseno e tangente", "Subsection",ExpressionUUID->"5c965927-fdf7-4343-a68e-7f2335d7513b"],
Cell[TextData[{
"Dall'insieme delle formule discusse finora possiamo derivare facilmente un \
altro gruppo di importanti identit\[AGrave] goniometriche. Iniziamo da quelle \
di duplicazione, formule che collegano le funzioni goniometriche dell'angolo ",
Cell[BoxData[
FormBox[
RowBox[{"2", "\[Alpha]"}], TraditionalForm]],ExpressionUUID->
"1f418d4e-6f6f-419f-9ba8-f494ab6f2246"],
" con quelle dell'angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"a8226c65-a97b-4188-97d5-a0305379ae34"],
".\nPartendo dalla"
}], "Text",ExpressionUUID->"c476a61a-6597-4ff1-ae9b-4be9f4919fb6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "senAdd", "]"}]], "Input",ExpressionUUID->"e00d6981-9061-4890-adb4-9e422c07af0a"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{3.502020451472756*^9, 3.5350312892767577`*^9,
3.535044467090554*^9, 3.5350448495189543`*^9, 3.5350461608237543`*^9,
3.535219087918563*^9, 3.535466069527754*^9, 3.5354661168737535`*^9,
3.5354743318339643`*^9, 3.589889402951943*^9, 3.8659336044526978`*^9,
3.8659363707575965`*^9},ExpressionUUID->"b8b12ed7-0851-4f08-9f37-\
2e55e5b61ae2"]
}, {2}]],
Cell[TextData[{
"basta porre ",
Cell[BoxData[
FormBox[
RowBox[{"\[Beta]", "=", "\[Alpha]"}], TraditionalForm]],ExpressionUUID->
"22a640bb-ef78-4f30-8dc9-5032f6d621ed"],
" per ottenere quanto si voleva"
}], "Text",ExpressionUUID->"cca88e63-a6f5-449f-a7c1-605d99250f68"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Beta]", "\[Rule]", "\[Alpha]"}]}]], "Input",ExpressionUUID->\
"48556b57-c4de-4a65-a7a2-7685c580e6a5"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020451503956*^9, 3.5350312892767577`*^9,
3.535044467152954*^9, 3.5350448495501537`*^9, 3.535046160839354*^9,
3.535219088012163*^9, 3.5354660695901537`*^9, 3.5354661169205537`*^9,
3.535474331896364*^9, 3.589889402951943*^9, 3.8659336044683285`*^9,
3.86593637077322*^9},ExpressionUUID->"e844a9b4-9b0d-44bf-8704-05fa489b9684"]
}, {2}]],
Cell["Analogamente per il coseno si ottiene immediatamente", "Text",ExpressionUUID->"1865e589-7e29-4926-823d-36ecad0ec9fe"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "cosAdd", "]"}]], "Input",ExpressionUUID->"8966e12f-3360-426d-bd7f-657808c6ded0"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]], "Output",
CellChangeTimes->{3.5020204515663557`*^9, 3.5350312893079576`*^9,
3.535044467262154*^9, 3.535044849659354*^9, 3.535046160870554*^9,
3.5352190881057634`*^9, 3.5354660696993537`*^9, 3.5354661170141535`*^9,
3.535474331989964*^9, 3.5898894029675426`*^9, 3.86593360449957*^9,
3.865936370804468*^9},ExpressionUUID->"9f43ccf3-36cc-4165-9c87-\
322994aa075e"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"cosDuplEq", "=",
RowBox[{"%", "/.",
RowBox[{"\[Beta]", "\[Rule]", "\[Alpha]"}]}]}]], "Input",ExpressionUUID->\
"ffb51f3d-7355-4fc9-90c8-dab9fb6e25df"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]], "Output",
CellChangeTimes->{3.502020451597556*^9, 3.535031289323558*^9,
3.5350444673089542`*^9, 3.5350448496905537`*^9, 3.535046160886154*^9,
3.535219088136963*^9, 3.5354660698085537`*^9, 3.5354661170609536`*^9,
3.535474332036764*^9, 3.5898894029675426`*^9, 3.86593360449957*^9,
3.865936370804468*^9},ExpressionUUID->"ca685e17-2208-429a-abb9-\
a4dfd7a33fe1"]
}, {2}]],
Cell[TextData[{
"Tenendo conto dell'identit\[AGrave] goniometrica fondamentale quest'ultima \
si pu\[OGrave] riscrivere anche in termini alternativi appena si sostituisca ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}], "=",
RowBox[{"1", "-",
RowBox[{
SuperscriptBox["sen", "2"], "(", "\[Alpha]", ")"}]}]}],
TraditionalForm]],ExpressionUUID->"d481feb2-0629-47e7-968c-43a477dfdb67"]
}], "Text",ExpressionUUID->"c379a89c-108c-48ba-925d-072d101febbd"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"toIdentita", "[", "cosDupl", "]"}], "/.",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "a_", "]"}], "^", "2"}], "\[Rule]",
RowBox[{"1", "-",
RowBox[{
RowBox[{"sen", "[", "a", "]"}], "^", "2"}]}]}]}]], "Input",ExpressionUUID\
->"e053ca92-13fb-4360-b1d0-3e61b9b12ce2"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]}]], "Output",
CellChangeTimes->{3.502020451675556*^9, 3.535031289339158*^9,
3.535044467402554*^9, 3.535044849846554*^9, 3.535046160917354*^9,
3.535219088230563*^9, 3.5354660699333534`*^9, 3.5354661171545534`*^9,
3.535474332130364*^9, 3.5898894029675426`*^9, 3.865933604515194*^9,
3.8659346036124945`*^9, 3.8659363708357153`*^9,
3.865936810256607*^9},ExpressionUUID->"09690da3-304b-4aa8-b239-\
635fa6466a99"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"cosDuplSen", "=",
RowBox[{"toRule", "[", "%", "]"}]}]], "Input",ExpressionUUID->"7f0727a5-\
6ce5-4d5c-b04a-74b95cf11050"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]}]], "Output",
CellChangeTimes->{3.502020451691156*^9, 3.535031289354758*^9,
3.535044467449354*^9, 3.535044849893354*^9, 3.535046160932954*^9,
3.5352190882773633`*^9, 3.5354660699801536`*^9, 3.5354661172013535`*^9,
3.535474332177164*^9, 3.589889402983143*^9, 3.8659336045464416`*^9,
3.8659346070978403`*^9, 3.8659363708669634`*^9,
3.8659368169449177`*^9},ExpressionUUID->"884441bf-6b13-4851-9c32-\
fdd6aa3527dd"]
}, {2}]],
Cell[TextData[{
"oppure ancora, in base alla ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["sen", "2"], "(", "\[Alpha]", ")"}], "=",
RowBox[{"1", "-",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}]}]}],
TraditionalForm]],ExpressionUUID->"afb9e229-2e96-4909-9131-583e77ed415e"],
", si ottiene una terza forma"
}], "Text",ExpressionUUID->"31a18002-ae6b-46b3-aaa1-73c8895d0ced"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"toIdentita", "[", "cosDupl", "]"}], "/.",
RowBox[{
RowBox[{
RowBox[{"sen", "[", "a_", "]"}], "^", "2"}], "\[Rule]",
RowBox[{"1", "-",
RowBox[{
RowBox[{"cos", "[", "a", "]"}], "^", "2"}]}]}]}]], "Input",ExpressionUUID\
->"5a054418-138e-43a1-aba9-384592e33f13"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]}]}]], "Output",
CellChangeTimes->{
3.502020451737956*^9, 3.5350312893703575`*^9, 3.535044467511754*^9,
3.535044849940154*^9, 3.535046160948554*^9, 3.5352190883241634`*^9,
3.535466070042554*^9, 3.5354661172481537`*^9, 3.5354743322239637`*^9,
3.589889402983143*^9, 3.8659336045464416`*^9, {3.865934629600008*^9,
3.8659346579490275`*^9}, 3.8659363708669634`*^9,
3.8659368196165886`*^9},ExpressionUUID->"12651958-cfda-4724-b4ba-\
aaa40b41105f"]
}, {2}]],
Cell["Infine la formula di addizione per la tangente", "Text",ExpressionUUID->"7993b9dc-e304-4208-a0ec-f8a7d9d81605"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "tanAdd", "]"}]], "Input",ExpressionUUID->"7407586a-592a-4942-b5ae-b0d145c713fb"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}]], "Output",
CellChangeTimes->{3.502020451800356*^9, 3.535031289401558*^9,
3.5350444676053543`*^9, 3.5350448500337543`*^9, 3.535046160979754*^9,
3.535219088370963*^9, 3.5354660701205535`*^9, 3.5354661173105536`*^9,
3.535474332286364*^9, 3.589889402998743*^9, 3.865933604577689*^9,
3.865934645821419*^9,
3.8659363708982115`*^9},ExpressionUUID->"2a108f85-396d-4abb-b4c4-\
b022e8b54ea5"]
}, {2}]],
Cell[TextData[{
"fornisce con la sostituzione ",
Cell[BoxData[
FormBox[
RowBox[{"\[Beta]", "\[Rule]", "\[Alpha]"}], TraditionalForm]],
ExpressionUUID->"ae48e5f6-e9cd-43f0-a66f-01ed11a413ca"],
" ",
"l'espressione cercata"
}], "Text",ExpressionUUID->"b12ae0d0-8b6b-432b-a3df-c05c20289c13"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Beta]", "\[Rule]", "\[Alpha]"}]}]], "Input",ExpressionUUID->\
"09e4355e-a3f0-489d-a41a-828b5401fe51"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.5020204518315563`*^9, 3.535031289417158*^9,
3.535044467667754*^9, 3.535044850080554*^9, 3.5350461609953537`*^9,
3.535219088417763*^9, 3.535466070182954*^9, 3.5354661173573537`*^9,
3.535474332333164*^9, 3.589889402998743*^9, 3.865933604577689*^9,
3.865934666732127*^9,
3.865936370929459*^9},ExpressionUUID->"e56b15e6-05e9-4d8b-8a38-\
f155f3758af5"]
}, {2}]],
Cell["Le formule di duplicazione sono pertanto ", "Text",ExpressionUUID->"12fe85b2-e611-4bc2-97a5-16eb11138e61"],
Cell[BoxData[{
FormBox[
RowBox[{
RowBox[{"sen", "(",
RowBox[{"2", " ", "\[Alpha]"}], ")"}], "=",
RowBox[{"2", " ",
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"cos", "(",
RowBox[{"2", " ", "\[Alpha]"}], ")"}], "=",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}], "-",
RowBox[{
SuperscriptBox["sen", "2"], "(", "\[Alpha]", ")"}]}], "=",
RowBox[{
RowBox[{"1", "-",
RowBox[{"2", " ",
RowBox[{
SuperscriptBox["sen", "2"], "(", "\[Alpha]", ")"}]}]}], "=",
RowBox[{
RowBox[{"2", " ",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}]}], "-",
"1"}]}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"tan", "(",
RowBox[{"2", " ", "\[Alpha]"}], ")"}], "=",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "(", "\[Alpha]", ")"}]}],
RowBox[{"1", "-",
RowBox[{
SuperscriptBox["tan", "2"], "(", "\[Alpha]", ")"}]}]]}],
TraditionalForm]}], "Output",
CellChangeTimes->{{3.535030182605358*^9, 3.535030182605358*^9},
3.535043364167554*^9,
3.5898894030143433`*^9},ExpressionUUID->"6b420cc3-2413-4369-8b4e-\
3314742dbae9"],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.8659928809713597`*^9,
3.865992883895732*^9}},ExpressionUUID->"41576ce3-f359-4845-ad75-\
f5474ed643c3"],
Cell[BoxData[
RowBox[{
RowBox[{"cosDuplCos", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]}]}], "]"}]}],
";"}]], "Input",
CellChangeTimes->{3.535129275770954*^9,
3.865992900104596*^9},ExpressionUUID->"69726214-434f-4499-b3a8-\
36ca0b30c24e"]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Formule di bisezione", "Section",ExpressionUUID->"a89db0f0-953e-4aa4-b6f8-77ab914707f3"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"e98cc65f-35eb-4a9a-ac02-5dc45ff9436e"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd", ",", "senDiff", ",", "senAdd", ",", "tanAdd", ",",
"tanDiff", ",", "senDupl", ",", "cosDupl", ",", "cosDuplSen", ",",
"cosDuplCos", ",", "tanDupl"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "-",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "+",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}]}], "}"}]}],
";"}]], "Input",ExpressionUUID->"6f0b4db1-e81e-4f9b-a68d-aa6b698b9165"]
}, Closed]],
Cell[CellGroupData[{
Cell["Formule di bisezione per seno, coseno, tangente", "Subsection",ExpressionUUID->"d2e085c5-07d5-4301-a2d1-69c04e4f801c"],
Cell[TextData[{
"In modo inverso rispetto alle formule di duplicazione, quelle di bisezione \
esprimono le funzioni goniometriche di un angolo in termini dell'angolo \
doppio. Iniziamo sfruttando una delle tre forme della formula di duplicazione \
per il ",
Cell[BoxData[
FormBox[
RowBox[{"cos", "(",
RowBox[{"2", "\[Alpha]"}], ")"}], TraditionalForm]],ExpressionUUID->
"060ee123-b277-4551-bb62-5b7881f91561"]
}], "Text",ExpressionUUID->"07c9cec9-33cc-498c-9c27-a20066b1c602"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "cosDuplSen", "]"}]], "Input",ExpressionUUID->"110f4dd6-f1a8-4d23-86fa-406825bcb3c3"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]}]], "Output",
CellChangeTimes->{3.502020451925156*^9, 3.535031289432758*^9,
3.535044467792554*^9, 3.535044850189754*^9, 3.535046161026554*^9,
3.535219088511363*^9, 3.5354660703077536`*^9, 3.5354661174353533`*^9,
3.535474332426764*^9, 3.589889403029943*^9, 3.8659336116263947`*^9,
3.8659363709607143`*^9},ExpressionUUID->"f0eaf25a-3b75-43f9-97a0-\
0a670fa990db"]
}, {2}]],
Cell[TextData[{
"ed esplicitiamo il ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], Cell[
"",ExpressionUUID->"c3df68cc-e2a7-4c15-a0ca-b7445ca1c621"]}],
TraditionalForm]],ExpressionUUID->"9dbab1cf-d1b7-4f5c-b84a-aba1285d86c5"],
"in funzione del ",
Cell[BoxData[
FormBox[
RowBox[{"cos", "(",
RowBox[{"2", "\[Alpha]"}], ")"}], TraditionalForm]],ExpressionUUID->
"7f87b06a-722b-4a44-8539-7c1ba18cae9e"]
}], "Text",ExpressionUUID->"0e97d977-ccde-4d89-b9e1-422f33155abb"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "-", "1"}]], "Input",ExpressionUUID->"9d2eaf01-d088-4532-a2b2-bb3d42c8d34d"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "\[Equal]",
RowBox[{
RowBox[{"-", "2"}], " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]], "Output",
CellChangeTimes->{3.502020451956356*^9, 3.5350312894483576`*^9,
3.535044467839354*^9, 3.535044850236554*^9, 3.5350461610421543`*^9,
3.535219088558163*^9, 3.5354660703701534`*^9, 3.535466117482154*^9,
3.5354743324891644`*^9, 3.5898894030455427`*^9, 3.8659336116576433`*^9,
3.865936370976331*^9},ExpressionUUID->"7e142bdc-0d6c-4825-ad01-\
f878f41bda62"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"scambia", "[",
RowBox[{
RowBox[{"-", "%"}], "/", "2"}], "]"}]], "Input",ExpressionUUID->"4511d23a-\
6447-4764-8483-cfbeb572e278"],
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"], "\[Equal]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.502020451987556*^9, 3.535031289463958*^9,
3.535044467932954*^9, 3.535044850283354*^9, 3.535046161057754*^9,
3.5352190886049633`*^9, 3.5354660704169536`*^9, 3.5354661175289536`*^9,
3.535474332535964*^9, 3.5898894030455427`*^9, 3.8659336116732674`*^9,
3.865936371007579*^9},ExpressionUUID->"0e07c4e4-72b8-4c8d-9fa8-\
eaa2336a919f"]
}, {2}]],
Cell["L'estrazione della radice quadrata comporta", "Text",ExpressionUUID->"3a4fe7ad-4719-43e0-a502-b15a10c1de12"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Sqrt", "/@", "%"}]], "Input",ExpressionUUID->"55bc7951-d607-429a-8cad-acbdbe516612"],
Cell[BoxData[
RowBox[{
SqrtBox[
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}]}]],
SqrtBox["2"]]}]], "Output",
CellChangeTimes->{3.502020452018756*^9, 3.535031289479558*^9,
3.535044467979754*^9, 3.535044850330154*^9, 3.535046161073354*^9,
3.535219088636163*^9, 3.535466070479354*^9, 3.5354661175757537`*^9,
3.5354743325827637`*^9, 3.5898894030455427`*^9, 3.865933611688891*^9,
3.865936371023203*^9},ExpressionUUID->"a65599a3-a599-4cfa-99dd-\
12303a398c18"]
}, {2}]],
Cell["\<\
e quindi ricordando che il primo membro rappresenta un valore assoluto, \
l'espressione diventa\
\>", "Text",ExpressionUUID->"4a91c7c2-b994-412e-9d65-cdb9a896c8cf"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{"Abs", ",", "%", ",", "1"}], "]"}]], "Input",ExpressionUUID->\
"5998dc6c-e61d-47ac-bae6-eabda9546d14"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}]}]],
SqrtBox["2"]]}]], "Output",
CellChangeTimes->{3.502020452065556*^9, 3.5350312894951577`*^9,
3.5350444680421543`*^9, 3.535044850376954*^9, 3.535046161088954*^9,
3.5352190886829634`*^9, 3.535466070541754*^9, 3.535466117622554*^9,
3.5354743326295643`*^9, 3.5898894030455427`*^9, 3.865933611688891*^9,
3.865936371038827*^9},ExpressionUUID->"8c64b772-b09e-414b-a7d6-\
b076871101e3"]
}, {2}]],
Cell[TextData[{
"Sostituendo ad ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"73aa4c45-01e9-4576-89b2-6a40f0cbb067"],
" l'angolo ",
Cell[BoxData[
FormBox[
FractionBox["\[Alpha]", "2"], TraditionalForm]],ExpressionUUID->
"48087e28-1a17-4355-b628-8375e4fd9c9a"],
" otteniamo quanto richiesto"
}], "Text",ExpressionUUID->"b8a4ecc9-cde5-4a62-97b0-377e28363374"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{"\[Alpha]", "/", "2"}]}]}]], "Input",ExpressionUUID->"325d45b8-\
d0d6-4f33-b501-8542931ac348"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[",
FractionBox["\[Alpha]", "2"], "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}]], "Output",
CellChangeTimes->{3.502020452096756*^9, 3.5350312894951577`*^9,
3.535044468088954*^9, 3.5350448504237537`*^9, 3.535046161104554*^9,
3.535219088729763*^9, 3.5354660706041536`*^9, 3.5354661176849537`*^9,
3.535474332676364*^9, 3.589889403061143*^9, 3.8659336117201385`*^9,
3.8659362049852166`*^9,
3.865936371070074*^9},ExpressionUUID->"2a2fc36b-7e62-41d7-97da-\
d8e507badd29"]
}, {2}]],
Cell[TextData[{
"Si tenga presente che per utilizzare proficuamente formule di questo tipo, \
contenenti il valore assoluto di una funzione goniometrica, sar\[AGrave] \
necessario conoscere il quadrante dell'angolo ",
Cell[BoxData[
FormBox[
FractionBox["\[Alpha]", "2"], TraditionalForm]],ExpressionUUID->
"19cb807e-7048-4581-8789-92c337dc31fc"],
" cos\[IGrave] da riconoscere il segno della funzione ad argomento e \
\"aprire\" il valore assoluto. "
}], "Text",ExpressionUUID->"e5b079c2-1b34-4bf7-b201-0f7c58817472"],
Cell["Abbiamo in sostanza dimostrato", "Text",ExpressionUUID->"2f43fdbe-0d92-40a7-a979-19765d017669"],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"|",
RowBox[{"sen",
FractionBox["\[Alpha]", "2"]}], "|"}], "=",
SqrtBox[
FractionBox[
RowBox[{"1", "-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}], "2"]]}],
TraditionalForm]], "Output",
CellChangeTimes->{{3.535030195210158*^9, 3.535030195210158*^9},
3.535043448001954*^9,
3.589889403061143*^9},ExpressionUUID->"9e1b0bad-6640-4509-a62f-\
ced442029d87"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",
CellChangeTimes->{{3.5354762906635637`*^9, 3.5354762941579638`*^9}, {
3.535476638496764*^9,
3.535476646421564*^9}},ExpressionUUID->"be94f6f4-c27f-474c-ab61-\
d4414316246b"],
Cell[BoxData[
RowBox[{
RowBox[{"senBis", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[",
FractionBox["\[Alpha]", "2"], "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{3.535476395417564*^9,
3.535476600151964*^9},ExpressionUUID->"845d3999-46b7-4ac3-b0ac-\
92d9396bedad"]
}, Closed]],
Cell[CellGroupData[{
Cell["Formula di bisezione per il coseno", "Subsubsection",
CellChangeTimes->{{3.535476424137164*^9, 3.535476432717164*^9}, {
3.535476607359164*^9,
3.5354766117271643`*^9}},ExpressionUUID->"d3e794ca-d23e-4fc8-8813-\
654466981ee3"],
Cell["Partendo invece dalla forma", "Text",ExpressionUUID->"5e43bb5d-1d11-4b06-9a92-7b221ae2ff6b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "cosDuplCos", "]"}]], "Input",ExpressionUUID->"0ae86727-19bb-4852-bb93-82546817f239"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]}]}]], "Output",
CellChangeTimes->{
3.502020452174756*^9, 3.5350312895263577`*^9, 3.5350444681825542`*^9,
3.535044850517354*^9, 3.535046161135754*^9, 3.5352190888233633`*^9,
3.5354660707289534`*^9, 3.5354661178097534`*^9, 3.535474332816764*^9,
3.5898894030923433`*^9, {3.8659336117357635`*^9, 3.8659336218926134`*^9},
3.865936371085698*^9},ExpressionUUID->"e6ff9c01-10b2-4e9c-8745-\
63b5348b4485"]
}, {2}]],
Cell[TextData[{
"esplicitiamo il ",
Cell[BoxData[
FormBox[
RowBox[{"cos", "(", "\[Alpha]", ")"}], TraditionalForm]],ExpressionUUID->
"e47a80bf-a40f-4dc8-9b59-97ad6af1931c"]
}], "Text",ExpressionUUID->"ca1929d6-0d32-4e98-862e-f9391721549a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"scambia", "[",
RowBox[{
RowBox[{"(",
RowBox[{"%", "+", "1"}], ")"}],
RowBox[{"1", "/", "2"}]}], "]"}]], "Input",ExpressionUUID->"5c8ad238-e178-\
43b9-83bc-bd24d9df591d"],
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "\[Equal]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{
3.502020452205956*^9, 3.535031289541958*^9, 3.535044468229354*^9,
3.5350448505641537`*^9, 3.535046161151354*^9, 3.535219088854563*^9,
3.5354660708537536`*^9, 3.5354661178565536`*^9, 3.535474332863564*^9,
3.5898894030923433`*^9, {3.8659336117513866`*^9, 3.8659336219238753`*^9},
3.865936371116946*^9},ExpressionUUID->"77c1fa30-475a-4d68-818a-\
11606c32bfaa"]
}, {2}]],
Cell["e quindi l'estrazione della radice quadrata conduce alla", "Text",ExpressionUUID->"0fa36543-cae2-4f7f-9259-e345dd9b0a27"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Sqrt", "/@", "%"}]], "Input",ExpressionUUID->"1fe86158-7eda-4b7f-81a3-8816d230a05d"],
Cell[BoxData[
RowBox[{
SqrtBox[
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}]}]],
SqrtBox["2"]]}]], "Output",
CellChangeTimes->{
3.502020452252756*^9, 3.535031289557558*^9, 3.535044468291754*^9,
3.5350448506109543`*^9, 3.535046161166954*^9, 3.5352190889013634`*^9,
3.535466070916154*^9, 3.5354661179033537`*^9, 3.535474332910364*^9,
3.5898894030923433`*^9, {3.8659336117513866`*^9, 3.8659336219238753`*^9},
3.865936371116946*^9},ExpressionUUID->"bed92b30-9fa8-4d64-aec1-\
ade57d700067"]
}, {2}]],
Cell["ossia", "Text",ExpressionUUID->"0276a957-b658-4c33-8833-35e66a6b1349"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{"Abs", ",", "%", ",", "1"}], "]"}]], "Input",ExpressionUUID->\
"aab91880-763f-4282-8b3d-c7d73079ce59"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}]}]],
SqrtBox["2"]]}]], "Output",
CellChangeTimes->{
3.502020452283956*^9, 3.535031289557558*^9, 3.535044468338554*^9,
3.535044850657754*^9, 3.5350461611825542`*^9, 3.535219088948163*^9,
3.535466070978554*^9, 3.5354661179501534`*^9, 3.535474332957164*^9,
3.5898894030923433`*^9, {3.8659336117826347`*^9, 3.8659336219551096`*^9},
3.8659363711481943`*^9},ExpressionUUID->"23348b02-1cd0-4a71-b909-\
c0f9b55dc447"]
}, {2}]],
Cell[TextData[{
"Eseguiamo infine la sostituzione ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox["\[Alpha]", "2"]}], TraditionalForm]],ExpressionUUID->
"e0cc7779-f9e9-4ec7-bee8-92dad66cc895"],
" per ottenere la scrittura canonica per tale identit\[AGrave]"
}], "Text",
CellChangeTimes->{
3.535476168359564*^9},ExpressionUUID->"77ac6ab7-4835-4d69-878a-\
061bc327cdab"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{"\[Alpha]", "/", "2"}]}]}]], "Input",ExpressionUUID->"5dbd88c4-\
658a-4072-828e-807d42991bac"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[",
FractionBox["\[Alpha]", "2"], "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}]], "Output",
CellChangeTimes->{
3.502020452315156*^9, 3.535031289573158*^9, 3.535044468385354*^9,
3.535044850704554*^9, 3.535046161198154*^9, 3.535219089026163*^9,
3.5354660710409536`*^9, 3.5354661179969535`*^9, 3.535474333003964*^9,
3.589889403107943*^9, {3.8659336117826347`*^9, 3.8659336219551096`*^9},
3.865936220706667*^9,
3.8659363711638184`*^9},ExpressionUUID->"093f08af-9518-49f7-9ee3-\
188d236822ec"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.535476689227964*^9, 3.535476692363564*^9}, {
3.865936882950204*^9,
3.865936884841954*^9}},ExpressionUUID->"44d8b0b7-4c42-47a6-b1df-\
00c31e3b4120"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"cosBis", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[",
FractionBox["\[Alpha]", "2"], "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}], "]"}]}]], "Input",
CellChangeTimes->{
3.535476703065164*^9},ExpressionUUID->"a7455486-4645-46d5-892e-\
c247b08a29a6"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}]], "Output",
CellChangeTimes->{
3.502020452346356*^9, 3.5350312895887575`*^9, 3.5350444684321537`*^9,
3.535044850798154*^9, 3.5350461612137537`*^9, 3.535219089072963*^9,
3.5354660710877533`*^9, 3.535466118059354*^9, 3.535474333050764*^9,
3.5354767040947638`*^9, 3.589889403107943*^9, {3.8659336118138824`*^9,
3.865933624956134*^9},
3.8659363711794415`*^9},ExpressionUUID->"bffdd53c-b2a3-40bf-91de-\
3fb53d194836"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell["Bisezione per la tangente", "Subsubsection",
CellChangeTimes->{{3.535476714702764*^9,
3.535476721129964*^9}},ExpressionUUID->"1f93cd3b-99a3-4d59-81e8-\
cece2e9b5934"],
Cell[TextData[{
"Volendo giungere anche alla formula di bisezione per la tangente \[EGrave] \
sufficiente eseguire il rapporto, membro a membro, delle due identit\[AGrave] \
appena trovate: ovviamente quanto si deduce vale nell'ipotesi che il \
denominatore sia diverso dallo zero (",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[NotEqual]",
RowBox[{"\[Pi]", "+",
RowBox[{"2", "k", " ", "\[Pi]"}]}]}], TraditionalForm]],ExpressionUUID->
"4ec174b3-e550-4f93-baa4-53f221faffa7"],
"). Difatti"
}], "Text",ExpressionUUID->"30d8dee5-0ece-431c-ab4f-e1073d6c4a85"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"toIdentita", "[", "senBis", "]"}], "/",
RowBox[{"toIdentita", "[", "cosBis", "]"}]}]], "Input",ExpressionUUID->\
"82ea6126-0567-459e-9958-c485abd25e8e"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"Abs", "[",
RowBox[{"sen", "[",
FractionBox["\[Alpha]", "2"], "]"}], "]"}],
RowBox[{"Abs", "[",
RowBox[{"cos", "[",
FractionBox["\[Alpha]", "2"], "]"}], "]"}]], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]]]}]], "Output",
CellChangeTimes->{
3.502020452377556*^9, 3.5350312896043577`*^9, 3.5350444684789543`*^9,
3.535044850844954*^9, 3.535046161229354*^9, 3.5352190891197634`*^9,
3.5354660711501536`*^9, 3.5354661181061535`*^9, 3.535474333113164*^9,
3.589889403123543*^9, {3.8659336118138824`*^9, 3.8659336281456747`*^9},
3.8659363712106895`*^9},ExpressionUUID->"91876080-c2b3-4682-a145-\
128c89c36948"]
}, {2}]],
Cell["Possiamo quindi porre", "Text",ExpressionUUID->"d824f06e-354e-488e-bbbe-6eaaf75c4e3d"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Tan", "[",
RowBox[{"\[Alpha]", "/", "2"}], "]"}], "]"}], "\[Equal]",
RowBox[{"%", "[",
RowBox[{"[", "2", "]"}], "]"}]}]], "Input",ExpressionUUID->"95282cbb-802b-\
40c0-b652-eff9d4ef5d18"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]]]}]], "Output",
CellChangeTimes->{
3.502020452424356*^9, 3.535031289619958*^9, 3.535044468541354*^9,
3.535044850891754*^9, 3.535046161244954*^9, 3.535219089166563*^9,
3.5354660712125535`*^9, 3.5354661181529536`*^9, 3.535474333159964*^9,
3.589889403123543*^9, {3.86593361184513*^9, 3.865933628176936*^9},
3.865934743048464*^9,
3.8659363712263136`*^9},ExpressionUUID->"29df0e32-ddb9-45e6-8d3c-\
394613cd17b1"]
}, {2}]],
Cell["Le tre identit\[AGrave] ottenute sono in conclusione ", "Text",ExpressionUUID->"7aafd0eb-33bd-4402-bc6d-b35e4f4d979e"],
Cell[BoxData[{
FormBox[
RowBox[{
RowBox[{"|",
RowBox[{"sen",
FractionBox["\[Alpha]", "2"]}], "|"}], "=",
SqrtBox[
FractionBox[
RowBox[{"1", "-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}], "2"]]}],
TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"|",
RowBox[{"cos",
FractionBox["\[Alpha]", "2"]}], "|"}], "=",
SqrtBox[
FractionBox[
RowBox[{"1", "+",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}], "2"]]}],
TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"|",
RowBox[{"tan",
FractionBox["\[Alpha]", "2"]}], "|"}], "=",
SqrtBox[
FractionBox[
RowBox[{"1", "-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}],
RowBox[{"1", "+",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]]]}],
TraditionalForm]}], "Output",
CellChangeTimes->{{3.535030207768158*^9, 3.535030207768158*^9},
3.5350434941779537`*^9,
3.589889403139143*^9},ExpressionUUID->"0b92b7bd-f8fa-47c5-a6ab-\
5746cbc112f0"]
}, Open ]],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.865937128238721*^9,
3.8659371307697763`*^9}},ExpressionUUID->"bc91377e-1ef2-453a-8c2c-\
f318451c71a1"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"tanBis", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "]"}], "\[Equal]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]]]}], "]"}]}]], "Input",
CellChangeTimes->{
3.535476551963564*^9},ExpressionUUID->"2860e419-e7ea-4f32-a229-\
8e4f1bf9c65d"],
Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Tan", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]]]}]], "Output",
CellChangeTimes->{
3.502020452455556*^9, 3.535031289635558*^9, 3.535044468588154*^9,
3.535044850938554*^9, 3.5350461612605543`*^9, 3.535219089213363*^9,
3.535466071274954*^9, 3.5354661181997538`*^9, 3.535474333206764*^9,
3.5354765567527637`*^9, 3.589889403123543*^9, {3.86593361184513*^9,
3.865933628176936*^9},
3.865936371257561*^9},ExpressionUUID->"55a0fc52-b0f1-4556-925c-\
9cc14658d7b2"]
}, {2}]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Formule parametriche razionali", "Section",ExpressionUUID->"fcbf5da9-5449-44df-8cd1-08e1252e8763"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"e1064cce-6f07-4c78-b0fa-09a4cd1b6738"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd", ",", "senDiff", ",", "senAdd", ",", "tanAdd", ",",
"tanDiff", ",", "senDupl", ",", "cosDupl", ",", "cosDuplSen", ",",
"cosDuplCos", ",", "tanDupl", ",", "senBis", ",", "cosBis", ",",
"tanBis"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "-",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "+",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Tan", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]]]}]}], "}"}]}],
";"}]], "Input",ExpressionUUID->"79fc1b3d-f20b-45c8-84a1-76ddc57af732"]
}, Closed]],
Cell[CellGroupData[{
Cell["Formule parametriche razionali di seno, coseno e tangente", "Subsection",ExpressionUUID->"09a2dd70-7bad-47fd-8a38-7a435dcd0ada"],
Cell[TextData[{
"Le formule che dimostreremo in questa sezione si mostrano utili in diverse \
occasioni, in particolare quando non si dispone di sufficienti informazioni \
sul quadrante di appartenenza dell'angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"fcc6979f-5ec6-4444-b38b-aec4bb767e23"],
". Difatti nelle seguenti relazioni non compaiono termini entro valori \
assoluti per i quali \[EGrave] necessario disporre di tale informazione. \n\
Partiamo dalla formula di duplicazione del seno"
}], "Text",ExpressionUUID->"7daab7df-e782-4a96-aadb-8549504d71de"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "senDupl", "]"}]], "Input",ExpressionUUID->"06839453-c06f-4a50-9c7a-a2dfb0afefe2"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{
3.502020452517956*^9, 3.535031289635558*^9, 3.535044468666154*^9,
3.535044851016554*^9, 3.535046161276154*^9, 3.5352190892913632`*^9,
3.5354660713841534`*^9, 3.5354661182621536`*^9, 3.5354743332847643`*^9,
3.589889403154743*^9, 3.8659336391159487`*^9, {3.8659363415483437`*^9,
3.865936371288809*^9}},ExpressionUUID->"c0111550-83af-489b-a78a-\
4abcbf9cc4b9"]
}, {2}]],
Cell[TextData[{
"e scriviamo il denominatore del secondo membro (che vale evidentemente 1) \
come ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["sen", "2"], "(", "\[Alpha]", ")"}], "+",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}]}], "=", "1"}],
TraditionalForm]],ExpressionUUID->"eedfc699-4b32-4fde-9ba9-6183b016e85e"],
"."
}], "Text",ExpressionUUID->"bb70677e-ac19-4a15-967e-e8f893d72699"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{
RowBox[{
RowBox[{"#", " ",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}], ")"}]}]}],
"&"}], ",", "%", ",",
RowBox[{"{", "2", "}"}]}], "]"}]], "Input",ExpressionUUID->"35a69dad-689a-\
4e58-9f17-11bc1c93c100"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020452549156*^9, 3.535031289651158*^9, 3.535044468712954*^9,
3.535044851063354*^9, 3.535046161291754*^9, 3.535219089322563*^9,
3.5354660714465537`*^9, 3.5354661183089533`*^9, 3.535474333331564*^9,
3.589889403154743*^9, 3.8659336391315737`*^9, {3.865936341751441*^9,
3.865936371288809*^9}},ExpressionUUID->"9cbdcd5d-c430-4cf5-a347-\
d95f81c4f89f"]
}, {2}]],
Cell[TextData[{
"Dividiamo ora il numeratore e il denominatore per ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}], "\[NotEqual]", "0"}],
TraditionalForm]],ExpressionUUID->"e3ecf743-9ac5-4a5a-ba2a-1a209b209b46"],
" supponendo quindi che ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[NotEqual]",
RowBox[{
FractionBox["\[Pi]", "2"], "+",
RowBox[{"k", " ", "\[Pi]"}]}]}], TraditionalForm]],ExpressionUUID->
"d7b416f1-63bb-4a60-9210-a033c83522ea"]
}], "Text",ExpressionUUID->"37149222-246e-4b8c-b669-ba6aaff45e6b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"HoldForm", "[",
RowBox[{"#", "/",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}], "]"}], "&"}]}],
"]"}]], "Input",ExpressionUUID->"b7c1b3f0-214b-4514-bbbb-eaed5bb28acb"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
TagBox[
FractionBox[
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}],
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]],
HoldForm],
TagBox[
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}],
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]],
HoldForm]]}]], "Output",
CellChangeTimes->{
3.5020204525803556`*^9, 3.5350312896667576`*^9, 3.535044468775354*^9,
3.535044851110154*^9, 3.535046161307354*^9, 3.5352190893693633`*^9,
3.5354660715089536`*^9, 3.5354661183713536`*^9, 3.535474333378364*^9,
3.589889403170343*^9, 3.865933639162835*^9, {3.865936341782693*^9,
3.8659363713200564`*^9}},ExpressionUUID->"cfedcbae-5c88-4031-a3b6-\
5e4944fa2c60"]
}, {2}]],
Cell[TextData[{
"Ricordando che ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], "=",
FractionBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}],
RowBox[{"cos", "(", "\[Alpha]", ")"}]]}], TraditionalForm]],
ExpressionUUID->"2e645f7b-9700-4266-9aef-bffb34f377be"],
" il secondo membro si riscrive"
}], "Text",ExpressionUUID->"9568fffd-21b7-4b2a-aa41-f9d8e28f86b6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"Apart", "[",
RowBox[{"rilascia", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//.",
"id4"}]], "Input",ExpressionUUID->"b96b0843-17ff-4fd2-836a-fe94cc503c13"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020452611556*^9, 3.535031289682358*^9, 3.535044468822154*^9,
3.535044851156954*^9, 3.535046161322954*^9, 3.5352190894161634`*^9,
3.535466071571354*^9, 3.535466118418154*^9, 3.535474333440764*^9,
3.589889403170343*^9, 3.865933639162835*^9, {3.8659363418295593`*^9,
3.8659363713200564`*^9}},ExpressionUUID->"5df32034-e99e-4208-a82c-\
5a0ac3a97b35"]
}, {2}]],
Cell[TextData[{
"Infine per riportare l'identit\[AGrave] appena trovata alla forma canonica \
eseguiamo la sostituzione ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox["\[Alpha]", "2"]}], TraditionalForm]],ExpressionUUID->
"b0de1b08-1a6e-4f0d-aeda-d6520ba4f7c4"]
}], "Text",ExpressionUUID->"c2976d60-db14-4b1c-9639-fd7c1e2ed2e2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{"\[Alpha]", "/", "2"}]}]}]], "Input",ExpressionUUID->"25f34dc6-\
cab2-4be6-b5c0-535c102ed7c5"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "\[Equal]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.5020204526583557`*^9, 3.535031289697958*^9, 3.535044468884554*^9,
3.535044851203754*^9, 3.535046161338554*^9, 3.535219089462963*^9,
3.535466071633754*^9, 3.5354661184649534`*^9, 3.535474333487564*^9,
3.589889403170343*^9, 3.865933639194069*^9, {3.8659363418764324`*^9,
3.865936371351304*^9}},ExpressionUUID->"f35a7bbb-68af-4f94-bd6e-\
e0220c516d61"]
}, {2}]],
Cell["\<\
Procedendo allo stesso modo possiamo giungere all'identit\[AGrave] collegata \
al coseno: difatti, riscritta\
\>", "Text",ExpressionUUID->"6aeb62b1-bdf9-4df1-9cea-b5dc2684633c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "cosDupl", "]"}]], "Input",ExpressionUUID->"0cdd0488-82b8-403f-8f3d-96fe73f02ef4"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]], "Output",
CellChangeTimes->{
3.502020452720756*^9, 3.5350312897135577`*^9, 3.535044469024954*^9,
3.5350448512973537`*^9, 3.535046161369754*^9, 3.535219089540963*^9,
3.5354660717429533`*^9, 3.5354661185585537`*^9, 3.535474333581164*^9,
3.5898894031859426`*^9, 3.865933639225317*^9, {3.8659363419076796`*^9,
3.865936371351304*^9}},ExpressionUUID->"e7128343-9e95-47f4-8f18-\
2e6197151b58"]
}, {2}]],
Cell["come", "Text",ExpressionUUID->"aa4e744b-0dab-4ed8-98f0-d85b65b80ff3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"MapAt", "[",
RowBox[{
RowBox[{
RowBox[{"#", " ",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}], ")"}]}]}],
"&"}], ",", "%", ",",
RowBox[{"{", "2", "}"}]}], "]"}]], "Input",ExpressionUUID->"3ebcc1aa-636b-\
4ac3-b7d6-3cee76c60888"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}],
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020452751956*^9, 3.5350312897291574`*^9, 3.535044469071754*^9,
3.535044851344154*^9, 3.535046161385354*^9, 3.5352190895877633`*^9,
3.5354660718053536`*^9, 3.5354661186053534`*^9, 3.535474333627964*^9,
3.5898894031859426`*^9, 3.8659336392565646`*^9, {3.865936341923304*^9,
3.865936371382552*^9}},ExpressionUUID->"cec9d8de-0c9f-4794-a046-\
bc87fd026f61"]
}, {2}]],
Cell[TextData[{
"dividiamo ancora il numeratore e il denominatore per ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Alpha]", ")"}], "\[NotEqual]", "0"}],
TraditionalForm]],ExpressionUUID->"507e0aea-bf14-4d5a-8904-ece1113be4fe"],
" supponendo quindi che ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[NotEqual]",
RowBox[{
FractionBox["\[Pi]", "2"], "+",
RowBox[{"k", " ", "\[Pi]"}]}]}], TraditionalForm]],ExpressionUUID->
"47c42d30-9b1a-4dd8-b2cc-163ce13cb55d"]
}], "Text",ExpressionUUID->"f936cbda-aefa-4f92-8806-35547f0affc9"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"HoldForm", "[",
RowBox[{
RowBox[{"(", "#", ")"}], " ",
RowBox[{"(",
RowBox[{"1", "/",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "^", "2"}]}], ")"}]}], "]"}],
"&"}]}], "]"}]], "Input",ExpressionUUID->"fc719d60-7df2-4ad8-ac91-\
be8a0034abed"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
TagBox[
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}],
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]],
HoldForm],
TagBox[
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}],
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]],
HoldForm]]}]], "Output",
CellChangeTimes->{
3.5020204527987556`*^9, 3.5350312897447577`*^9, 3.535044469118554*^9,
3.535044851390954*^9, 3.5350461614009542`*^9, 3.5352190896345634`*^9,
3.5354660719145536`*^9, 3.5354661186521535`*^9, 3.5354743336747637`*^9,
3.5898894031859426`*^9, 3.8659336392565646`*^9, {3.8659363419545517`*^9,
3.865936371382552*^9}},ExpressionUUID->"f3da8306-4b68-44d1-8f9c-\
e869585b660e"]
}, {2}]],
Cell["\<\
Per la propriet\[AGrave] distributiva e la definizione della tangente, questa \
diviene\
\>", "Text",ExpressionUUID->"c415e17c-d45b-47e6-b110-571e3d898471"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"applicaND", "[",
RowBox[{"%", ",",
RowBox[{
RowBox[{"Apart", "[",
RowBox[{"rilascia", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//.",
"id4"}]], "Input",ExpressionUUID->"c3007f8d-0f36-4dd0-8dbe-4cebed86bb9f"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020452829956*^9, 3.535031289760358*^9, 3.535044469180954*^9,
3.5350448514377537`*^9, 3.535046161416554*^9, 3.535219089681363*^9,
3.5354660719925537`*^9, 3.5354661186989536`*^9, 3.535474333768364*^9,
3.589889403201543*^9, 3.865933639287812*^9, {3.865936342001424*^9,
3.8659363714138002`*^9}},ExpressionUUID->"15c5bf46-7761-47b1-af76-\
cf8018ca9e7e"]
}, {2}]],
Cell[TextData[{
"L'applicazione della sostituzione ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox["\[Alpha]", "2"]}], TraditionalForm]],ExpressionUUID->
"81749a24-eeb9-4237-b49a-161bcb75e761"],
" implica"
}], "Text",ExpressionUUID->"6a456a57-022c-48cf-8650-34e041f46f12"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{"\[Alpha]", "/", "2"}]}]}]], "Input",ExpressionUUID->"cf58a915-\
fda5-4a42-b246-5bf47dfea069"],
Cell[BoxData[
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], "\[Equal]",
FractionBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020452861156*^9, 3.535031289775958*^9, 3.535044469227754*^9,
3.5350448514845543`*^9, 3.5350461614321537`*^9, 3.5352190897281632`*^9,
3.5354660720549536`*^9, 3.5354661187457533`*^9, 3.535474333815164*^9,
3.589889403201543*^9, 3.865933639287812*^9, 3.8659348019175353`*^9, {
3.8659363420482955`*^9,
3.8659363714138002`*^9}},ExpressionUUID->"88e47aba-34c0-4d09-a6d0-\
135749be51c0"]
}, {2}]],
Cell[TextData[{
"La terza ed ultima formula di bisezione si ottiene immediatamente con la \
sostituzione ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox["\[Alpha]", "2"]}], TraditionalForm]],ExpressionUUID->
"b8049fae-c640-4865-a733-b9e89347f107"],
"a partire da quella di duplicazione per la tangente"
}], "Text",ExpressionUUID->"62a6e432-b070-456f-9fd0-9f810d022495"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"toIdentita", "[", "tanDupl", "]"}]], "Input",ExpressionUUID->"8f181d13-b92e-4271-8bb8-d496b149a569"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[",
RowBox[{"2", " ", "\[Alpha]"}], "]"}], "\[Equal]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.5020204529235563`*^9, 3.535031289791558*^9, 3.535044469321354*^9,
3.535044851578154*^9, 3.535046161463354*^9, 3.5352190898061633`*^9,
3.5354660721641536`*^9, 3.5354661188861537`*^9, 3.535474333908764*^9,
3.589889403217143*^9, 3.8659336393190603`*^9, {3.8659363420795426`*^9,
3.8659363714294243`*^9}},ExpressionUUID->"e3a4f21e-ed3e-4b7f-99ee-\
4de32f073def"]
}, {2}]],
Cell["Difatti si ha", "Text",ExpressionUUID->"5239020e-5032-46aa-ad23-7fc6dbadcfb7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{"\[Alpha]", "/", "2"}]}]}]], "Input",ExpressionUUID->"8f9b0a82-\
27c0-4cd6-b6f1-3ce6ddd4c5f2"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "\[Equal]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020452970356*^9, 3.5350312898071575`*^9, 3.535044469383754*^9,
3.535044851624954*^9, 3.5350461614789543`*^9, 3.5352190898529634`*^9,
3.535466072226554*^9, 3.535466118932954*^9, 3.535474333955564*^9,
3.589889403217143*^9, 3.865933639350308*^9, {3.8659363420795426`*^9,
3.8659363714606714`*^9}},ExpressionUUID->"d8858517-ff27-41ce-81b3-\
0526b61fe059"]
}, {2}]],
Cell["In conclusione, le formule di bisezione ottenute sono", "Text",ExpressionUUID->"57b195f1-0ec4-4cb3-85a6-396ac4a2eb15"],
Cell[BoxData[{
FormBox[
RowBox[{
RowBox[{"sin", "(", "\[Alpha]", ")"}], "=",
RowBox[{
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"2", " ",
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}]}], ")"}]}],
RowBox[{
RowBox[{
SuperscriptBox["tan", "2"], "(",
FractionBox["\[Alpha]", "2"], ")"}], "+", "1"}]], "\[NotEqual]",
RowBox[{
RowBox[{"2", " ", "k\[Pi]"}], "+", "\[Pi]"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], "=",
RowBox[{
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
SuperscriptBox["tan", "2"], "(",
FractionBox["\[Alpha]", "2"], ")"}]}], ")"}]}],
RowBox[{
RowBox[{
SuperscriptBox["tan", "2"], "(",
FractionBox["\[Alpha]", "2"], ")"}], "+", "1"}]], "\[NotEqual]",
RowBox[{
RowBox[{"2", " ", "k\[Pi]"}], "+", "\[Pi]"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], "=",
RowBox[{
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"2", " ",
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}]}], ")"}]}],
RowBox[{"1", "-",
RowBox[{
SuperscriptBox["tan", "2"], "(",
FractionBox["\[Alpha]", "2"], ")"}]}]], "\[NotEqual]",
RowBox[{
RowBox[{"2", " ", "k\[Pi]"}], "+", "\[Pi]"}]}]}],
TraditionalForm]}], "Output",
CellChangeTimes->{{3.535043660083954*^9, 3.535043864898354*^9}, {
3.535043905879554*^9, 3.535044023690754*^9}, {3.5350440787275543`*^9,
3.535044098336754*^9},
3.589889403248343*^9},ExpressionUUID->"3af884ba-19b2-4023-b887-\
55a834803ad6"],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.8659362878254747`*^9,
3.865936289779796*^9}},ExpressionUUID->"36b2699c-929b-4dee-bbe8-\
296b82e6c5fc"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"senRaz", "=",
RowBox[{"toRule", "[", "%", "]"}]}]], "Input",ExpressionUUID->"5844c695-\
a14d-4ea0-9471-d2fdf6454ab4"],
Cell[BoxData[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.502020452689556*^9, 3.535031289697958*^9, 3.535044468962554*^9,
3.535044851250554*^9, 3.535046161354154*^9, 3.5352190895097632`*^9,
3.5354660716805534`*^9, 3.5354661185117536`*^9, 3.5354743335343637`*^9,
3.589889403170343*^9, 3.865933639194069*^9, {3.8659363421107907`*^9,
3.8659363714606714`*^9}},ExpressionUUID->"e0fd8aa1-cd70-4945-afd1-\
f8cb799e7ff8"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"cosRaz", "=",
RowBox[{"toRule", "[", "%", "]"}]}]], "Input",ExpressionUUID->"224e9263-\
8c9c-4f9d-8282-996981903e41"],
Cell[BoxData[
RowBox[{"toRule", "[",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}], "]"}]], "Output",
CellChangeTimes->{
3.502020452892356*^9, 3.535031289775958*^9, 3.5350444692745543`*^9,
3.535044851531354*^9, 3.535046161447754*^9, 3.535219089759363*^9,
3.5354660721017537`*^9, 3.5354661188393536`*^9, 3.535474333861964*^9,
3.589889403201543*^9, 3.8659336393190603`*^9, {3.8659363421107907`*^9,
3.8659363714606714`*^9}},ExpressionUUID->"bcc5e2c5-b8e4-4707-add6-\
2a9f9667ad03"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"tanRaz", "=",
RowBox[{"toRule", "[", "%", "]"}]}]], "Input",ExpressionUUID->"6943f980-\
a190-490d-9da7-341b5c8f0ee8"],
Cell[BoxData[
RowBox[{"toRule", "[",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}], "]"}],
"]"}]], "Output",
CellChangeTimes->{
3.502020453001556*^9, 3.5350312898227577`*^9, 3.535044469430554*^9,
3.535044851671754*^9, 3.535046161494554*^9, 3.535219089899763*^9,
3.5354660722733536`*^9, 3.5354661189797535`*^9, 3.535474334002364*^9,
3.589889403217143*^9, 3.8659336393815556`*^9, {3.8659363421420383`*^9,
3.8659363714919195`*^9}},ExpressionUUID->"a0f46fb3-7642-4403-83cc-\
179f9c4cf9e1"]
}, {2}]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Formule di Werner e prostaferesi", "Section",ExpressionUUID->"fec3a4dc-e0d9-481c-8b6b-c8b322e10537"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] dimostrate", "Subsubsection",ExpressionUUID->"d2019ee7-3ec5-4fa1-9fd7-7b131910e347"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd", ",", "senDiff", ",", "senAdd", ",", "tanAdd", ",",
"tanDiff", ",", "senDupl", ",", "cosDupl", ",", "cosDuplSen", ",",
"cosDuplCos", ",", "tanDupl", ",", "senBis", ",", "cosBis", ",",
"tanBis", ",", "senRaz", ",", "cosRaz", ",", "tanRaz"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "-",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "+",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Tan", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]]]}], ",",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}]}], "}"}]}],
";"}]], "Input",ExpressionUUID->"3e56e421-9ac3-4399-b352-accaa548073f"]
}, Closed]],
Cell[CellGroupData[{
Cell["Formule di Werner", "Subsection",ExpressionUUID->"3b84d991-df41-4417-b17d-0d48f725549d"],
Cell["\<\
Riportate di seguito le formule di addizione e sottrazione per il seno e \
coseno, deduciamo da queste delle ulteriori identit\[AGrave] con le quali \
potremo collegare prodotti di funzioni goniometriche con somme.\
\>", "Text",ExpressionUUID->"15d208ed-7aab-43fb-b4d7-4f4e4788544d"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"\"\<(1) senAdd\>\"", ",", "\"\<(2) senDiff\>\"", ",",
"\"\<(3) cosAdd\>\"", ",", "\"\<(4) cosDiff\>\""}], "}"}], ",",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"senAdd", ",", "senDiff", ",", "cosAdd", ",", "cosDiff"}],
"}"}]}]}], "}"}], "]"}], "//", "TableForm"}]], "Input",
CellTags->"riassunto",ExpressionUUID->"a6afbf33-37c5-4ba0-bde6-a5737eda326f"],
Cell[BoxData[
TagBox[GridBox[{
{"\<\"(1) senAdd\"\>",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]},
{"\<\"(2) senDiff\"\>",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]},
{"\<\"(3) cosAdd\"\>",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]},
{"\<\"(4) cosDiff\"\>",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}]}
},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.5020204530639563`*^9, 3.535031289853958*^9,
3.535044469508554*^9, 3.535044851796554*^9, 3.535046161525754*^9,
3.5352190900245633`*^9, 3.5354660723981533`*^9, 3.5354661190577536`*^9,
3.535474334095964*^9, 3.589889403295143*^9, 3.865933654481139*^9,
3.8659363715231676`*^9},
CellTags->"riassunto",ExpressionUUID->"ed06b084-4c45-4f3f-a236-ba2c88d71b05"]
}, {2}]],
Cell[TextData[{
"Sommando quindi in colonna le ",
ButtonBox["prime due",
BaseStyle->"Hyperlink",
ButtonData:>"riassunto"],
", otteniamo"
}], "Text",ExpressionUUID->"cad5214e-fd2a-4d5f-a7ed-843f093de842"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plus", "@@",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"senAdd", ",", "senDiff"}], "}"}]}]}]], "Input",ExpressionUUID->\
"41935904-b79c-4113-b74c-f5560f6b12d0"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{3.5020204530951557`*^9, 3.535031289869558*^9,
3.5350444695709543`*^9, 3.535044851843354*^9, 3.535046161541354*^9,
3.5352190900713634`*^9, 3.5354660724605536`*^9, 3.5354661191045537`*^9,
3.535474334142764*^9, 3.589889403295143*^9, 3.865933654512387*^9,
3.8659363715387917`*^9},ExpressionUUID->"9683c410-3aad-4d44-a057-\
d20a412a28e9"]
}, {2}]],
Cell["\<\
che evidentemente associa il prodotto del seno e coseno con una somma. \
Dividendo per 2 e scrivendo il secondo membro come primo abbiamo \
\>", "Text",ExpressionUUID->"48ab4ad5-ca91-4545-aad3-b1a965269f95"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", " ", "/", "2"}], "//", "scambia"}]], "Input",ExpressionUUID->\
"379340e3-17d5-45ec-ba0d-6ecc3b034bd3"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.502020453126356*^9, 3.535031289869558*^9,
3.535044469617754*^9, 3.535044851890154*^9, 3.535046161556954*^9,
3.535219090118163*^9, 3.5354660725229535`*^9, 3.535466119151354*^9,
3.5354743341895638`*^9, 3.5898894033107433`*^9, 3.865933654512387*^9,
3.8659363715700445`*^9},ExpressionUUID->"f6312bcf-048c-4418-a0df-\
5c790bfd4124"]
}, {2}]],
Cell[TextData[{
"espressione che costituisce la prima formula di Werner. Se, al contrario, \
eseguiamo la differenza delle ",
ButtonBox["prime due",
BaseStyle->"Hyperlink",
ButtonData:>"riassunto"],
" identit\[AGrave] e procediamo allo stesso modo otteniamo"
}], "Text",ExpressionUUID->"ec2de05b-87bf-4760-977a-85daa43f2f7b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Subtract", "@@",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"senAdd", ",", "senDiff"}], "}"}]}]}], "//",
"scambia"}]], "Input",ExpressionUUID->"08e35d1a-0083-464b-a4cb-\
9ed26c107874"],
Cell[BoxData[
RowBox[{
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}], "\[Equal]",
RowBox[{
RowBox[{"-",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453188756*^9, 3.535031289900758*^9,
3.535044469726954*^9, 3.535044851983754*^9, 3.535046161588154*^9,
3.535219090196163*^9, 3.5354660726321535`*^9, 3.5354661192449536`*^9,
3.535474334298764*^9, 3.589889403326343*^9, 3.8659336545436344`*^9,
3.865936371601287*^9},ExpressionUUID->"0b1e9f9e-61be-40a9-be75-\
83baefe963c2"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/", "2"}]], "Input",ExpressionUUID->"af030d52-41e3-4bbc-96f6-9db23f7f40af"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.502020453219956*^9, 3.535031289916358*^9,
3.535044469773754*^9, 3.535044852030554*^9, 3.535046161603754*^9,
3.5352190902429633`*^9, 3.5354660726945534`*^9, 3.535466119291754*^9,
3.5354743343299637`*^9, 3.589889403326343*^9, 3.8659336545748825`*^9,
3.865936371632535*^9},ExpressionUUID->"0c028165-3e31-479b-a7c6-\
c13661de71c0"]
}, {2}]],
Cell[TextData[{
"che sostanzialmente mostra il medesimo risultato a parte lo scambio \
dell'angolo ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"db84fc77-b795-4f22-a500-65c7872f70b4"],
" con ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"2f748f22-37a5-4e5e-b7a9-a1517faac371"],
". Eseguendo invece la somma della ",
ButtonBox["terza e quarta",
BaseStyle->"Hyperlink",
ButtonData:>"riassunto"],
" identit\[AGrave]"
}], "Text",ExpressionUUID->"3b224725-5a38-41bd-9b2c-36d3f915a6a6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plus", "@@",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"cosAdd", ",", "cosDiff"}], "}"}]}]}]], "Input",ExpressionUUID->\
"5e29d42b-7ee0-4d9c-bd58-2d8147f50154"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453266756*^9, 3.5350312899319577`*^9,
3.535044469820554*^9, 3.535044852077354*^9, 3.5350461616193542`*^9,
3.5352190902897635`*^9, 3.5354660727569537`*^9, 3.5354661193385534`*^9,
3.535474334392364*^9, 3.589889403341943*^9, 3.8659336546061306`*^9,
3.865936371632535*^9},ExpressionUUID->"34f3a53a-6dcf-4e18-84ab-\
33c9a17b1c5a"]
}, {2}]],
Cell[TextData[{
"giungiamo, dopo aver scambiato i membri e diviso per ",
Cell[BoxData[
FormBox["2", TraditionalForm]],ExpressionUUID->
"ce746ff4-f8bf-45d1-84e9-8a6eabd9889a"]
}], "Text",ExpressionUUID->"a6f1133b-7c31-472d-9320-77de5ceb340e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/", "2"}], "//", "scambia"}]], "Input",ExpressionUUID->\
"918cc89d-48f8-4b50-98b9-9f369178a2cb"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.5020204533135557`*^9, 3.5350312899475574`*^9,
3.535044469867354*^9, 3.535044852124154*^9, 3.535046161634954*^9,
3.535219090336563*^9, 3.5354660728193536`*^9, 3.5354661193853536`*^9,
3.535474334439164*^9, 3.589889403357543*^9, 3.8659336546217546`*^9,
3.865936371663783*^9},ExpressionUUID->"aa074c91-2fd5-47d6-83ec-\
1b5207d50481"]
}, {2}]],
Cell[TextData[{
"alla seconda formula di Werner: questa collega il prodotto di due coseni \
con una somma. Infine sottraendo la ",
ButtonBox["quarta dalla terza",
BaseStyle->"Hyperlink",
ButtonData:>"riassunto"]
}], "Text",ExpressionUUID->"e88a43b3-9cde-4868-a615-06336e64a9ad"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Subtract", "@@",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"cosAdd", ",", "cosDiff"}], "}"}]}]}]], "Input",ExpressionUUID->\
"8858086e-a030-496d-8a51-8466047b0c79"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], "\[Equal]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453375956*^9, 3.5350312899631577`*^9,
3.535044470023354*^9, 3.535044852217754*^9, 3.535046161666154*^9,
3.535219090414563*^9, 3.5354660729909534`*^9, 3.5354661194789534`*^9,
3.535474334532764*^9, 3.589889403373143*^9, 3.865933654668626*^9,
3.86593637169503*^9},ExpressionUUID->"56f7be36-e714-40e9-b0d6-49c082514ff8"]
}, {2}]],
Cell[TextData[{
"e semplificata dividendola per ",
Cell[BoxData[
FormBox[
RowBox[{"-", "2"}], TraditionalForm]],ExpressionUUID->
"1d198a06-1eb0-4dbc-b1dd-6e6ec2c1f6e8"],
" e quindi scambiati i membri, ricaviamo la terza formula di Werner che \
riporta un prodotto di seni in una somma."
}], "Text",ExpressionUUID->"330e8dcf-bdd4-42a4-8ca1-35e1b3c1bd3c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/",
RowBox[{"-", "2"}]}], "//", "scambia"}]], "Input",ExpressionUUID->\
"ffacbb49-58fa-4000-9ee9-80749b46d87b"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "-",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.502020453407156*^9, 3.535031289978758*^9,
3.535044470070154*^9, 3.535044852264554*^9, 3.535046161681754*^9,
3.535219090476963*^9, 3.5354660730533533`*^9, 3.5354661195257535`*^9,
3.535474334579564*^9, 3.589889403373143*^9, 3.865933654699874*^9,
3.8659348603488445`*^9,
3.8659363717262783`*^9},ExpressionUUID->"3f1e0d85-6e80-48c2-ae62-\
b6fc7e5c89e2"]
}, {2}]],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.8659930929771123`*^9,
3.8659930947980843`*^9}},ExpressionUUID->"9272a84a-8649-416b-b96a-\
a8a613d4d37e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"wernerCosSen", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}],
"]"}]}]], "Input",
CellChangeTimes->{
3.8659931079364405`*^9},ExpressionUUID->"09f62028-eece-41c4-8e9e-\
967c1a841512"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]_", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]_", "]"}]}], "\[RuleDelayed]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.502020453157556*^9, 3.5350312898851576`*^9,
3.535044469664554*^9, 3.535044851936954*^9, 3.535046161572554*^9,
3.5352190901649632`*^9, 3.5354660725697536`*^9, 3.5354661191981535`*^9,
3.535474334236364*^9, 3.5898894033107433`*^9, 3.8659336545436344`*^9,
3.8659363715856633`*^9},ExpressionUUID->"b68b2ca0-f9ef-43b3-857d-\
4123af44cfbd"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"wernerCosCos", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}],
"]"}]}]], "Input",
CellChangeTimes->{
3.8659931447280064`*^9},ExpressionUUID->"9e9f5dec-49ff-43e5-8c0a-\
f2b9a3883991"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]_", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]_", "]"}]}], "\[RuleDelayed]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.502020453344756*^9, 3.5350312899475574`*^9,
3.535044469914154*^9, 3.5350448521709538`*^9, 3.5350461616505537`*^9,
3.5352190903833632`*^9, 3.5354660729285536`*^9, 3.5354661194321537`*^9,
3.535474334485964*^9, 3.589889403357543*^9, 3.8659336546373787`*^9,
3.86593637169503*^9},ExpressionUUID->"c03ccf6e-b781-4ffd-84e5-b63384b6a577"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Formule di prostaferesi", "Subsection",ExpressionUUID->"cb5e1c64-1658-449e-b070-bd0b234ff7d0"],
Cell[TextData[{
"Infine, le quattro formule di prostaferesi si deducono dalle espressioni \
intermedie servite per giungere alle relazioni di Werner. A tal fine si \
sostituiscono, in luogo degli angoli ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"dd80346d-12b0-43bb-9861-e9f9bf8c3059"],
" e ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"621ddbc2-4800-41e9-bb43-0325dcd915e9"],
", le nuove variabili"
}], "Text",ExpressionUUID->"aadd891d-cd45-4c18-8488-4f353b22a8bd"],
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["{",
SpanMaxSize->Infinity,
FontColor->GrayLevel[0]], GridBox[{
{
RowBox[{"p", "=",
RowBox[{"\[Alpha]", "+", "\[Beta]"}]}]},
{
RowBox[{"q", "=",
RowBox[{"\[Alpha]", "-", "\[Beta]"}]}]}
}]}], TraditionalForm]], "DisplayFormula",ExpressionUUID->"4df02358-69ac-\
4e4a-afb2-dafe06dc9e9c"],
Cell[TextData[{
"Esplicitati ",
Cell[BoxData[
FormBox["\[Alpha]", TraditionalForm]],ExpressionUUID->
"d2ec1766-355f-4488-9806-177448096f1e"],
" e ",
Cell[BoxData[
FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
"94f47b28-de79-4559-9b3c-2535c536abd8"],
" in termini di ",
Cell[BoxData[
FormBox["p", TraditionalForm]],ExpressionUUID->
"cf5ec1ff-ca10-4f1f-99c4-27c979ce388e"],
" e ",
Cell[BoxData[
FormBox["q", TraditionalForm]],ExpressionUUID->
"7e082b20-2f7e-493b-92df-3bb02bcb5807"]
}], "Text",ExpressionUUID->"0251bf24-2737-49cb-bd5c-7eae05bafc84"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{" ",
RowBox[{"sol", "=",
RowBox[{
RowBox[{"Flatten", "[",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "\[Equal]", "p"}], ",",
RowBox[{
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "\[Equal]", "q"}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "]"}], "//",
"Simplify"}]}]}]], "Input",ExpressionUUID->"0a33af5f-78a5-4969-b661-\
c8936e51680e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"p", "+", "q"}], "2"]}], ",",
RowBox[{"\[Beta]", "\[Rule]",
FractionBox[
RowBox[{"p", "-", "q"}], "2"]}]}], "}"}]], "Output",
CellChangeTimes->{3.502020453485156*^9, 3.535031290009958*^9,
3.535044470163754*^9, 3.5350448523581543`*^9, 3.535046161712954*^9,
3.5352190905861635`*^9, 3.5354660732249537`*^9, 3.5354661196193533`*^9,
3.535474334673164*^9, 3.589889403388743*^9, 3.8659336547311215`*^9,
3.865936371757526*^9},ExpressionUUID->"c962f899-07cb-4309-b4da-\
ab647d322164"]
}, {2}]],
Cell["\<\
e, dopo aver sommato la formula di addizione per il seno con quella della \
sottrazione,\
\>", "Text",ExpressionUUID->"859943dd-ee95-4b02-80d9-50db118220d6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plus", "@@",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"senAdd", ",", "senDiff"}], "}"}]}]}]], "Input",ExpressionUUID->\
"67ddcd3f-9422-40d3-86f3-1393ab287106"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453516356*^9, 3.5350312900255575`*^9,
3.5350444702261543`*^9, 3.535044852404954*^9, 3.535046161728554*^9,
3.535219090632963*^9, 3.5354660732873535`*^9, 3.535466119666154*^9,
3.535474334735564*^9, 3.5898894034043427`*^9, 3.865933654762369*^9,
3.8659363717887735`*^9},ExpressionUUID->"036ce405-91fb-4f57-bcf6-\
d71cde2068bb"]
}, {2}]],
Cell["\[EGrave] sufficiente sostituire le nuove variabili", "Text",ExpressionUUID->"2b6f0f22-2fec-45eb-80e8-b863371352e5"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "/.", "sol"}]], "Input",ExpressionUUID->"b8ee649c-2e17-4296-9596-f4b45714bfe4"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "+",
FractionBox[
RowBox[{"p", "+", "q"}], "2"]}], "]"}], "+",
RowBox[{"sen", "[",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+",
FractionBox[
RowBox[{"p", "+", "q"}], "2"]}], "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453547556*^9, 3.5350312900411577`*^9,
3.535044470272954*^9, 3.535044852451754*^9, 3.535046161744154*^9,
3.535219090695363*^9, 3.5354660733497534`*^9, 3.5354661197129536`*^9,
3.5354743348135643`*^9, 3.589889403419943*^9, 3.8659336547779937`*^9,
3.8659363717887735`*^9},ExpressionUUID->"57d122b2-096d-432c-981e-\
66ba112eed06"]
}, {2}]],
Cell["e semplificare", "Text",ExpressionUUID->"2acff265-ee7b-4189-9a1f-a56848d8a900"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "//", "Simplify"}]], "Input",ExpressionUUID->"8ce11db9-5a3c-489f-a6dd-7547805df97d"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[", "p", "]"}], "+",
RowBox[{"sen", "[", "q", "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453594356*^9, 3.5350312900411577`*^9,
3.535044470335354*^9, 3.535044852498554*^9, 3.535046161759754*^9,
3.535219090742163*^9, 3.5354660734121532`*^9, 3.5354661197597537`*^9,
3.535474334860364*^9, 3.589889403419943*^9, 3.8659336547936172`*^9,
3.865934888432332*^9,
3.8659363718200216`*^9},ExpressionUUID->"3ebf7e83-0578-4fef-948a-\
6d358471a46f"]
}, {2}]],
Cell[TextData[{
"\[CapitalEGrave] questa la prima formula di prostaferesi che, come appare \
evidente, riduce una somma di seni ad un prodotto. Le altre si ottengono in \
maniera analoga: per ottenere la seconda identit\[AGrave] di prostaferesi, \
riferendoci sempre alle identit\[AGrave] di inizio sezione va sottratta la ",
ButtonBox["seconda dalla prima",
BaseStyle->"Hyperlink",
ButtonData:>"riassunto"],
" "
}], "Text",ExpressionUUID->"d13b907c-6948-4bee-8ecd-8b54f425b6a6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Subtract", "@@",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"senAdd", ",", "senDiff"}], "}"}]}]}]], "Input",ExpressionUUID->\
"700e79eb-febc-405d-bf3d-31e3c0c0f12b"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453656756*^9, 3.535031290072358*^9,
3.535044470428954*^9, 3.535044852592154*^9, 3.535046161790954*^9,
3.5352190908045635`*^9, 3.5354660734901533`*^9, 3.5354661198689537`*^9,
3.535474334922764*^9, 3.5898894034511433`*^9, 3.865933654824865*^9,
3.8659363718512697`*^9},ExpressionUUID->"5b2592ea-3391-4366-8557-\
cc895d3b5f9e"]
}, {2}]],
Cell["per cui, scambiati i membri", "Text",ExpressionUUID->"b3c60719-c975-49bc-a3a2-7ac30dde668c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "//", "scambia"}]], "Input",ExpressionUUID->"cd8392d6-529d-42e7-93fe-67b7f452ddcc"],
Cell[BoxData[
RowBox[{
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}], "\[Equal]",
RowBox[{
RowBox[{"-",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453687956*^9, 3.535031290087958*^9,
3.535044470475754*^9, 3.535044852638954*^9, 3.535046161806554*^9,
3.5352190908669634`*^9, 3.5354660735525537`*^9, 3.5354661199157534`*^9,
3.535474334969564*^9, 3.589889403466743*^9, 3.8659336548561125`*^9,
3.865936371882517*^9},ExpressionUUID->"b930cdca-30dd-4fe3-a956-\
1905d7c3cf34"]
}, {2}]],
Cell["e sostituite le nuove variabili angolari si ottiene", "Text",ExpressionUUID->"3686d20a-be24-4816-891c-d81f463b12ba"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "sol"}], "//", "Simplify"}]], "Input",ExpressionUUID->\
"0c6d527c-ae47-4fee-8e6a-e66351a7d21d"],
Cell[BoxData[
RowBox[{
RowBox[{"sen", "[", "p", "]"}], "\[Equal]",
RowBox[{
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}]}], "+",
RowBox[{"sen", "[", "q", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453734756*^9, 3.5350312901035576`*^9,
3.5350444705381536`*^9, 3.535044852685754*^9, 3.535046161822154*^9,
3.535219090913763*^9, 3.5354660736149535`*^9, 3.5354661199625535`*^9,
3.5354743350319643`*^9, 3.5898894034823427`*^9, 3.8659336548873606`*^9,
3.865936371898141*^9},ExpressionUUID->"f2cd56da-1cab-4242-bc10-\
efb52e014a11"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "-",
RowBox[{"sen", "[", "q", "]"}]}]], "Input",ExpressionUUID->"0f0be09a-d818-\
4b8b-abd4-e8ac22853514"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[", "p", "]"}], "-",
RowBox[{"sen", "[", "q", "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453765956*^9, 3.535031290119158*^9,
3.5350444705849543`*^9, 3.535044852732554*^9, 3.5350461618377542`*^9,
3.535219090960563*^9, 3.5354660736617537`*^9, 3.5354661200093536`*^9,
3.535474335078764*^9, 3.589889403513543*^9, 3.8659336548873606`*^9,
3.865936371929389*^9},ExpressionUUID->"b5b0df5b-f360-4064-be2e-\
3ebebb24a7a9"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"proSenDiffSen", "=",
RowBox[{"toRule", "[",
RowBox[{"%", ",",
RowBox[{"{",
RowBox[{"p", ",", "q"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\
"35c31653-2b1b-4dec-a713-0fbcad2734ad"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[", "p_", "]"}], "-",
RowBox[{"sen", "[", "q_", "]"}]}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{3.5020204537971563`*^9, 3.535031290134758*^9,
3.535044470631754*^9, 3.535044852779354*^9, 3.535046161853354*^9,
3.5352190910073633`*^9, 3.5354660737241535`*^9, 3.5354661200561533`*^9,
3.535474335109964*^9, 3.589889403544743*^9, 3.8659336549186087`*^9,
3.865936371960637*^9},ExpressionUUID->"5521f941-a02f-41a0-aa32-\
7fa6dfa9fc85"]
}, {2}]],
Cell[TextData[{
"Per la terza di prostaferesi, si parte invece dalla somma della ",
ButtonBox["terza identit\[AGrave]",
BaseStyle->"Hyperlink",
ButtonData:>"riassunto"],
" iniziale con la ",
ButtonBox["quarta",
BaseStyle->"Hyperlink",
ButtonData:>"riassunto"]
}], "Text",ExpressionUUID->"99a8f710-f14b-49a9-b2c7-31d6f6f258a2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plus", "@@",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"cosAdd", ",", "cosDiff"}], "}"}]}]}]], "Input",ExpressionUUID->\
"4e771fbb-757e-4993-9156-ebf2b4d9907f"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453828356*^9, 3.5350312901503577`*^9,
3.535044470678554*^9, 3.535044852872954*^9, 3.5350461618689537`*^9,
3.535219091116563*^9, 3.5354660737865534`*^9, 3.535466120102954*^9,
3.535474335172364*^9, 3.589889403575943*^9, 3.865933654949856*^9,
3.865936371960637*^9},ExpressionUUID->"5332b3a7-b6a6-472c-bb77-\
f6b0ec5a62e1"]
}, {2}]],
Cell["e con il medesimo processo si trova", "Text",ExpressionUUID->"5e3bde56-340a-4507-838a-db574299ddb3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "sol"}], "//", "Simplify"}]], "Input",ExpressionUUID->\
"afd7cad3-ea0e-48f9-99fa-5471242fa3cc"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "p", "]"}], "+",
RowBox[{"cos", "[", "q", "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453859556*^9, 3.5350312901659575`*^9,
3.535044470740954*^9, 3.535044852919754*^9, 3.535046161884554*^9,
3.5352190911633635`*^9, 3.5354660738489532`*^9, 3.5354661201497536`*^9,
3.535474335219164*^9, 3.589889403591543*^9, 3.86593365496548*^9,
3.865936371991884*^9},ExpressionUUID->"c1a1dd75-9ac0-4f3f-9c86-\
0f0913b1a318"]
}, {2}]],
Cell[TextData[{
"Per ultimo, sottraendo la ",
ButtonBox["quarta dalla terza",
BaseStyle->"Hyperlink",
ButtonData:>"riassunto"]
}], "Text",ExpressionUUID->"fa56d403-9c08-4b9e-adfa-9e3c447042bb"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Subtract", "@@",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{"cosAdd", ",", "cosDiff"}], "}"}]}]}]], "Input",ExpressionUUID->\
"a6a530b2-3d10-48d7-b6c5-482b3ba07db2"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], "\[Equal]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]], "Output",
CellChangeTimes->{3.5020204539375563`*^9, 3.5350312901815577`*^9,
3.5350444708345537`*^9, 3.5350448530133543`*^9, 3.5350461619157543`*^9,
3.5352190912413635`*^9, 3.535466073973754*^9, 3.5354661202121534`*^9,
3.5354743352815638`*^9, 3.589889403607143*^9, 3.865933654981104*^9,
3.8659363720231323`*^9},ExpressionUUID->"10e36585-046d-49ed-96ad-\
5025e2d1bf06"]
}, {2}]],
Cell[TextData[{
"e, inserite le varibili ",
Cell[BoxData[
FormBox["p", TraditionalForm]],ExpressionUUID->
"bf75f180-869a-470e-99fd-ba43559c30e6"],
" e ",
Cell[BoxData[
FormBox["q", TraditionalForm]],ExpressionUUID->
"f61ceafe-b6db-4583-be6d-5603e12e6305"]
}], "Text",ExpressionUUID->"55284d6e-e8f9-4772-b292-c72de0961bf1"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.", "sol"}], "//", "Simplify"}]], "Input",ExpressionUUID->\
"517dc986-2e4a-4ce7-a188-654aafe614fa"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "p", "]"}], "+",
RowBox[{"2", " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}], "\[Equal]",
RowBox[{"cos", "[", "q", "]"}]}]], "Output",
CellChangeTimes->{3.5020204539687557`*^9, 3.535031290197158*^9,
3.5350444708813543`*^9, 3.535044853060154*^9, 3.535046161931354*^9,
3.535219091288163*^9, 3.535466074036154*^9, 3.5354661202589536`*^9,
3.535474335328364*^9, 3.5898894036227427`*^9, 3.865933655012352*^9,
3.8659363720387564`*^9},ExpressionUUID->"5032c8ff-bfee-4862-92a8-\
a08f4acfcbfb"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "-",
RowBox[{"cos", "[", "p", "]"}]}], "//", "scambia"}]], "Input",ExpressionUUI\
D->"97c12487-f95f-47ec-b8f6-fedcc48f90e1"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"cos", "[", "p", "]"}]}], "+",
RowBox[{"cos", "[", "q", "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020453999956*^9, 3.535031290212758*^9,
3.535044470928154*^9, 3.535044853106954*^9, 3.535046161946954*^9,
3.535219091334963*^9, 3.5354660740985537`*^9, 3.5354661203057537`*^9,
3.535474335375164*^9, 3.5898894036227427`*^9, 3.8659336550435996`*^9,
3.865936372070004*^9},ExpressionUUID->"847042ac-d120-4b07-ba0c-\
b9849737bed9"]
}, {2}]],
Cell[TextData[{
"la moltiplicazione per ",
Cell[BoxData[
FormBox[
RowBox[{"-", "1"}], TraditionalForm]],ExpressionUUID->
"d6017b51-024a-446a-a342-437725d1fa7e"],
" conduce al risultato cercato"
}], "Text",ExpressionUUID->"296191ec-7ae8-4506-898b-8637f45341a8"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", " ",
RowBox[{"(",
RowBox[{"-", "1"}], ")"}]}]], "Input",ExpressionUUID->"fc9de175-9149-48b4-\
877e-72e225223a4a"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "p", "]"}], "-",
RowBox[{"cos", "[", "q", "]"}]}], "\[Equal]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020454031156*^9, 3.535031290228358*^9,
3.5350444710217543`*^9, 3.535044853153754*^9, 3.535046161962554*^9,
3.535219091397363*^9, 3.5354660741609535`*^9, 3.5354661203525534`*^9,
3.5354743354219637`*^9, 3.589889403638343*^9, 3.8659336550435996`*^9,
3.865936372070004*^9},ExpressionUUID->"2dccf12c-040a-4ea8-84fb-\
827a9e8493e6"]
}, {2}]],
Cell[TextData[{
"In conclusione le",
StyleBox[" 3 f",
FontWeight->"Bold"],
StyleBox["ormule distinte di Werner",
FontWeight->"Bold"],
" sono"
}], "Text",ExpressionUUID->"48c28586-189c-48f6-917a-7abfa73d9c7d"],
Cell[BoxData[{
FormBox[
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Beta]", ")"}], " ",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}], "\[LongEqual]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "+",
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], ")"}]}]}],
TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"cos", "(", "\[Beta]", ")"}]}], "\[LongEqual]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "+",
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], ")"}]}]}],
TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}], "\[LongEqual]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "-",
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], ")"}]}]}],
TraditionalForm]}], "Output",
CellChangeTimes->{
3.535044192826954*^9, {3.535044357937354*^9, 3.535044384410554*^9},
3.5898894036695433`*^9},ExpressionUUID->"70095777-f8ce-4177-a7ad-\
7f088ec2b08b"],
Cell[TextData[{
"e collegano dei prodotti di funzioni con delle somme, mentre le quattro di ",
StyleBox["prostaferesi",
FontWeight->"Bold"]
}], "Text",ExpressionUUID->"9110b439-c9ab-49b7-bf16-64a63b8f567b"],
Cell[BoxData[{
FormBox[
RowBox[{
RowBox[{
RowBox[{"sen", "(", "p", ")"}], "+",
RowBox[{"sen", "(", "q", ")"}]}], "\[LongEqual]",
RowBox[{"2", " ",
RowBox[{"sen", "(",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], ")"}], " ",
RowBox[{"cos", "(",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{
RowBox[{"sen", "(", "p", ")"}], "-",
RowBox[{"sen", "(", "q", ")"}]}], "\[LongEqual]",
RowBox[{"2", " ",
RowBox[{"sen", "(",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], ")"}], " ",
RowBox[{"cos", "(",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{
RowBox[{"cos", "(", "p", ")"}], "+",
RowBox[{"cos", "(", "q", ")"}]}], "\[LongEqual]",
RowBox[{"2", " ",
RowBox[{"cos", "(",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], ")"}], " ",
RowBox[{"cos", "(",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], ")"}]}]}], TraditionalForm], "\n",
FormBox[
RowBox[{
RowBox[{
RowBox[{"cos", "(", "p", ")"}], "-",
RowBox[{"cos", "(", "q", ")"}]}], "\[LongEqual]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"sen", "(",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], ")"}], " ",
RowBox[{"sen", "(",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], ")"}]}]}], TraditionalForm]}], "Output",
CellChangeTimes->{{3.535044208489354*^9, 3.535044239689354*^9}, {
3.535044301059754*^9, 3.535044339404554*^9},
3.5898894037007427`*^9},ExpressionUUID->"e557f3a5-d2fe-4477-9569-\
dccb26fab9ca"],
Cell["associano a somme delle medesime funzioni, dei prodotti.", "Text",ExpressionUUID->"044a42ec-dc7d-423b-8589-e54afcc2327b"],
Cell[CellGroupData[{
Cell["To rules", "Subsubsection",
CellChangeTimes->{{3.8659371777339754`*^9,
3.8659371796400905`*^9}},ExpressionUUID->"fba391ff-3eed-47bc-8254-\
029a91b3adad"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"wernerSenSen", "=",
RowBox[{"toRule", "[", "%", "]"}]}]], "Input",ExpressionUUID->"d444da59-\
dd7f-473a-a590-f8ef4bc6b7c9"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[", "\[Alpha]_", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]_", "]"}]}], "\[RuleDelayed]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "-",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.502020453438356*^9, 3.535031289994358*^9,
3.535044470116954*^9, 3.5350448523113537`*^9, 3.5350461616973543`*^9,
3.535219090523763*^9, 3.535466073100154*^9, 3.5354661195725536`*^9,
3.5354743346263638`*^9, 3.589889403388743*^9, 3.865933654699874*^9,
3.8659363717262783`*^9},ExpressionUUID->"fbb66822-3805-4c16-8e38-\
0990c60f0007"]
}, {2}]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"proSenAddSen", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"sen", "[", "p", "]"}], "+",
RowBox[{"sen", "[", "q", "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"p", ",", "q"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{3.5351293982933545`*^9, 3.865937242228588*^9,
3.865937292582445*^9},ExpressionUUID->"16b3e350-9ce7-49a7-92dd-\
39568a867e35"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sen", "[", "p_", "]"}], "+",
RowBox[{"sen", "[", "q_", "]"}]}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{
3.8659372933480015`*^9},ExpressionUUID->"9302716d-3663-4147-b5b3-\
8ae95c7f9840"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"proCosAddCos", "=",
RowBox[{"toRule", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"cos", "[", "p", "]"}], "+",
RowBox[{"cos", "[", "q", "]"}]}], "\[Equal]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"p", ",", "q"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.5351317326741543`*^9, {3.86593736084224*^9,
3.8659373871749735`*^9}},ExpressionUUID->"7a8646b4-4173-4247-8413-\
f72d63cd2503"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "p_", "]"}], "+",
RowBox[{"cos", "[", "q_", "]"}]}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{
3.865937388018648*^9},ExpressionUUID->"ba2dd921-4b4d-4c98-b157-\
8475f0f3ec22"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"proCosDiffCos", "=",
RowBox[{"toRule", "[",
RowBox[{"%", ",",
RowBox[{"{",
RowBox[{"p", ",", "q"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\
"0bdf62dd-652f-43f8-af90-0be253af5deb"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cos", "[", "p_", "]"}], "-",
RowBox[{"cos", "[", "q_", "]"}]}], "\[RuleDelayed]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]], "Output",
CellChangeTimes->{3.502020454062356*^9, 3.5350312902439575`*^9,
3.535044471068554*^9, 3.535044853200554*^9, 3.535046161978154*^9,
3.5352190914441633`*^9, 3.5354660742077537`*^9, 3.5354661203993535`*^9,
3.5354743354687643`*^9, 3.589889403638343*^9, 3.8659336550748477`*^9,
3.865936372101252*^9},ExpressionUUID->"f1c737d2-db36-4972-89f7-\
efe52b92bea4"]
}, {2}]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Riassunto di tutte le identit\[AGrave] dimostrate", "Section",ExpressionUUID->"42fd3a18-5b64-4146-9f21-9e1fdb56e588"],
Cell[CellGroupData[{
Cell["Tabelle", "Subsection",ExpressionUUID->"23c447a1-ffee-4644-974b-689360ecdfa1"],
Cell["\<\
Presentiamo infine due tabelle riassuntive di tutte le identit\[AGrave] \
dimostrate in questo notebook con associati i rispettivi nomi simbolici usati.\
\>", "Text",ExpressionUUID->"d0b8d5da-126b-410a-943a-e4cf4151b8d9"],
Cell[CellGroupData[{
Cell["Identit\[AGrave] goniometriche dello stesso angolo", "Subsubsection",ExpressionUUID->"b7140422-40aa-42cf-925d-66877a9983ca"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "cosNotosen", ",", "tanNotosen", ",", "senNotocos",
",", "tanNotocos", ",", "senNototan", ",", "cosNototan"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}],
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"tan", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]],
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
SqrtBox[
FractionBox[
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[", "\[Alpha]", "]"}], "]"}], "\[RuleDelayed]",
SqrtBox[
FractionBox["1",
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]]}]}], "}"}]}],
";"}], "\n",
RowBox[{
RowBox[{"Grid", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\""}], "}"}], ",",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "cosNotosen", ",", "tanNotosen", ",",
"senNotocos", ",", "tanNotocos", ",", "senNototan", ",",
"cosNototan"}], "}"}]}]}], "}"}], "]"}], ",",
RowBox[{"Frame", "\[Rule]", "All"}], ",",
RowBox[{"Spacings", "\[Rule]",
RowBox[{"{",
RowBox[{"2", ",", "1"}], "}"}]}], ",",
RowBox[{"Alignment", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Left", ",", "Center"}], "}"}], "}"}]}], ",",
RowBox[{"Background", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Automatic", ",",
RowBox[{"RGBColor", "[",
RowBox[{"0.85", ",", "0.95", ",", "0.75"}], "]"}]}], "}"}],
"}"}]}], "}"}]}]}], "]"}], "//", "TraditionalForm"}]}], "Input",
CellChangeTimes->{
3.5351314798689547`*^9},ExpressionUUID->"a186c976-faf0-4fcb-b4a4-\
bd295456f1db"],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"\<\"idFondamentale\"\>",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "(", "\[Alpha]", ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}], "\[LongEqual]", "1"}]},
{"\<\"cosNotosen\"\>",
RowBox[{
TemplateBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}]]}]},
{"\<\"tanNotosen\"\>",
RowBox[{
TemplateBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
FractionBox[
TemplateBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}]},
"Abs"],
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}]]]}]},
{"\<\"senNotocos\"\>",
RowBox[{
TemplateBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "(", "\[Alpha]", ")"}], "2"]}]]}]},
{"\<\"tanNotocos\"\>",
RowBox[{
TemplateBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"cos", "(", "\[Alpha]", ")"}], "2"]}]],
TemplateBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}]},
"Abs"]]}]},
{"\<\"senNototan\"\>",
RowBox[{
TemplateBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
SqrtBox[
FractionBox[
SuperscriptBox[
RowBox[{"tan", "(", "\[Alpha]", ")"}], "2"],
RowBox[{
SuperscriptBox[
RowBox[{"tan", "(", "\[Alpha]", ")"}], "2"], "+", "1"}]]]}]},
{"\<\"cosNototan\"\>",
RowBox[{
TemplateBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}]},
"Abs"], "\[LongEqual]",
SqrtBox[
FractionBox["1",
RowBox[{
SuperscriptBox[
RowBox[{"tan", "(", "\[Alpha]", ")"}], "2"], "+", "1"}]]]}]}
},
AutoDelete->False,
GridBoxAlignment->{"Columns" -> {Left, Center}},
GridBoxBackground->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic,
RGBColor[0.85, 0.95, 0.75]}}},
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
"Grid"], TraditionalForm]], "Output",
CellChangeTimes->{3.502020454124756*^9, 3.535031290290758*^9,
3.535044471146554*^9, 3.5350448532629538`*^9, 3.535046162024954*^9,
3.535219091506563*^9, 3.5354660743013535`*^9, 3.535466120461754*^9,
3.535474335546764*^9, 3.589889403731943*^9, 3.8659336742505145`*^9,
3.8659349494796023`*^9,
3.8659363721324997`*^9},ExpressionUUID->"dbc015a5-4de0-44d5-9df6-\
d20e7e7ef266"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell["Identit\[AGrave] goniometriche di angoli diversi", "Subsubsection",ExpressionUUID->"b06ef3ba-ef9d-475e-898a-4be680aec518"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl", ",",
"senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",", "senSuppl", ",",
"cosSuppl", ",", "tanSuppl", ",", "senExpl", ",", "cosExpl", ",",
"tanExpl", ",", "senOpp", ",", "cosOpp", ",", "tanOpp", ",", "cosDiff",
",", "cosAdd", ",", "senDiff", ",", "senAdd", ",", "tanAdd", ",",
"tanDiff", ",", "senDupl", ",", "cosDupl", ",", "cosDuplSen", ",",
"cosDuplCos", ",", "tanDupl", ",", "senBis", ",", "cosBis", ",",
"tanBis", ",", "senRaz", ",", "cosRaz", ",", "tanRaz", ",",
"wernerCosSen", ",", "wernerCosCos", ",", "wernerSenSen", ",",
"proSenAddSen", ",", "proSenDiffSen", ",", "proCosAddCos", ",",
"proCosDiffCos"}], "}"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "2"]}], "\[RuleDelayed]",
"1"}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cot", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{
FractionBox["\[Pi]", "2"], "+", "\[Alpha]_"}], "]"}],
"\[RuleDelayed]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}],
RowBox[{"sen", "[", "\[Alpha]", "]"}]]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Pi]", "+", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"-", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"-",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]", "]"}]}], "-",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "-",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}], "+",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]", "]"}]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "+", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "+",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"\[Alpha]_", "-", "\[Beta]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], "-",
RowBox[{"tan", "[", "\[Beta]", "]"}]}],
RowBox[{"1", "+",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]", "]"}], " ",
RowBox[{"tan", "[", "\[Beta]", "]"}]}]}]]}], ",",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[", "\[Alpha]", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]", "]"}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"sen", "[", "\[Alpha]", "]"}], "2"]}]}]}], ",",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"cos", "[", "\[Alpha]", "]"}], "2"]}]}]}], ",",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"2", " ", "\[Alpha]_"}], "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[", "\[Alpha]", "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[", "\[Alpha]", "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"sen", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"cos", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox["2"]]}], ",",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Tan", "[",
FractionBox["\[Alpha]_", "2"], "]"}], "]"}], "\[RuleDelayed]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]],
SqrtBox[
RowBox[{"1", "+",
RowBox[{"cos", "[", "\[Alpha]", "]"}]}]]]}], ",",
RowBox[{
RowBox[{"sen", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"cos", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}],
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{"tan", "[", "\[Alpha]_", "]"}], "\[RuleDelayed]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "[",
FractionBox["\[Alpha]", "2"], "]"}], "2"]}]]}], ",",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Beta]_", "]"}], " ",
RowBox[{"sen", "[", "\[Alpha]_", "]"}]}], "\[RuleDelayed]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"sen", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}], ",",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "\[Alpha]_", "]"}], " ",
RowBox[{"cos", "[", "\[Beta]_", "]"}]}], "\[RuleDelayed]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "+",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}], ",",
RowBox[{
RowBox[{
RowBox[{"sen", "[", "\[Alpha]_", "]"}], " ",
RowBox[{"sen", "[", "\[Beta]_", "]"}]}], "\[RuleDelayed]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}], "-",
RowBox[{"cos", "[",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]}], ")"}]}]}], ",",
RowBox[{
RowBox[{
RowBox[{"sen", "[", "p_", "]"}], "+",
RowBox[{"sen", "[", "q_", "]"}]}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}], ",",
RowBox[{
RowBox[{
RowBox[{"sen", "[", "p_", "]"}], "-",
RowBox[{"sen", "[", "q_", "]"}]}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}]}]}], ",",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "p_", "]"}], "+",
RowBox[{"cos", "[", "q_", "]"}]}], "\[RuleDelayed]",
RowBox[{"2", " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"cos", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}], ",",
RowBox[{
RowBox[{
RowBox[{"cos", "[", "p_", "]"}], "-",
RowBox[{"cos", "[", "q_", "]"}]}], "\[RuleDelayed]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], "]"}], " ",
RowBox[{"sen", "[",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], "]"}]}]}]}], "}"}]}], ";"}], "\n",
RowBox[{
RowBox[{"Grid", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",", "\"\\"",
",", "\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",", "\"\\"",
",", "\"\\"", ",", "\"\\"", ",", "\"\\"",
",", "\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",", "\"\\"",
",", "\"\\"", ",", "\"\\"", ",", "\"\\"",
",", "\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\"", ",",
"\"\\"", ",", "\"\\""}], "}"}], ",",
RowBox[{"toIdentita", "/@",
RowBox[{"{",
RowBox[{
"idFondamentale", ",", "senCompl", ",", "cosCompl", ",", "tanCompl",
",", "senDiffPi2", ",", "cosDiffPi2", ",", "tanDiffPi2", ",",
"senSuppl", ",", "cosSuppl", ",", "tanSuppl", ",", "senExpl", ",",
"cosExpl", ",", "tanExpl", ",", "senOpp", ",", "cosOpp", ",",
"tanOpp", ",", "cosDiff", ",", "cosAdd", ",", "senDiff", ",",
"senAdd", ",", "tanAdd", ",", "tanDiff", ",", "senDupl", ",",
"cosDupl", ",", "cosDuplSen", ",", "cosDuplCos", ",", "tanDupl",
",", "senBis", ",", "cosBis", ",", "tanBis", ",", "senRaz", ",",
"cosRaz", ",", "tanRaz", ",", "wernerCosSen", ",", "wernerCosCos",
",", "wernerSenSen", ",", "proSenAddSen", ",", "proSenDiffSen", ",",
"proCosAddCos", ",", "proCosDiffCos"}], "}"}]}]}], "}"}], "]"}],
",",
RowBox[{"Frame", "\[Rule]", "All"}], ",",
RowBox[{"Spacings", "\[Rule]",
RowBox[{"{",
RowBox[{"2", ",", "1"}], "}"}]}], ",",
RowBox[{"Alignment", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Left", ",", "Center"}], "}"}], "}"}]}], ",",
RowBox[{"Background", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Automatic", ",",
RowBox[{"RGBColor", "[",
RowBox[{"0.8", ",", "0.95", ",", "0.95"}], "]"}]}], "}"}], "}"}]}],
"}"}]}]}], "]"}], "//", "TraditionalForm"}]}], "Input",ExpressionUUID->\
"770ad071-4877-4267-85e2-770a35082b4d"],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"\<\"idFondamentale\"\>",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"cos", "(", "\[Alpha]", ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}], "\[LongEqual]", "1"}]},
{"\<\"senCompl\"\>",
RowBox[{
RowBox[{"sen", "(",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]},
{"\<\"cosCompl\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]},
{"\<\"tanCompl\"\>",
RowBox[{
RowBox[{"tan", "(",
RowBox[{
FractionBox["\[Pi]", "2"], "-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"cot", "(", "\[Alpha]", ")"}]}]},
{"\<\"senDiffPi2\"\>",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "+",
FractionBox["\[Pi]", "2"]}], ")"}], "\[LongEqual]",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]},
{"\<\"cosDiffPi2\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+",
FractionBox["\[Pi]", "2"]}], ")"}], "\[LongEqual]",
RowBox[{"-",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]}]},
{"\<\"tanDiffPi2\"\>",
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Alpha]", "+",
FractionBox["\[Pi]", "2"]}], ")"}], "\[LongEqual]",
RowBox[{"-",
FractionBox[
RowBox[{"cos", "(", "\[Alpha]", ")"}],
RowBox[{"sen", "(", "\[Alpha]", ")"}]]}]}]},
{"\<\"senSuppl\"\>",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]},
{"\<\"cosSuppl\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]}]},
{"\<\"tanSuppl\"\>",
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Pi]", "-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"-",
RowBox[{"tan", "(", "\[Alpha]", ")"}]}]}]},
{"\<\"senExpl\"\>",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "+", "\[Pi]"}], ")"}], "\[LongEqual]",
RowBox[{"-",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]}]},
{"\<\"cosExpl\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+", "\[Pi]"}], ")"}], "\[LongEqual]",
RowBox[{"-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]}]},
{"\<\"tanExpl\"\>",
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Alpha]", "+", "\[Pi]"}], ")"}], "\[LongEqual]",
RowBox[{"tan", "(", "\[Alpha]", ")"}]}]},
{"\<\"senOpp\"\>",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"-",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]}]},
{"\<\"cosOpp\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]},
{"\<\"tanOpp\"\>",
RowBox[{
RowBox[{"tan", "(",
RowBox[{"-", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"-",
RowBox[{"tan", "(", "\[Alpha]", ")"}]}]}]},
{"\<\"cosDiff\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "\[LongEqual]",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"cos", "(", "\[Beta]", ")"}]}], "+",
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}]}]},
{"\<\"cosAdd\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}], "\[LongEqual]",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"cos", "(", "\[Beta]", ")"}]}], "-",
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}]}]},
{"\<\"senDiff\"\>",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "\[LongEqual]",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Beta]", ")"}], " ",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}], "-",
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}]}]},
{"\<\"senAdd\"\>",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}], "\[LongEqual]",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Beta]", ")"}], " ",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}], "+",
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}]}]}]},
{"\<\"tanAdd\"\>",
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}], "\[LongEqual]",
FractionBox[
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], "+",
RowBox[{"tan", "(", "\[Beta]", ")"}]}],
RowBox[{"1", "-",
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], " ",
RowBox[{"tan", "(", "\[Beta]", ")"}]}]}]]}]},
{"\<\"tanDiff\"\>",
RowBox[{
RowBox[{"tan", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "\[LongEqual]",
FractionBox[
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], "-",
RowBox[{"tan", "(", "\[Beta]", ")"}]}],
RowBox[{
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], " ",
RowBox[{"tan", "(", "\[Beta]", ")"}]}], "+", "1"}]]}]},
{"\<\"senDupl\"\>",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"2", " ", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"2", " ",
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}]}]},
{"\<\"cosDupl\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"2", " ", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{
SuperscriptBox[
RowBox[{"cos", "(", "\[Alpha]", ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}]}]},
{"\<\"cosDuplSen\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"2", " ", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"sen", "(", "\[Alpha]", ")"}], "2"]}]}]}]},
{"\<\"cosDuplCos\"\>",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"2", " ", "\[Alpha]"}], ")"}], "\[LongEqual]",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"cos", "(", "\[Alpha]", ")"}], "2"]}], "-", "1"}]}]},
{"\<\"tanDupl\"\>",
RowBox[{
RowBox[{"tan", "(",
RowBox[{"2", " ", "\[Alpha]"}], ")"}], "\[LongEqual]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "(", "\[Alpha]", ")"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "(", "\[Alpha]", ")"}], "2"]}]]}]},
{"\<\"senBis\"\>",
RowBox[{
TemplateBox[{
RowBox[{"sen", "(",
FractionBox["\[Alpha]", "2"], ")"}]},
"Abs"], "\[LongEqual]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]],
SqrtBox["2"]]}]},
{"\<\"cosBis\"\>",
RowBox[{
TemplateBox[{
RowBox[{"cos", "(",
FractionBox["\[Alpha]", "2"], ")"}]},
"Abs"], "\[LongEqual]",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], "+", "1"}]],
SqrtBox["2"]]}]},
{"\<\"tanBis\"\>",
RowBox[{
TemplateBox[{
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}]},
"Abs"], "\[LongEqual]",
FractionBox[
SqrtBox[
RowBox[{"1", "-",
RowBox[{"cos", "(", "\[Alpha]", ")"}]}]],
SqrtBox[
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], "+", "1"}]]]}]},
{"\<\"senRaz\"\>",
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], "\[LongEqual]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}], "2"], "+", "1"}]]}]},
{"\<\"cosRaz\"\>",
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], "\[LongEqual]",
FractionBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}], "2"]}],
RowBox[{
SuperscriptBox[
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}], "2"], "+", "1"}]]}]},
{"\<\"tanRaz\"\>",
RowBox[{
RowBox[{"tan", "(", "\[Alpha]", ")"}], "\[LongEqual]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}]}],
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"tan", "(",
FractionBox["\[Alpha]", "2"], ")"}], "2"]}]]}]},
{"\<\"wernerCosSen\"\>",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Beta]", ")"}], " ",
RowBox[{"sen", "(", "\[Alpha]", ")"}]}], "\[LongEqual]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "+",
RowBox[{"sen", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], ")"}]}]}]},
{"\<\"wernerCosCos\"\>",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "\[Alpha]", ")"}], " ",
RowBox[{"cos", "(", "\[Beta]", ")"}]}], "\[LongEqual]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "+",
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], ")"}]}]}]},
{"\<\"wernerSenSen\"\>",
RowBox[{
RowBox[{
RowBox[{"sen", "(", "\[Alpha]", ")"}], " ",
RowBox[{"sen", "(", "\[Beta]", ")"}]}], "\[LongEqual]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], "-",
RowBox[{"cos", "(",
RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], ")"}]}]}]},
{"\<\"proSenAddSen\"\>",
RowBox[{
RowBox[{
RowBox[{"sen", "(", "p", ")"}], "+",
RowBox[{"sen", "(", "q", ")"}]}], "\[LongEqual]",
RowBox[{"2", " ",
RowBox[{"sen", "(",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], ")"}], " ",
RowBox[{"cos", "(",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], ")"}]}]}]},
{"\<\"proSenDiffSen\"\>",
RowBox[{
RowBox[{
RowBox[{"sen", "(", "p", ")"}], "-",
RowBox[{"sen", "(", "q", ")"}]}], "\[LongEqual]",
RowBox[{"2", " ",
RowBox[{"sen", "(",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], ")"}], " ",
RowBox[{"cos", "(",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], ")"}]}]}]},
{"\<\"proCosAddCos\"\>",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "p", ")"}], "+",
RowBox[{"cos", "(", "q", ")"}]}], "\[LongEqual]",
RowBox[{"2", " ",
RowBox[{"cos", "(",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], ")"}], " ",
RowBox[{"cos", "(",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], ")"}]}]}]},
{"\<\"proCosDiffCos\"\>",
RowBox[{
RowBox[{
RowBox[{"cos", "(", "p", ")"}], "-",
RowBox[{"cos", "(", "q", ")"}]}], "\[LongEqual]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"sen", "(",
FractionBox[
RowBox[{"p", "-", "q"}], "2"], ")"}], " ",
RowBox[{"sen", "(",
FractionBox[
RowBox[{"p", "+", "q"}], "2"], ")"}]}]}]}
},
AutoDelete->False,
GridBoxAlignment->{"Columns" -> {Left, Center}},
GridBoxBackground->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic,
RGBColor[0.8, 0.95, 0.95]}}},
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
"Grid"], TraditionalForm]], "Output",
CellChangeTimes->{3.502020454358756*^9, 3.5350312904623575`*^9,
3.535044471396154*^9, 3.535044853496954*^9, 3.535046162212154*^9,
3.535219091756163*^9, 3.535466074550954*^9, 3.5354661206957536`*^9,
3.535474335780764*^9, 3.589889403903543*^9, 3.8659336743598824`*^9,
3.8659363722262425`*^9},ExpressionUUID->"16674733-ef48-4981-afe8-\
f17130c09b1d"]
}, {2}]]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
},
ScreenStyleEnvironment->"Working",
RulerUnits->"Millimeters",
WindowSize->{1068., 608.25},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{841.8897637795276, 595.2755905511812},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.346456999999997`, 28.346456999999997`}, \
{28.346456999999997`, 42.519685499999994`}}},
ShowSelection->True,
CellLabelAutoDelete->True,
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"e38c255e-30d5-41bc-a454-e824feec8014"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
"figura1"->{
Cell[30122, 760, 103, 1, 22, "NumberedFigure",ExpressionUUID->"309667b6-932a-426f-aab6-7b0c4bc1c8f0",
CellTags->"figura1"],
Cell[219372, 5984, 7452, 187, 257, "Input",ExpressionUUID->"363e47dc-bc0f-4c2c-8a43-db466d98fd9e",
CellTags->"figura1"],
Cell[226827, 6173, 5475, 108, 567, "Output",ExpressionUUID->"bc6eca3e-a99e-4950-af88-0b3d6cd41a20",
CellTags->"figura1"],
Cell[236098, 6398, 5330, 140, 162, "Input",ExpressionUUID->"ec04b7f5-5bba-485a-a513-af8b11fb5703",
CellTags->"figura1"],
Cell[241431, 6540, 3629, 68, 331, "Output",ExpressionUUID->"0e6da084-aa1a-44da-b3e3-abdab284fd24",
CellTags->"figura1"]},
"cosNotosen"->{
Cell[44697, 1176, 200, 5, 28, "Input",ExpressionUUID->"d5eef5ce-6566-4003-bd5d-68b7b43ee26a",
CellTags->"cosNotosen"],
Cell[44900, 1183, 780, 16, 36, "Output",ExpressionUUID->"94f7ad3f-0020-47bf-89ab-ca4aa359c3ec",
CellTags->"cosNotosen"]},
"figura2"->{
Cell[91977, 2514, 103, 1, 22, "NumberedFigure",ExpressionUUID->"58c1285c-90df-458d-8046-7bbad1207dd6",
CellTags->"figura2"]},
"figura3"->{
Cell[126274, 3456, 103, 1, 22, "NumberedFigure",ExpressionUUID->"d6a92a4e-30e5-4a31-974a-1c00604395a6",
CellTags->"figura3"]},
"osservazione1"->{
Cell[126670, 3469, 1279, 43, 58, "Text",ExpressionUUID->"c53d2e60-71d7-440f-92f0-8dcc61a3d6af",
CellTags->"osservazione1"]},
"figura4"->{
Cell[153965, 4200, 103, 1, 22, "NumberedFigure",ExpressionUUID->"d904b775-c22f-4878-af3b-52ea45115bfa",
CellTags->"figura4"]},
"osservazione2"->{
Cell[154207, 4207, 1654, 56, 81, "Text",ExpressionUUID->"5f2ba1cb-992f-4578-877e-30901a678d9d",
CellTags->"osservazione2"]},
"figura5"->{
Cell[176248, 4790, 103, 1, 22, "NumberedFigure",ExpressionUUID->"3bedb40e-730f-47d6-a9a2-7cfe5bda985a",
CellTags->"figura5"]},
"osservazione3"->{
Cell[176500, 4797, 828, 30, 35, "Text",ExpressionUUID->"0fe2e335-7b93-49be-9961-a0c4eac6cd2b",
CellTags->"osservazione3"]},
"figura6"->{
Cell[200447, 5431, 103, 1, 22, "NumberedFigure",ExpressionUUID->"783572bb-c021-4f23-a5b6-411c45437527",
CellTags->"figura6"]},
"osservazione4"->{
Cell[200683, 5438, 1211, 46, 35, "Text",ExpressionUUID->"925a6961-3e05-4ec9-a87d-e076642f70d5",
CellTags->"osservazione4"]},
"senodispari"->{
Cell[203813, 5541, 137, 3, 28, "Input",ExpressionUUID->"add26ec7-c13c-47af-953a-18abf95c9b16",
CellTags->"senodispari"],
Cell[203953, 5546, 762, 15, 32, "Output",ExpressionUUID->"a936d04e-4f7c-4607-ac13-848ea3084397",
CellTags->"senodispari"]},
"cosenopari"->{
Cell[207846, 5652, 136, 3, 28, "Input",ExpressionUUID->"6829313b-90b5-446f-b671-bb10778d9736",
CellTags->"cosenopari"],
Cell[207985, 5657, 745, 14, 32, "Output",ExpressionUUID->"96768084-a9b6-4361-82d6-280c31ff6719",
CellTags->"cosenopari"]},
"tandispari"->{
Cell[211804, 5762, 136, 3, 28, "Input",ExpressionUUID->"c24bdad3-1559-4543-b84a-d76406f41d13",
CellTags->"tandispari"],
Cell[211943, 5767, 765, 15, 32, "Output",ExpressionUUID->"0fa22712-c5e9-4f3a-9481-12d5516169c8",
CellTags->"tandispari"]},
"figura7"->{
Cell[232314, 6284, 103, 1, 22, "NumberedFigure",ExpressionUUID->"86ed9800-898c-445d-a68c-070fc5479141",
CellTags->"figura7"]},
"relazione1"->{
Cell[235863, 6388, 210, 6, 25, "DisplayFormula",ExpressionUUID->"882e6cf7-db14-486f-b32e-043ef8f566c5",
CellTags->"relazione1"]},
"figura8"->{
Cell[245072, 6611, 103, 1, 22, "NumberedFigure",ExpressionUUID->"94be1470-5bb5-44c7-904f-4440410b1c41",
CellTags->"figura8"]},
"id1"->{
Cell[277052, 7547, 553, 14, 39, "Text",ExpressionUUID->"8391dee5-2d77-4f24-a710-17f26038dda7",
CellTags->"id1"]},
"riassunto"->{
Cell[408811, 11389, 521, 13, 48, "Input",ExpressionUUID->"a6afbf33-37c5-4ba0-bde6-a5737eda326f",
CellTags->"riassunto"],
Cell[409335, 11404, 2364, 62, 82, "Output",ExpressionUUID->"ed06b084-4c45-4f3f-a236-ba2c88d71b05",
CellTags->"riassunto"]}
}
*)
(*CellTagsIndex
CellTagsIndex->{
{"figura1", 488463, 13721},
{"cosNotosen", 489115, 13732},
{"figura2", 489380, 13737},
{"figura3", 489525, 13740},
{"osservazione1", 489677, 13743},
{"figura4", 489821, 13746},
{"osservazione2", 489973, 13749},
{"figura5", 490117, 13752},
{"osservazione3", 490269, 13755},
{"figura6", 490412, 13758},
{"osservazione4", 490564, 13761},
{"senodispari", 490712, 13764},
{"cosenopari", 490984, 13769},
{"tandispari", 491254, 13774},
{"figura7", 491521, 13779},
{"relazione1", 491670, 13782},
{"figura8", 491819, 13785},
{"id1", 491961, 13788},
{"riassunto", 492096, 13791}
}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 188, 3, 91, "Title",ExpressionUUID->"43fc3098-db52-4df1-ac0c-90cc8db41e75"],
Cell[771, 27, 174, 5, 31, "Author",ExpressionUUID->"69100563-ce17-4075-b0f7-92fe94184455"],
Cell[CellGroupData[{
Cell[970, 36, 132, 0, 53, "Subtitle",ExpressionUUID->"880a334f-82e4-4d38-9adc-8a4b18548c36"],
Cell[CellGroupData[{
Cell[1127, 40, 85, 0, 54, "Subsection",ExpressionUUID->"bfc57aef-8140-430a-b9d5-bc930c28d9ef"],
Cell[1215, 42, 1156, 25, 104, "Text",ExpressionUUID->"1cc9b1b7-d938-4f86-9099-5c6ecaf09065"],
Cell[CellGroupData[{
Cell[2396, 71, 94, 0, 45, "Subsubsection",ExpressionUUID->"bbb0ce3c-3be1-4a9d-a14a-93ee0d779038"],
Cell[2493, 73, 692, 12, 104, "Text",ExpressionUUID->"544ff349-9882-47e3-8c9a-329dfaee0111"],
Cell[CellGroupData[{
Cell[3210, 89, 243, 6, 42, "Input",ExpressionUUID->"7440fe43-35d3-4958-9c33-92c84525ceac"],
Cell[3456, 97, 398, 6, 32, "Output",ExpressionUUID->"97c2ca8d-1ba3-4aeb-99d6-f3b2dc6a368c"]
}, Open ]],
Cell[3869, 106, 869, 18, 104, "Text",ExpressionUUID->"efb79c55-a4b1-4ce4-8c9d-5c26303de9d9"]
}, Open ]],
Cell[CellGroupData[{
Cell[4775, 129, 92, 0, 45, "Subsubsection",ExpressionUUID->"70191f04-a6e5-441e-b817-a8544e333698"],
Cell[4870, 131, 1970, 44, 242, "Text",ExpressionUUID->"d9dd95a1-9055-418d-96a6-b70c724345a8"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[6889, 181, 93, 0, 54, "Subsection",ExpressionUUID->"96dee11e-f02d-4866-8962-c890604a784a"],
Cell[6985, 183, 163, 3, 35, "Text",ExpressionUUID->"ffbf9c47-b7d0-41ef-8e52-db4668190e73"],
Cell[7151, 188, 16755, 434, 1170, "Input",ExpressionUUID->"aebfc58b-9690-4876-baeb-ea7a3379a458"]
}, Closed]],
Cell[CellGroupData[{
Cell[23943, 627, 103, 0, 53, "Section",ExpressionUUID->"d69769a1-5bbd-43db-b2ea-36156b97f48f"],
Cell[CellGroupData[{
Cell[24071, 631, 1173, 27, 67, "Input",ExpressionUUID->"128458ab-8b5f-41f3-b15e-3d5878d69744"],
Cell[25247, 660, 4863, 97, 509, "Output",ExpressionUUID->"65865dd1-ca44-43b8-b8db-fa394b9127ad"]
}, {2}]],
Cell[30122, 760, 103, 1, 22, "NumberedFigure",ExpressionUUID->"309667b6-932a-426f-aab6-7b0c4bc1c8f0",
CellTags->"figura1"],
Cell[CellGroupData[{
Cell[30250, 765, 128, 0, 45, "Subsubsection",ExpressionUUID->"0241197b-a243-4de3-8983-c299f37d674d"],
Cell[30381, 767, 1541, 43, 104, "Text",ExpressionUUID->"8236044d-8b05-4f18-b5a0-4e333eadd113"],
Cell[CellGroupData[{
Cell[31947, 814, 638, 19, 28, "Input",ExpressionUUID->"c0406f66-9234-402c-8c6d-88de6bf32b46"],
Cell[32588, 835, 2088, 55, 173, "Output",ExpressionUUID->"e86a9390-7c5b-4244-a4c3-9160ca0d4adc"]
}, {2}]],
Cell[34688, 893, 399, 10, 37, "Text",ExpressionUUID->"56ec43ac-35cc-4f7b-ad80-d2cb188e77f8"],
Cell[CellGroupData[{
Cell[35112, 907, 213, 6, 28, "Input",ExpressionUUID->"7f59eef2-3d3e-4c2b-928b-8c61aab8b071"],
Cell[35328, 915, 811, 16, 32, "Output",ExpressionUUID->"b822488e-f7ff-4c36-bac7-3cdb317882fe"]
}, {2}]],
Cell[36151, 934, 482, 14, 35, "Text",ExpressionUUID->"452bde21-c21c-4548-b143-d235aee17026"],
Cell[CellGroupData[{
Cell[36658, 952, 354, 10, 28, "Input",ExpressionUUID->"bc590888-f61f-4eab-87a4-3820fb94def8"],
Cell[37015, 964, 961, 21, 32, "Output",ExpressionUUID->"1dc473c6-ce4f-4d29-8af6-f6d0bd78a444"]
}, {2}]],
Cell[37988, 988, 323, 9, 35, "Text",ExpressionUUID->"66384ebe-0cbf-4b3c-a5e0-23fa2f0f98e2"],
Cell[CellGroupData[{
Cell[38336, 1001, 163, 4, 30, "Input",ExpressionUUID->"ac1d2f6a-df97-49ef-be15-376012e5f0a1"],
Cell[38502, 1007, 850, 18, 32, "Output",ExpressionUUID->"4736b9e5-8566-4f2b-b682-1a78b0524624"]
}, {2}]],
Cell[39364, 1028, 205, 5, 35, "Text",ExpressionUUID->"05f6fcfb-4197-474d-96fc-83dcb8239fdf"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[39618, 1039, 122, 0, 67, "Section",ExpressionUUID->"f655f774-6563-4998-a6f8-6c5d4d4a7b22"],
Cell[CellGroupData[{
Cell[39765, 1043, 182, 3, 45, "Subsubsection",ExpressionUUID->"69629c82-25db-4619-ac9e-0c10bfd38956"],
Cell[39950, 1048, 1509, 33, 107, "Input",ExpressionUUID->"a24ebfcd-197c-4ffd-b1dc-42c431631aa3"]
}, Closed]],
Cell[CellGroupData[{
Cell[41496, 1086, 255, 6, 38, "Subsection",ExpressionUUID->"f1d2933c-26b5-4bfa-8624-7f27c79ce8d4"],
Cell[41754, 1094, 470, 10, 58, "Text",ExpressionUUID->"1296af53-00dd-44f4-af4e-1a3bd2017aca"],
Cell[CellGroupData[{
Cell[42249, 1108, 217, 5, 28, "Input",ExpressionUUID->"a5eca379-b698-4081-9ece-93158b1aa0ff"],
Cell[42469, 1115, 764, 15, 32, "Output",ExpressionUUID->"b1ce959c-2c31-45d7-883b-f13f60d113fd"]
}, {2}]],
Cell[43245, 1133, 114, 0, 35, "Text",ExpressionUUID->"a5b78b7a-433c-47f9-92e0-ae3e84cee28f"],
Cell[CellGroupData[{
Cell[43384, 1137, 108, 1, 28, "Input",ExpressionUUID->"48d808ca-9da5-49a4-bbe5-66f3947255c1"],
Cell[43495, 1140, 775, 17, 36, "Output",ExpressionUUID->"ef994feb-6387-4a19-827f-9891cb177c8f"]
}, {2}]],
Cell[44282, 1160, 390, 12, 39, "Text",ExpressionUUID->"285310ec-7be4-4de3-a339-9caedd558a07"],
Cell[CellGroupData[{
Cell[44697, 1176, 200, 5, 28, "Input",ExpressionUUID->"d5eef5ce-6566-4003-bd5d-68b7b43ee26a",
CellTags->"cosNotosen"],
Cell[44900, 1183, 780, 16, 36, "Output",ExpressionUUID->"94f7ad3f-0020-47bf-89ab-ca4aa359c3ec",
CellTags->"cosNotosen"]
}, {2}]],
Cell[CellGroupData[{
Cell[45714, 1204, 161, 3, 45, "Subsubsection",ExpressionUUID->"c45d7ddc-6a62-4954-94e8-a4a3101dbba3"],
Cell[45878, 1209, 256, 6, 28, "Input",ExpressionUUID->"aed2b8b1-32c0-45f5-86fb-5cdfdb11a217"]
}, Closed]],
Cell[CellGroupData[{
Cell[46171, 1220, 181, 3, 37, "Subsubsection",ExpressionUUID->"4e479aa6-ef12-4cd5-b705-cbe5c4674115"],
Cell[46355, 1225, 124, 0, 35, "Text",ExpressionUUID->"39de5828-3b12-4290-95f0-fe5c1be60988"],
Cell[CellGroupData[{
Cell[46504, 1229, 120, 1, 28, "Input",ExpressionUUID->"8dc03ed3-562d-4cd2-8a40-9ee7fe39b39f"],
Cell[46627, 1232, 719, 14, 50, "Output",ExpressionUUID->"11e2779f-7323-42f8-ada5-a67e515f8b2e"]
}, {2}]],
Cell[47358, 1249, 106, 0, 35, "Text",ExpressionUUID->"4b80873f-727a-40a4-8685-7110cd8bfe2a"],
Cell[CellGroupData[{
Cell[47489, 1253, 390, 11, 48, "Input",ExpressionUUID->"3e04deb7-b3ca-42ef-a053-7d7e8d7351a5"],
Cell[47882, 1266, 924, 22, 49, "Output",ExpressionUUID->"46162228-c47a-4883-8e08-4f140cc6d746"]
}, {2}]],
Cell[48818, 1291, 229, 6, 35, "Text",ExpressionUUID->"edcc61e2-77e2-45ad-b692-be71e5ba0436"],
Cell[CellGroupData[{
Cell[49072, 1301, 114, 1, 28, "Input",ExpressionUUID->"7023be5b-ac96-4487-b78d-8dda0fb317d6"],
Cell[49189, 1304, 890, 19, 55, "Output",ExpressionUUID->"da3bdfdf-282e-4c91-942e-6059a863cb81"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[50125, 1329, 163, 3, 45, "Subsubsection",ExpressionUUID->"798b4735-e0f2-49c2-934e-59d1642ddccc"],
Cell[50291, 1334, 214, 6, 28, "Input",ExpressionUUID->"ae566113-5f83-4a72-8e01-ca94c62045c9"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[50554, 1346, 255, 6, 54, "Subsection",ExpressionUUID->"6fb215d3-b5a2-4483-aabb-a5fe77049719"],
Cell[50812, 1354, 223, 3, 35, "Text",ExpressionUUID->"87f565e7-1372-4bcd-8b1a-92f2a016c2c2"],
Cell[CellGroupData[{
Cell[51060, 1361, 217, 5, 28, "Input",ExpressionUUID->"e4199358-6fe9-4260-9462-b27d053fcbbe"],
Cell[51280, 1368, 667, 14, 32, "Output",ExpressionUUID->"e5f5e99e-847a-4d2e-be79-0b3c703ff4f5"]
}, {2}]],
Cell[CellGroupData[{
Cell[51981, 1387, 108, 1, 28, "Input",ExpressionUUID->"5c4ea181-ee7b-465a-ba65-a80daf9d055a"],
Cell[52092, 1390, 698, 16, 36, "Output",ExpressionUUID->"ade7bf3b-078d-45f6-8d20-267da4cdd212"]
}, {2}]],
Cell[CellGroupData[{
Cell[52824, 1411, 174, 4, 28, "Input",ExpressionUUID->"9621dea1-47e4-4395-9c32-5114cb35cf21"],
Cell[53001, 1417, 718, 15, 36, "Output",ExpressionUUID->"a54357b0-a56b-47f7-9e03-fc7c970f8df3"]
}, {2}]],
Cell[CellGroupData[{
Cell[53753, 1437, 212, 4, 45, "Subsubsection",ExpressionUUID->"5e680ab7-e54a-4e13-b9e1-b96f45590164"],
Cell[53968, 1443, 214, 6, 28, "Input",ExpressionUUID->"9724bde8-9d3d-4180-a627-f33eca7d3577"]
}, Closed]],
Cell[CellGroupData[{
Cell[54219, 1454, 183, 3, 37, "Subsubsection",ExpressionUUID->"0d806fc8-3db2-4fd7-b799-8afe91cd3397"],
Cell[CellGroupData[{
Cell[54427, 1461, 120, 1, 28, "Input",ExpressionUUID->"95948e1e-9a28-490a-966d-ce6310c9356a"],
Cell[54550, 1464, 735, 14, 50, "Output",ExpressionUUID->"8275aa15-a046-48db-a83a-24b4cfc8ef05"]
}, {2}]],
Cell[CellGroupData[{
Cell[55319, 1483, 342, 9, 48, "Input",ExpressionUUID->"b3c994c6-19b2-4e29-877d-bea0009e4900"],
Cell[55664, 1494, 832, 17, 51, "Output",ExpressionUUID->"dee76505-5236-40c1-a022-228281eef4c3"]
}, {2}]],
Cell[CellGroupData[{
Cell[56530, 1516, 114, 1, 28, "Input",ExpressionUUID->"de8b8b4c-23dc-4d06-8e98-146dd62fbd6e"],
Cell[56647, 1519, 900, 20, 56, "Output",ExpressionUUID->"123ad803-b040-408e-a38b-5d9a0382380b"]
}, {2}]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[57605, 1546, 255, 6, 54, "Subsection",ExpressionUUID->"f25197d4-0ffe-44bd-ada0-d1c2a39ca0c6"],
Cell[57863, 1554, 312, 7, 35, "Text",ExpressionUUID->"bbdf1805-fc5c-4b30-b0f0-67dd456f4adf"],
Cell[CellGroupData[{
Cell[58200, 1565, 274, 7, 31, "Input",ExpressionUUID->"6e7e5adc-7fcc-45b9-8d69-839b6dde4ca9"],
Cell[58477, 1574, 711, 16, 32, "Output",ExpressionUUID->"a4f06e5e-cff0-4e9f-ba82-2cc39737e4bd"]
}, {2}]],
Cell[59200, 1593, 313, 7, 35, "Text",ExpressionUUID->"737f1589-50a5-4d26-ad86-70cd625d7fe1"],
Cell[CellGroupData[{
Cell[59538, 1604, 391, 12, 28, "Input",ExpressionUUID->"603b8926-e874-469c-9c6d-58326a97230d"],
Cell[59932, 1618, 890, 22, 54, "Output",ExpressionUUID->"5e9265ae-5783-4131-a599-368957acf3b5"]
}, {2}]],
Cell[60834, 1643, 627, 17, 38, "Text",ExpressionUUID->"138ddd47-698e-4352-951d-0e01246b9e91"],
Cell[CellGroupData[{
Cell[61486, 1664, 294, 8, 28, "Input",ExpressionUUID->"888846fe-a270-40fd-84d5-328a621d49e0"],
Cell[61783, 1674, 1126, 32, 77, "Output",ExpressionUUID->"ca2fc289-9c99-4c9b-a60d-f74f9e47f9df"]
}, {2}]],
Cell[62921, 1709, 436, 11, 35, "Text",ExpressionUUID->"9801b6f8-c1a2-4b52-89b7-ba7287dc3967"],
Cell[CellGroupData[{
Cell[63382, 1724, 265, 7, 28, "Input",ExpressionUUID->"67fc2ea2-2ef9-4038-8819-915a8d13a8b6"],
Cell[63650, 1733, 824, 20, 54, "Output",ExpressionUUID->"60c6a9b8-5fac-46c9-824c-f75c5962ffc3"]
}, {2}]],
Cell[64486, 1756, 150, 2, 35, "Text",ExpressionUUID->"09de71d8-7c9c-4c7f-a746-3270b36e895a"],
Cell[CellGroupData[{
Cell[64661, 1762, 145, 3, 28, "Input",ExpressionUUID->"d4a24830-efd7-4d33-8c53-51ab5524c416"],
Cell[64809, 1767, 828, 20, 62, "Output",ExpressionUUID->"0c60b8b1-5082-485a-9138-8c6717e1625f"]
}, {2}]],
Cell[65649, 1790, 86, 0, 35, "Text",ExpressionUUID->"3b1937e8-9eb8-4f95-b646-a88037627c6d"],
Cell[CellGroupData[{
Cell[65760, 1794, 150, 3, 28, "Input",ExpressionUUID->"ab59831e-43c1-4fb2-995b-cd438e2e2593"],
Cell[65913, 1799, 834, 19, 62, "Output",ExpressionUUID->"095cadc1-f105-4da3-a53d-0f4524f9ba75"]
}, {2}]],
Cell[66759, 1821, 201, 3, 35, "Text",ExpressionUUID->"cd888f81-9142-48e7-9443-7277083226d7"],
Cell[CellGroupData[{
Cell[66985, 1828, 274, 7, 31, "Input",ExpressionUUID->"4e23be32-5be6-41b1-8854-e81e74b81d00"],
Cell[67262, 1837, 696, 16, 32, "Output",ExpressionUUID->"892f9e51-fa80-4bc3-998a-57942a0f5508"]
}, {2}]],
Cell[CellGroupData[{
Cell[67992, 1858, 391, 12, 28, "Input",ExpressionUUID->"ce01a5c1-0bf1-41cf-85d0-63b394afe599"],
Cell[68386, 1872, 877, 22, 54, "Output",ExpressionUUID->"34cd2042-f0d0-4630-8a13-6462572303ed"]
}, {2}]],
Cell[CellGroupData[{
Cell[69297, 1899, 294, 8, 28, "Input",ExpressionUUID->"ed32eff3-3bfa-40e6-9f3c-78bff799cc9b"],
Cell[69594, 1909, 1128, 32, 77, "Output",ExpressionUUID->"79244c93-497a-4dbb-a21b-466a33c5fbcb"]
}, {2}]],
Cell[CellGroupData[{
Cell[70756, 1946, 265, 7, 28, "Input",ExpressionUUID->"830855e7-bd3f-4890-822a-8b5ffee9256a"],
Cell[71024, 1955, 754, 18, 51, "Output",ExpressionUUID->"ce650c44-149d-416b-8eeb-ce7d95283dec"]
}, {2}]],
Cell[CellGroupData[{
Cell[71812, 1978, 145, 3, 28, "Input",ExpressionUUID->"375ae1dd-57bb-49fe-812a-dfa7dbfd5ff2"],
Cell[71960, 1983, 760, 18, 59, "Output",ExpressionUUID->"abbbf7c9-6af8-4b7d-8527-7ed15327cf39"]
}, {2}]],
Cell[CellGroupData[{
Cell[72754, 2006, 150, 3, 28, "Input",ExpressionUUID->"a74507c0-fc4f-48b8-8eef-31e7ce4513ef"],
Cell[72907, 2011, 774, 17, 59, "Output",ExpressionUUID->"ef162a7c-8d28-4e67-9819-27e0db97267f"]
}, {2}]],
Cell[73693, 2031, 292, 7, 35, "Text",ExpressionUUID->"9e6966df-5bf6-40f3-a0d5-a355fcbf360c"],
Cell[73988, 2040, 3619, 116, 275, "Output",ExpressionUUID->"9bac0bfb-7967-4723-9686-fe7b99b79c65"],
Cell[77610, 2158, 210, 3, 35, "Text",ExpressionUUID->"b6c82d48-e328-4361-b1e1-4b7a6597bac7"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[77869, 2167, 118, 0, 67, "Section",ExpressionUUID->"52b1640a-3711-49ba-85d8-15f267023464"],
Cell[CellGroupData[{
Cell[78012, 2171, 107, 0, 45, "Subsubsection",ExpressionUUID->"1f1aef2c-4d8e-41ab-afc8-35c1f6702d18"],
Cell[78122, 2173, 4013, 112, 250, "Input",ExpressionUUID->"3e71801e-c99d-469c-8d0a-ccac8a0109ae"]
}, Closed]],
Cell[CellGroupData[{
Cell[82172, 2290, 97, 0, 38, "Subsection",ExpressionUUID->"8701ab28-c897-49a8-b607-8f512a17c6b2"],
Cell[CellGroupData[{
Cell[82294, 2294, 5325, 134, 181, "Input",ExpressionUUID->"507a9f05-babf-447a-b49a-818186b96e8e"],
Cell[87622, 2430, 4343, 81, 509, "Output",ExpressionUUID->"efb3ca51-39e1-4193-ac2c-c9e5cd6079ba"]
}, {2}]],
Cell[91977, 2514, 103, 1, 22, "NumberedFigure",ExpressionUUID->"58c1285c-90df-458d-8046-7bbad1207dd6",
CellTags->"figura2"],
Cell[CellGroupData[{
Cell[92105, 2519, 111, 0, 45, "Subsubsection",ExpressionUUID->"f0104646-1c3d-4e8f-942e-c47bf42bf8fa"],
Cell[92219, 2521, 1904, 51, 107, "Text",ExpressionUUID->"589cb2c0-e12d-43cb-ac15-08d6bd23a8d4"],
Cell[CellGroupData[{
Cell[94148, 2576, 228, 6, 28, "Input",ExpressionUUID->"cc0ad90c-4501-49f8-88ad-dbb6ee0302ef"],
Cell[94379, 2584, 686, 14, 48, "Output",ExpressionUUID->"a4d45a5c-b787-4295-8c9b-8aeadd7e41e1"]
}, {2}]],
Cell[95077, 2601, 1170, 40, 58, "Text",ExpressionUUID->"25a6d54c-4b31-4364-8d70-d5f82e75a065"],
Cell[CellGroupData[{
Cell[96272, 2645, 220, 6, 28, "Input",ExpressionUUID->"32e0c4e0-e3cd-4125-9db7-49197ec4e9d8"],
Cell[96495, 2653, 651, 13, 48, "Output",ExpressionUUID->"a8a1e330-e61b-468e-a37e-eeb7426ff5bc"]
}, {2}]],
Cell[97158, 2669, 324, 6, 35, "Text",ExpressionUUID->"a0b7556c-d547-43d5-83c7-a4422b2ebd64"],
Cell[CellGroupData[{
Cell[97507, 2679, 108, 1, 28, "Input",ExpressionUUID->"37015b70-fca3-4aab-9637-8bea87b55943"],
Cell[97618, 2682, 689, 13, 45, "Output",ExpressionUUID->"57f3281b-4154-4434-a6f5-dc4e920284a8"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[98353, 2701, 113, 0, 45, "Subsubsection",ExpressionUUID->"ca3f4806-42d3-492a-b3bf-3bf22b053f8c"],
Cell[98469, 2703, 492, 13, 38, "Text",ExpressionUUID->"5e2ab725-2b63-47c5-9754-71d793fb6207"],
Cell[CellGroupData[{
Cell[98986, 2720, 228, 6, 28, "Input",ExpressionUUID->"efed672c-8e25-4432-8bde-a3198939471b"],
Cell[99217, 2728, 647, 13, 48, "Output",ExpressionUUID->"206a4285-38fe-4741-86a6-f3b596c3c7cb"]
}, {2}]],
Cell[99876, 2744, 469, 17, 35, "Text",ExpressionUUID->"a09c2860-f987-4a3a-94eb-3a59498cb700"],
Cell[CellGroupData[{
Cell[100370, 2765, 220, 6, 28, "Input",ExpressionUUID->"75ea065e-e1f1-4f04-b3f0-ae95f140759f"],
Cell[100593, 2773, 653, 13, 48, "Output",ExpressionUUID->"e5be5a1f-64ee-481e-8d9b-1d3ca49b9d12"]
}, {2}]],
Cell[101258, 2789, 264, 6, 35, "Text",ExpressionUUID->"58029d87-2f3f-4a1a-b595-f6fc2de097d0"],
Cell[CellGroupData[{
Cell[101547, 2799, 108, 1, 28, "Input",ExpressionUUID->"c4436bd2-e9dc-45b9-b1a5-9a849e01ce0d"],
Cell[101658, 2802, 691, 13, 45, "Output",ExpressionUUID->"5a197063-156f-49a3-8bf5-480ffb3a6da4"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[102395, 2821, 180, 3, 45, "Subsubsection",ExpressionUUID->"c0199f08-cd12-4474-a49f-be48ef650127"],
Cell[CellGroupData[{
Cell[102600, 2828, 690, 20, 42, "Input",ExpressionUUID->"abaf9fea-5996-48df-bffb-bccde49a173e"],
Cell[103293, 2850, 586, 16, 45, "Output",ExpressionUUID->"43f23420-7048-4e14-be23-ca3286a5d631"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[103925, 2872, 115, 0, 37, "Subsubsection",ExpressionUUID->"b4b8ff28-40ee-45a5-bb5c-b20df7dfbc29"],
Cell[104043, 2874, 165, 3, 35, "Text",ExpressionUUID->"31cb4763-2d0d-4ebf-a29b-da40404f8950"],
Cell[CellGroupData[{
Cell[104233, 2881, 222, 6, 28, "Input",ExpressionUUID->"eb476b50-a133-4b6f-9910-59b476dae1f6"],
Cell[104458, 2889, 651, 13, 48, "Output",ExpressionUUID->"5b0874d0-d927-4a73-b017-7e2859049939"]
}, {2}]],
Cell[105121, 2905, 764, 28, 35, "Text",ExpressionUUID->"a64bb21c-0b73-4e0a-812f-649f5064f889"],
Cell[CellGroupData[{
Cell[105910, 2937, 220, 6, 28, "Input",ExpressionUUID->"eafc6180-2e28-42f1-a9d8-da1c89320255"],
Cell[106133, 2945, 657, 13, 51, "Output",ExpressionUUID->"f37ec5e6-d8bb-4ca8-aa28-126b2532ff81"]
}, {2}]],
Cell[106802, 2961, 101, 0, 35, "Text",ExpressionUUID->"a1fe99f3-e763-4366-82e1-bb6a25075676"],
Cell[CellGroupData[{
Cell[106928, 2965, 129, 2, 28, "Input",ExpressionUUID->"30f53c7d-9bdc-4fe0-a71a-648e1657b5dd"],
Cell[107060, 2969, 686, 15, 58, "Output",ExpressionUUID->"cc98d42c-5447-449d-9f04-057dbfe7dd64"]
}, {2}]],
Cell[107758, 2987, 115, 0, 35, "Text",ExpressionUUID->"eff343f5-83e4-4839-9f82-82c594b936ec"],
Cell[CellGroupData[{
Cell[107898, 2991, 108, 1, 28, "Input",ExpressionUUID->"c8ab5e84-9266-4d28-8343-72d78d6e7668"],
Cell[108009, 2994, 698, 14, 45, "Output",ExpressionUUID->"a78dbb6e-04fd-44e5-b5be-ef29f417ec01"]
}, {2}]],
Cell[108719, 3011, 254, 6, 35, "Text",ExpressionUUID->"3c93563a-e5a5-4df8-919c-6034930ab356"],
Cell[CellGroupData[{
Cell[108998, 3021, 143, 3, 28, "Input",ExpressionUUID->"a94dd8d9-d69f-48eb-81f9-63dd86bd119c"],
Cell[109144, 3026, 689, 14, 51, "Output",ExpressionUUID->"f59f72b9-9490-43b2-907f-5b89b43c7e63"]
}, {2}]],
Cell[109845, 3043, 122, 0, 35, "Text",ExpressionUUID->"9d5c2364-9a57-4d11-ba9e-88a07ff97504"],
Cell[CellGroupData[{
Cell[109992, 3047, 107, 1, 28, "Input",ExpressionUUID->"d1cf26b6-2b84-4aec-93ce-b15de08a74f9"],
Cell[110102, 3050, 689, 13, 45, "Output",ExpressionUUID->"673c5bb0-2b15-49ab-ac17-06cecfe8f9e1"]
}, {2}]],
Cell[CellGroupData[{
Cell[110825, 3068, 107, 1, 28, "Input",ExpressionUUID->"4011426e-0ac0-4113-80b9-2ef4d8957450"],
Cell[110935, 3071, 751, 15, 50, "Output",ExpressionUUID->"ef8dad3c-e809-4915-93c2-87dcb1eddb55"]
}, {2}]],
Cell[111698, 3089, 85, 0, 35, "Text",ExpressionUUID->"c5f61b56-99ab-4231-9a9b-5e7d835a5af0"],
Cell[CellGroupData[{
Cell[111808, 3093, 412, 12, 28, "Input",ExpressionUUID->"f53c8b80-61c3-47a7-9c22-f5fdee299f5f"],
Cell[112223, 3107, 833, 19, 64, "Output",ExpressionUUID->"dbb0930c-d2e6-49d5-9b1c-2ab6bb2467a0"]
}, {2}]],
Cell[113068, 3129, 168, 3, 35, "Text",ExpressionUUID->"7637c75e-c629-4f9d-80d0-8a9362c128ab"],
Cell[CellGroupData[{
Cell[113261, 3136, 145, 3, 28, "Input",ExpressionUUID->"a742e3ef-0166-4109-ac11-90e35d2fa26d"],
Cell[113409, 3141, 749, 15, 50, "Output",ExpressionUUID->"74c66bff-6cbc-4c06-9d00-5ebe029e8889"]
}, {2}]],
Cell[114170, 3159, 119, 0, 35, "Text",ExpressionUUID->"51e55cb7-605a-4b5d-a75e-556c56021098"],
Cell[114292, 3161, 861, 26, 136, "Output",ExpressionUUID->"80f03e56-a361-4e55-a395-9f014cd0163e"]
}, Open ]],
Cell[CellGroupData[{
Cell[115190, 3192, 180, 3, 45, "Subsubsection",ExpressionUUID->"c4f6478f-78e2-4454-9548-b59bf79ae530"],
Cell[115373, 3197, 1049, 29, 47, "Input",ExpressionUUID->"fd5c067e-6d20-415e-8c12-778e54412e3f"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[116471, 3232, 120, 0, 54, "Subsection",ExpressionUUID->"3b88293d-8cbf-498d-9bda-59e879e87eb6"],
Cell[CellGroupData[{
Cell[116616, 3236, 5295, 134, 181, "Input",ExpressionUUID->"7003c1bc-fe98-483a-b061-f57c03da090c"],
Cell[121914, 3372, 4348, 81, 509, "Output",ExpressionUUID->"cbc3f9b0-990f-41c4-8889-45d3d4153d30"]
}, {2}]],
Cell[126274, 3456, 103, 1, 22, "NumberedFigure",ExpressionUUID->"d6a92a4e-30e5-4a31-974a-1c00604395a6",
CellTags->"figura3"],
Cell[CellGroupData[{
Cell[126402, 3461, 265, 6, 48, "Subsubsection",ExpressionUUID->"39616f15-8054-4a4e-b50f-1f2661b01494"],
Cell[126670, 3469, 1279, 43, 58, "Text",ExpressionUUID->"c53d2e60-71d7-440f-92f0-8dcc61a3d6af",
CellTags->"osservazione1"],
Cell[CellGroupData[{
Cell[127974, 3516, 228, 6, 28, "Input",ExpressionUUID->"46746adc-2af9-413c-be71-52e994de9067"],
Cell[128205, 3524, 736, 15, 48, "Output",ExpressionUUID->"e14cae08-42c8-48ab-af31-99491f7fddef"]
}, {2}]],
Cell[128953, 3542, 86, 0, 35, "Text",ExpressionUUID->"cd4f7913-a6d2-4787-8a5b-2d632c81d7bf"],
Cell[CellGroupData[{
Cell[129064, 3546, 220, 6, 28, "Input",ExpressionUUID->"03c9c39a-4d4e-415d-80a8-4d4e8b5697b4"],
Cell[129287, 3554, 740, 15, 48, "Output",ExpressionUUID->"ab5dac8a-bdcc-4a44-9722-fb53152af527"]
}, {2}]],
Cell[130039, 3572, 107, 0, 35, "Text",ExpressionUUID->"90766a76-728b-4489-aaa2-264d63f537c4"],
Cell[CellGroupData[{
Cell[130171, 3576, 108, 1, 28, "Input",ExpressionUUID->"c2d2047b-882a-4172-87a8-bae894d5efd4"],
Cell[130282, 3579, 776, 15, 45, "Output",ExpressionUUID->"fbb77ba2-7528-49b4-9644-331324e62da3"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[131104, 3600, 267, 6, 48, "Subsubsection",ExpressionUUID->"4f9e7c78-4dd6-4668-a4e5-232d224fc3af"],
Cell[131374, 3608, 88, 0, 35, "Text",ExpressionUUID->"68a68681-86fe-4b59-af4e-a8d1c4914938"],
Cell[CellGroupData[{
Cell[131487, 3612, 228, 6, 28, "Input",ExpressionUUID->"490e61c2-d7bd-407d-9384-dbc8bc8df7bf"],
Cell[131718, 3620, 740, 15, 48, "Output",ExpressionUUID->"5b56b4e3-417e-4552-9cc3-07faee5e58e3"]
}, {2}]],
Cell[132470, 3638, 219, 6, 35, "Text",ExpressionUUID->"ef9875df-72f9-4222-9e50-b4c718b26264"],
Cell[CellGroupData[{
Cell[132714, 3648, 241, 7, 28, "Input",ExpressionUUID->"3c18924c-b06e-47ac-b4e1-742ae5191f31"],
Cell[132958, 3657, 759, 16, 48, "Output",ExpressionUUID->"5d62e1cc-506c-40b5-b0ba-4d446838f925"]
}, {2}]],
Cell[133729, 3676, 78, 0, 35, "Text",ExpressionUUID->"360766e2-3f3b-4c7c-94c1-fef8c8a03b43"],
Cell[CellGroupData[{
Cell[133832, 3680, 108, 1, 28, "Input",ExpressionUUID->"1e1a6bb6-77d3-4d39-8b42-a66a4eed4dcd"],
Cell[133943, 3683, 795, 16, 45, "Output",ExpressionUUID->"637affee-a27e-4a72-b2cc-06b8df5bdfef"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[134784, 3705, 269, 6, 48, "Subsubsection",ExpressionUUID->"831a2c73-6204-49a3-b7d0-47e15feab11d"],
Cell[135056, 3713, 130, 0, 35, "Text",ExpressionUUID->"3b8d2361-bee9-46b2-86e2-cdb27a5572e0"],
Cell[CellGroupData[{
Cell[135211, 3717, 228, 6, 28, "Input",ExpressionUUID->"8f17b17f-774b-461e-81ae-ffbcbc2ddbc0"],
Cell[135442, 3725, 744, 15, 48, "Output",ExpressionUUID->"6414f19b-2cb2-462c-b153-cd71349b6513"]
}, {2}]],
Cell[136198, 3743, 122, 0, 35, "Text",ExpressionUUID->"455e9859-61ed-43b0-a8c7-929cd5a018c7"],
Cell[CellGroupData[{
Cell[136345, 3747, 241, 7, 28, "Input",ExpressionUUID->"1173534a-d759-41f9-aee0-5ed835f00ca0"],
Cell[136589, 3756, 761, 16, 51, "Output",ExpressionUUID->"5cb97555-11de-47d0-a45e-9365f4c8e8d1"]
}, {2}]],
Cell[137362, 3775, 128, 0, 35, "Text",ExpressionUUID->"758c000b-dcb7-45b9-ad6f-fe24d46770f9"],
Cell[CellGroupData[{
Cell[137515, 3779, 155, 4, 28, "Input",ExpressionUUID->"52643f41-7a9f-414a-9e4b-12ef660426dc"],
Cell[137673, 3785, 793, 18, 58, "Output",ExpressionUUID->"1bc1b41f-7a66-41d3-b1d1-8983bbefce3f"]
}, {2}]],
Cell[138478, 3806, 288, 6, 35, "Text",ExpressionUUID->"8273f1ae-b009-4a85-b831-2619e0d53889"],
Cell[CellGroupData[{
Cell[138791, 3816, 108, 1, 28, "Input",ExpressionUUID->"79124315-8bad-4324-8272-1471ba50946f"],
Cell[138902, 3819, 801, 17, 45, "Output",ExpressionUUID->"e77424a6-0f0f-43bf-9f92-9a88a539fb6a"]
}, {2}]],
Cell[139715, 3839, 104, 0, 35, "Text",ExpressionUUID->"971c6e02-76d7-4f4b-8034-1560d3737f29"],
Cell[CellGroupData[{
Cell[139844, 3843, 143, 3, 28, "Input",ExpressionUUID->"48e4b0a3-ce3a-42d8-bc86-f0ce651974cc"],
Cell[139990, 3848, 819, 17, 51, "Output",ExpressionUUID->"4c3c6e5f-08b5-4795-8001-50cd418a453c"]
}, {2}]],
Cell[140821, 3868, 111, 0, 35, "Text",ExpressionUUID->"c338efa1-55d4-44b5-8b43-06e17a8bfb17"],
Cell[CellGroupData[{
Cell[140957, 3872, 135, 3, 28, "Input",ExpressionUUID->"bfb13ab6-415f-4e35-8ede-90b7ec7af942"],
Cell[141095, 3877, 854, 18, 50, "Output",ExpressionUUID->"7bf5d8a1-63ff-4130-a341-9630b8d2cea9"]
}, {2}]],
Cell[141961, 3898, 110, 0, 35, "Text",ExpressionUUID->"fd1145ff-6bea-4eb6-8a57-baded8a07c52"],
Cell[142074, 3900, 997, 32, 136, "Output",ExpressionUUID->"1c106866-f073-4b08-8d54-468baaf81485"]
}, Open ]],
Cell[CellGroupData[{
Cell[143108, 3937, 178, 3, 45, "Subsubsection",ExpressionUUID->"a1bd0859-646a-4714-9aac-ab77a05722e5"],
Cell[143289, 3942, 1130, 32, 47, "Input",ExpressionUUID->"70809373-6707-4d98-aad3-646ba4f47e7a"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[144468, 3980, 97, 0, 54, "Subsection",ExpressionUUID->"d3c19295-eb9b-4561-a476-6c171f5e2ba6"],
Cell[CellGroupData[{
Cell[144590, 3984, 5143, 131, 181, "Input",ExpressionUUID->"82de766f-5efc-4fdc-9deb-9e1eba371eda"],
Cell[149736, 4117, 4217, 80, 509, "Output",ExpressionUUID->"0ae2e29a-3bd1-40ed-a4d1-7f7b8c699f8e"]
}, {2}]],
Cell[153965, 4200, 103, 1, 22, "NumberedFigure",ExpressionUUID->"d904b775-c22f-4878-af3b-52ea45115bfa",
CellTags->"figura4"],
Cell[CellGroupData[{
Cell[154093, 4205, 111, 0, 45, "Subsubsection",ExpressionUUID->"b3e68409-d5ad-43b4-8fc4-5aae56ebed05"],
Cell[154207, 4207, 1654, 56, 81, "Text",ExpressionUUID->"5f2ba1cb-992f-4578-877e-30901a678d9d",
CellTags->"osservazione2"],
Cell[CellGroupData[{
Cell[155886, 4267, 203, 5, 28, "Input",ExpressionUUID->"64b03c05-24a6-48c4-b1cc-bac55c05d935"],
Cell[156092, 4274, 630, 12, 48, "Output",ExpressionUUID->"00f9e0b5-88e7-42e5-9f6e-146dfdce2f9a"]
}, {2}]],
Cell[CellGroupData[{
Cell[156756, 4291, 220, 6, 28, "Input",ExpressionUUID->"6096096a-374d-4aa9-88bb-ca3c4bacfb98"],
Cell[156979, 4299, 632, 12, 48, "Output",ExpressionUUID->"3ddc60eb-6425-4206-8173-5ff5aa8d4c12"]
}, {2}]],
Cell[CellGroupData[{
Cell[157645, 4316, 108, 1, 28, "Input",ExpressionUUID->"ec79561d-0a48-4d20-97e6-530d80cc544f"],
Cell[157756, 4319, 673, 12, 32, "Output",ExpressionUUID->"f0233803-c04a-4fbb-9dfa-f79c699a9854"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[158475, 4337, 113, 0, 45, "Subsubsection",ExpressionUUID->"9088bbde-1597-4e9b-a768-e70909c3faad"],
Cell[158591, 4339, 88, 0, 35, "Text",ExpressionUUID->"bd3a01dd-a3c5-44c3-ad1f-60987e4cb565"],
Cell[CellGroupData[{
Cell[158704, 4343, 203, 5, 28, "Input",ExpressionUUID->"155bfacc-be62-4152-a90d-93e16fe6cb58"],
Cell[158910, 4350, 634, 12, 48, "Output",ExpressionUUID->"3a6468b6-0bec-4cd2-8585-1ea8d44b29e0"]
}, {2}]],
Cell[CellGroupData[{
Cell[159578, 4367, 241, 7, 28, "Input",ExpressionUUID->"b1fb0572-8577-4dbe-b9c7-00d0b32e58f2"],
Cell[159822, 4376, 653, 13, 48, "Output",ExpressionUUID->"b2ed67f4-1f12-4f27-aed8-c00d7179fdf3"]
}, {2}]],
Cell[CellGroupData[{
Cell[160509, 4394, 108, 1, 28, "Input",ExpressionUUID->"13d3b2ad-d0b9-4f3c-a30d-805c052fd10e"],
Cell[160620, 4397, 689, 13, 32, "Output",ExpressionUUID->"4b343691-887f-4af3-a918-320738d88c7d"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[161355, 4416, 115, 0, 45, "Subsubsection",ExpressionUUID->"06feaec2-b6f1-4c8e-8dc1-c359aad243a8"],
Cell[161473, 4418, 113, 0, 35, "Text",ExpressionUUID->"f152de85-0810-4691-aaa0-6f75188f9695"],
Cell[CellGroupData[{
Cell[161611, 4422, 203, 5, 28, "Input",ExpressionUUID->"012a8a5a-bcdd-4748-9ab5-bb92711fb02c"],
Cell[161817, 4429, 656, 12, 48, "Output",ExpressionUUID->"a7741535-2954-4c6f-be9f-18abfe16be0b"]
}, {2}]],
Cell[162485, 4444, 231, 6, 35, "Text",ExpressionUUID->"2c875c03-9c4c-460a-af16-59a8b023ad41"],
Cell[CellGroupData[{
Cell[162741, 4454, 241, 7, 28, "Input",ExpressionUUID->"6c1e8888-fcc8-423e-b9b7-5797e77b451e"],
Cell[162985, 4463, 677, 13, 51, "Output",ExpressionUUID->"b49223e3-02ea-4274-8f00-3c00b447005f"]
}, {2}]],
Cell[163674, 4479, 77, 0, 35, "Text",ExpressionUUID->"9bcea25e-e8e7-4c48-9a92-d869633193a0"],
Cell[CellGroupData[{
Cell[163776, 4483, 108, 1, 28, "Input",ExpressionUUID->"c97fb6ac-7781-4fd3-9061-005001ec39dd"],
Cell[163887, 4486, 712, 14, 32, "Output",ExpressionUUID->"c711666d-4d21-4885-87eb-13ebdf39fe29"]
}, {2}]],
Cell[164611, 4503, 123, 0, 35, "Text",ExpressionUUID->"812b217c-eb53-42b3-a70d-40704b731c2f"],
Cell[164737, 4505, 743, 22, 86, "Output",ExpressionUUID->"c85a6c5c-c308-403c-ab07-602f1c318235"]
}, Open ]],
Cell[CellGroupData[{
Cell[165517, 4532, 231, 4, 45, "Subsubsection",ExpressionUUID->"3c269f61-57e5-4371-ad0e-bf88a07c95f9"],
Cell[165751, 4538, 918, 26, 28, "Input",ExpressionUUID->"90113cf4-4d79-46dc-a970-cb15bbb018ee"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[166718, 4570, 109, 0, 54, "Subsection",ExpressionUUID->"c7b423c7-acf1-41a0-b721-206ed8ad7800"],
Cell[CellGroupData[{
Cell[166852, 4574, 5208, 132, 181, "Input",ExpressionUUID->"9a7cf932-ff2a-4975-841c-e5b2b0800c94"],
Cell[172063, 4708, 4173, 79, 509, "Output",ExpressionUUID->"4c0af835-5ba1-4a4e-a4ce-e0e7dcc10785"]
}, {2}]],
Cell[176248, 4790, 103, 1, 22, "NumberedFigure",ExpressionUUID->"3bedb40e-730f-47d6-a9a2-7cfe5bda985a",
CellTags->"figura5"],
Cell[CellGroupData[{
Cell[176376, 4795, 121, 0, 45, "Subsubsection",ExpressionUUID->"a51bd3c4-e629-4824-a682-610fa90ddc5f"],
Cell[176500, 4797, 828, 30, 35, "Text",ExpressionUUID->"0fe2e335-7b93-49be-9961-a0c4eac6cd2b",
CellTags->"osservazione3"],
Cell[CellGroupData[{
Cell[177353, 4831, 203, 5, 28, "Input",ExpressionUUID->"4d498aea-d884-4789-b41c-93c0e275f9ec"],
Cell[177559, 4838, 632, 12, 48, "Output",ExpressionUUID->"4d480395-b979-4b3d-9c75-5b46a1a6596b"]
}, {2}]],
Cell[178203, 4853, 101, 0, 35, "Text",ExpressionUUID->"ec1786e9-ef1b-49ab-b534-f7f9beb88b54"],
Cell[CellGroupData[{
Cell[178329, 4857, 241, 7, 28, "Input",ExpressionUUID->"1f2798ea-42d9-45dc-bf12-e83c944f484f"],
Cell[178573, 4866, 653, 13, 48, "Output",ExpressionUUID->"2d41fc5e-1754-4fbc-8f79-4b1189420b76"]
}, {2}]],
Cell[179238, 4882, 259, 6, 35, "Text",ExpressionUUID->"a79062b3-c71a-46b8-bc92-e503a51d7753"],
Cell[CellGroupData[{
Cell[179522, 4892, 108, 1, 28, "Input",ExpressionUUID->"cdca808c-5ae1-4a85-baf7-bb911d880d96"],
Cell[179633, 4895, 691, 13, 32, "Output",ExpressionUUID->"e4a201f2-27fa-4707-9a15-3b13d1b20b1a"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[180370, 4914, 123, 0, 45, "Subsubsection",ExpressionUUID->"2e3a9408-073d-4d66-a7bd-3bf783fb26be"],
Cell[180496, 4916, 374, 11, 35, "Text",ExpressionUUID->"83241c67-2422-45e4-936c-73c7d00386a6"],
Cell[CellGroupData[{
Cell[180895, 4931, 203, 5, 28, "Input",ExpressionUUID->"7234aacc-b6e2-45aa-9537-5418f06c035a"],
Cell[181101, 4938, 626, 12, 48, "Output",ExpressionUUID->"96fbe333-957d-4ea7-8b7d-6d5fb924ce7e"]
}, {2}]],
Cell[181739, 4953, 238, 6, 35, "Text",ExpressionUUID->"7dd6c43c-d05d-4d40-bd7f-1cb6d3610e35"],
Cell[CellGroupData[{
Cell[182002, 4963, 241, 7, 28, "Input",ExpressionUUID->"c5058298-61c6-4599-a757-924c8ffc2e95"],
Cell[182246, 4972, 649, 13, 48, "Output",ExpressionUUID->"56228239-eaea-42c6-837a-f9ba6a8556d9"]
}, {2}]],
Cell[182907, 4988, 77, 0, 35, "Text",ExpressionUUID->"165ac410-0a11-42bf-9cce-4c35353c9d4b"],
Cell[CellGroupData[{
Cell[183009, 4992, 108, 1, 28, "Input",ExpressionUUID->"2f860060-29f8-4349-bec5-7b294425c9c1"],
Cell[183120, 4995, 693, 13, 32, "Output",ExpressionUUID->"61a8398e-cda2-4729-abac-0ddf2cbfd7ff"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[183859, 5014, 125, 0, 45, "Subsubsection",ExpressionUUID->"96b63f94-64da-4487-8ee5-f994f1c4c84e"],
Cell[183987, 5016, 122, 0, 35, "Text",ExpressionUUID->"e2d74880-e949-4efa-8a32-8261f84e62d7"],
Cell[CellGroupData[{
Cell[184134, 5020, 203, 5, 28, "Input",ExpressionUUID->"856763b8-f0b5-42c3-baa0-3df410b98a51"],
Cell[184340, 5027, 661, 12, 48, "Output",ExpressionUUID->"bece0ebb-2a34-4f40-b387-812bd98c3011"]
}, {2}]],
Cell[185013, 5042, 193, 6, 35, "Text",ExpressionUUID->"8efc3090-824a-47a7-bc32-2f15d20b6b6e"],
Cell[CellGroupData[{
Cell[185231, 5052, 262, 8, 28, "Input",ExpressionUUID->"e9571160-1f42-4148-a254-ee2d1963d58a"],
Cell[185496, 5062, 654, 12, 51, "Output",ExpressionUUID->"015ab810-5126-4373-9f8c-87ae7e20ace5"]
}, {2}]],
Cell[186162, 5077, 78, 0, 35, "Text",ExpressionUUID->"c95c4374-2d74-4b17-a711-1e5f9c7ba138"],
Cell[CellGroupData[{
Cell[186265, 5081, 108, 1, 28, "Input",ExpressionUUID->"a7e81cb0-33e7-4df2-9163-201872bd7fb0"],
Cell[186376, 5084, 691, 12, 32, "Output",ExpressionUUID->"ac67613b-e04f-4977-bcb2-c41571cc7c53"]
}, {2}]],
Cell[187079, 5099, 330, 7, 35, "Text",ExpressionUUID->"ec40bafb-fce3-4b1e-977c-7138c1c6eb71"],
Cell[187412, 5108, 369, 8, 58, "Text",ExpressionUUID->"c12ea698-3561-47e6-a286-aab788fd279b"],
Cell[187784, 5118, 783, 24, 86, "Output",ExpressionUUID->"3c69baa2-7dca-451e-bd3d-2541db4f99d4"]
}, Open ]],
Cell[CellGroupData[{
Cell[188604, 5147, 231, 4, 45, "Subsubsection",ExpressionUUID->"7f3b358e-d039-4106-90e3-2bfabb6f6204"],
Cell[CellGroupData[{
Cell[188860, 5155, 851, 24, 28, "Input",ExpressionUUID->"d72ad044-f00c-44a1-a7f3-e5fcc22b5eb0"],
Cell[189714, 5181, 1070, 23, 32, "Output",ExpressionUUID->"69e94a3f-c36d-4bb4-8904-304a10f52e25"]
}, {2}]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[190842, 5211, 91, 0, 54, "Subsection",ExpressionUUID->"ff2c389d-fc9f-4209-b0a2-24784a863bfb"],
Cell[CellGroupData[{
Cell[190958, 5215, 5284, 133, 181, "Input",ExpressionUUID->"cc7a05bd-762a-4b25-8530-49e4760ed706"],
Cell[196245, 5350, 4190, 78, 509, "Output",ExpressionUUID->"45591126-732d-4b2c-b8ac-b4ad3014efe8"]
}, {2}]],
Cell[200447, 5431, 103, 1, 22, "NumberedFigure",ExpressionUUID->"783572bb-c021-4f23-a5b6-411c45437527",
CellTags->"figura6"],
Cell[CellGroupData[{
Cell[200575, 5436, 105, 0, 45, "Subsubsection",ExpressionUUID->"6d4c4604-65c4-4d85-8e69-77b8baf1d64b"],
Cell[200683, 5438, 1211, 46, 35, "Text",ExpressionUUID->"925a6961-3e05-4ec9-a87d-e076642f70d5",
CellTags->"osservazione4"],
Cell[CellGroupData[{
Cell[201919, 5488, 194, 5, 28, "Input",ExpressionUUID->"b0bea073-41a1-42ee-96e6-83dee1f85d6a"],
Cell[202116, 5495, 684, 13, 48, "Output",ExpressionUUID->"a3d6b210-c7e6-477d-92fb-a8e3ebf0c022"]
}, {2}]],
Cell[CellGroupData[{
Cell[202834, 5513, 241, 7, 28, "Input",ExpressionUUID->"7c3a23ed-5fc9-441b-8442-2681d08b1382"],
Cell[203078, 5522, 701, 14, 48, "Output",ExpressionUUID->"56e1494f-fb83-48b3-839e-547ebbcf176e"]
}, {2}]],
Cell[CellGroupData[{
Cell[203813, 5541, 137, 3, 28, "Input",ExpressionUUID->"add26ec7-c13c-47af-953a-18abf95c9b16",
CellTags->"senodispari"],
Cell[203953, 5546, 762, 15, 32, "Output",ExpressionUUID->"a936d04e-4f7c-4607-ac13-848ea3084397",
CellTags->"senodispari"]
}, {2}]],
Cell[204727, 5564, 868, 21, 58, "Text",ExpressionUUID->"0a22851a-0932-4c28-a97d-a89447acfcad"]
}, Open ]],
Cell[CellGroupData[{
Cell[205632, 5590, 107, 0, 45, "Subsubsection",ExpressionUUID->"3b3f8189-ac62-4cf4-b808-af65bbbdaaef"],
Cell[205742, 5592, 227, 5, 35, "Text",ExpressionUUID->"df76478d-017b-49ce-ad65-2b8c38ccc4b4"],
Cell[CellGroupData[{
Cell[205994, 5601, 194, 5, 28, "Input",ExpressionUUID->"b3862556-5f37-407d-b078-a72764f8bea3"],
Cell[206191, 5608, 682, 13, 48, "Output",ExpressionUUID->"e934984f-0382-438a-8a9c-5462cedecf0e"]
}, {2}]],
Cell[CellGroupData[{
Cell[206907, 5626, 220, 6, 28, "Input",ExpressionUUID->"2209fe4e-c260-4ebb-9e7a-00d208d0e357"],
Cell[207130, 5634, 682, 13, 48, "Output",ExpressionUUID->"57b59a59-a1c5-4071-baa7-cf752c809fc8"]
}, {2}]],
Cell[CellGroupData[{
Cell[207846, 5652, 136, 3, 28, "Input",ExpressionUUID->"6829313b-90b5-446f-b671-bb10778d9736",
CellTags->"cosenopari"],
Cell[207985, 5657, 745, 14, 32, "Output",ExpressionUUID->"96768084-a9b6-4361-82d6-280c31ff6719",
CellTags->"cosenopari"]
}, {2}]],
Cell[208742, 5674, 770, 19, 58, "Text",ExpressionUUID->"100d24ee-179c-40af-9c48-38d45f37e08c"]
}, Open ]],
Cell[CellGroupData[{
Cell[209549, 5698, 109, 0, 45, "Subsubsection",ExpressionUUID->"4d59e45e-9acf-4069-8f39-62b2973c1425"],
Cell[209661, 5700, 234, 5, 35, "Text",ExpressionUUID->"93967204-b028-41ec-b0c7-c188b749c52e"],
Cell[CellGroupData[{
Cell[209920, 5709, 194, 5, 28, "Input",ExpressionUUID->"665c8604-36ed-4961-87ea-a11fd7540010"],
Cell[210117, 5716, 676, 13, 48, "Output",ExpressionUUID->"aa6acf5a-822c-4abe-bc13-e18631c9d4b8"]
}, {2}]],
Cell[CellGroupData[{
Cell[210827, 5734, 241, 7, 28, "Input",ExpressionUUID->"d91f4996-34e9-49a0-ae4f-9186ea63336e"],
Cell[211071, 5743, 699, 14, 51, "Output",ExpressionUUID->"bdf96754-9190-4de6-b479-52fcd34ce476"]
}, {2}]],
Cell[CellGroupData[{
Cell[211804, 5762, 136, 3, 28, "Input",ExpressionUUID->"c24bdad3-1559-4543-b84a-d76406f41d13",
CellTags->"tandispari"],
Cell[211943, 5767, 765, 15, 32, "Output",ExpressionUUID->"0fa22712-c5e9-4f3a-9481-12d5516169c8",
CellTags->"tandispari"]
}, {2}]],
Cell[212720, 5785, 1018, 25, 84, "Text",ExpressionUUID->"76a9ef2b-caba-4f2d-8110-4641e45eb3f5"],
Cell[213741, 5812, 94, 0, 35, "Text",ExpressionUUID->"f22ea248-efb5-4752-a488-9d9bed00a19e"],
Cell[213838, 5814, 710, 22, 86, "Output",ExpressionUUID->"14f9757f-e042-4266-ad86-6e107e4e7503"]
}, Open ]],
Cell[CellGroupData[{
Cell[214585, 5841, 231, 4, 45, "Subsubsection",ExpressionUUID->"f48c1ceb-1196-4519-a9f1-e13c56b873ad"],
Cell[CellGroupData[{
Cell[214841, 5849, 823, 24, 28, "Input",ExpressionUUID->"998b2279-bd8d-4a56-a762-35a5f0a7d2ee"],
Cell[215667, 5875, 709, 20, 32, "Output",ExpressionUUID->"9e0a834a-cacc-4342-bdb9-8f1e1a20a3ad"]
}, {2}]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[216446, 5903, 119, 0, 67, "Section",ExpressionUUID->"d5e6e4b2-6b5a-4250-95d0-f6fd7d552ba2"],
Cell[CellGroupData[{
Cell[216590, 5907, 95, 0, 45, "Subsubsection",ExpressionUUID->"9a531814-541a-45e7-834a-71333f587eba"],
Cell[216688, 5909, 2031, 52, 150, "Text",ExpressionUUID->"a3023166-1283-45bb-872d-5c5075d2b6ff"],
Cell[218722, 5963, 625, 17, 48, "Input",ExpressionUUID->"967e82ad-feb1-48ce-ab62-7e18a3accf1c"],
Cell[CellGroupData[{
Cell[219372, 5984, 7452, 187, 257, "Input",ExpressionUUID->"363e47dc-bc0f-4c2c-8a43-db466d98fd9e",
CellTags->"figura1"],
Cell[226827, 6173, 5475, 108, 567, "Output",ExpressionUUID->"bc6eca3e-a99e-4950-af88-0b3d6cd41a20",
CellTags->"figura1"]
}, {2}]],
Cell[232314, 6284, 103, 1, 22, "NumberedFigure",ExpressionUUID->"86ed9800-898c-445d-a68c-070fc5479141",
CellTags->"figura7"],
Cell[232420, 6287, 738, 14, 81, "Text",ExpressionUUID->"38bbc331-89e7-4bb2-9cc6-f488a91982df"]
}, Open ]],
Cell[CellGroupData[{
Cell[233195, 6306, 102, 0, 45, "Subsubsection",ExpressionUUID->"788b7643-b27a-41b2-91c4-0e3c9c1874b8"],
Cell[233300, 6308, 1030, 30, 58, "Text",ExpressionUUID->"1d6a86d8-d1a0-43e5-b718-f106cac66f1a"],
Cell[234333, 6340, 513, 15, 48, "Input",ExpressionUUID->"d958802e-cb86-42bc-b2b2-9925de5e342d"],
Cell[234849, 6357, 1011, 29, 58, "Text",ExpressionUUID->"3af2751d-74b4-4ec7-b0a3-867cef00de2b"],
Cell[235863, 6388, 210, 6, 25, "DisplayFormula",ExpressionUUID->"882e6cf7-db14-486f-b32e-043ef8f566c5",
CellTags->"relazione1"],
Cell[CellGroupData[{
Cell[236098, 6398, 5330, 140, 162, "Input",ExpressionUUID->"ec04b7f5-5bba-485a-a513-af8b11fb5703",
CellTags->"figura1"],
Cell[241431, 6540, 3629, 68, 331, "Output",ExpressionUUID->"0e6da084-aa1a-44da-b3e3-abdab284fd24",
CellTags->"figura1"]
}, {2}]],
Cell[245072, 6611, 103, 1, 22, "NumberedFigure",ExpressionUUID->"94be1470-5bb5-44c7-904f-4440410b1c41",
CellTags->"figura8"]
}, Open ]],
Cell[CellGroupData[{
Cell[245212, 6617, 113, 0, 54, "Subsection",ExpressionUUID->"69d65ce4-3a54-4f34-af56-8fd82cdb2479"],
Cell[CellGroupData[{
Cell[245350, 6621, 107, 0, 45, "Subsubsection",ExpressionUUID->"8cc79689-073a-427f-b036-1e6981a044a8"],
Cell[245460, 6623, 3673, 102, 149, "Input",ExpressionUUID->"caeb74d6-fc9b-4d1f-aa84-bc6f4797cb12"]
}, Closed]],
Cell[CellGroupData[{
Cell[249170, 6730, 93, 0, 37, "Subsubsection",ExpressionUUID->"37e7ad85-5cad-42dd-8501-b65dd8daf168"],
Cell[249266, 6732, 605, 18, 35, "Text",ExpressionUUID->"038e4ebf-22d4-48dc-bae6-787f76539c6d"],
Cell[249874, 6752, 840, 27, 86, "Input",ExpressionUUID->"b1f9ae01-d83c-4726-9fc2-62ef3a65eff1"],
Cell[250717, 6781, 493, 14, 35, "Text",ExpressionUUID->"683a44e1-d127-4224-9427-28e3970e5999"],
Cell[CellGroupData[{
Cell[251235, 6799, 627, 19, 31, "Input",ExpressionUUID->"08ba8c58-91de-4a86-a1cf-f81257c27b8e"],
Cell[251865, 6820, 1583, 43, 54, "Output",ExpressionUUID->"aba4b526-11b1-4b6f-8e50-815c3c83f627"]
}, {2}]],
Cell[253460, 6866, 216, 6, 35, "Text",ExpressionUUID->"3bb04416-10ca-4317-a0e7-ed43958db36b"],
Cell[CellGroupData[{
Cell[253701, 6876, 123, 1, 28, "Input",ExpressionUUID->"9e7eac30-f601-4e01-8387-062f80e404dc"],
Cell[253827, 6879, 1106, 30, 32, "Output",ExpressionUUID->"6e99d971-80dd-4d23-8e91-d7ea2de51292"]
}, {2}]],
Cell[254945, 6912, 128, 0, 35, "Text",ExpressionUUID->"6f8cba7c-aa27-42af-a2da-7f3c0421cd61"],
Cell[CellGroupData[{
Cell[255098, 6916, 110, 1, 28, "Input",ExpressionUUID->"77313a20-d65f-401f-9dfc-30da28eb1840"],
Cell[255211, 6919, 1374, 34, 32, "Output",ExpressionUUID->"e2eabf0c-34ba-440f-ae91-e09234f63e9c"]
}, {2}]],
Cell[256597, 6956, 501, 13, 35, "Text",ExpressionUUID->"cc01e897-e5b9-41d0-bce6-3b393ae5ca34"],
Cell[CellGroupData[{
Cell[257123, 6973, 119, 1, 28, "Input",ExpressionUUID->"a1ad7a8e-8680-4d92-9aea-2bb271958069"],
Cell[257245, 6976, 878, 20, 32, "Output",ExpressionUUID->"61ee56a4-e95d-4056-8433-8dd757580cd3"]
}, {2}]],
Cell[258135, 6999, 231, 6, 35, "Text",ExpressionUUID->"a3fd548f-d36e-4d24-a4cf-496d6b259242"],
Cell[CellGroupData[{
Cell[258391, 7009, 104, 1, 28, "Input",ExpressionUUID->"0c567a84-02dc-4d20-8f91-a874885c5f6b"],
Cell[258498, 7012, 859, 21, 32, "Output",ExpressionUUID->"c63095d0-8287-448e-b300-7d8ec30d04b6"]
}, {2}]],
Cell[259369, 7036, 283, 7, 35, "Text",ExpressionUUID->"dffb7b6f-a3e1-4936-bc08-afeefd063d78"],
Cell[CellGroupData[{
Cell[259677, 7047, 192, 5, 28, "Input",ExpressionUUID->"a0d5d8b2-0f34-4814-ade4-4dee796edd3b"],
Cell[259872, 7054, 769, 18, 32, "Output",ExpressionUUID->"3e4fd894-816d-42d8-a596-8f94f05344e7"]
}, {2}]],
Cell[260653, 7075, 155, 2, 35, "Text",ExpressionUUID->"3b2523dc-dee4-4ac5-91a4-c9706ed8766b"],
Cell[260811, 7079, 529, 14, 32, "Output",ExpressionUUID->"44c3049b-67ea-4bb5-8a78-4e687fb6bd05"],
Cell[261343, 7095, 399, 6, 58, "Text",ExpressionUUID->"da38e24e-5f4e-452f-a928-e200ec47b205"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[261803, 7108, 108, 0, 67, "Section",ExpressionUUID->"eefd1f37-136c-42b9-8a31-ea3f48f04b63"],
Cell[CellGroupData[{
Cell[261936, 7112, 107, 0, 45, "Subsubsection",ExpressionUUID->"e45d8674-2c5e-432a-857f-8c7c91823268"],
Cell[262046, 7114, 4000, 111, 168, "Input",ExpressionUUID->"08838256-170d-446a-b999-21ed8fa6f542"]
}, Closed]],
Cell[CellGroupData[{
Cell[266083, 7230, 111, 0, 38, "Subsection",ExpressionUUID->"81bacf20-8d6b-4df8-bc6f-ddd33e61f4cb"],
Cell[266197, 7232, 869, 19, 81, "Text",ExpressionUUID->"d0a00e16-f333-432e-a434-d13c2743dd59"],
Cell[CellGroupData[{
Cell[267091, 7255, 124, 1, 28, "Input",ExpressionUUID->"37a2fdb4-a31b-4492-adeb-16e4a2ca1e2a"],
Cell[267218, 7258, 795, 18, 32, "Output",ExpressionUUID->"c58a72e0-151d-478c-a3ab-d71a8630924b"]
}, {2}]],
Cell[268025, 7279, 359, 10, 35, "Text",ExpressionUUID->"48bcc04d-2805-440b-a018-f371240aa957"],
Cell[CellGroupData[{
Cell[268409, 7293, 167, 4, 28, "Input",ExpressionUUID->"0b9dd5c1-56c4-4cec-a626-2640fad7319d"],
Cell[268579, 7299, 773, 19, 32, "Output",ExpressionUUID->"e2138083-e038-4877-933f-df197e85e579"]
}, {2}]],
Cell[269364, 7321, 1057, 32, 58, "Text",ExpressionUUID->"bb26dfe6-82ce-42ca-abec-e1783dcea999"],
Cell[CellGroupData[{
Cell[270446, 7357, 141, 3, 28, "Input",ExpressionUUID->"1a81b0cb-aa62-4d97-bf2d-39088f7ffff0"],
Cell[270590, 7362, 739, 17, 32, "Output",ExpressionUUID->"3aec06cf-f066-4419-a4be-54d00bc28549"]
}, {2}]],
Cell[271341, 7382, 395, 10, 35, "Text",ExpressionUUID->"a4e42445-9b59-4de4-81f9-1e6481ac528f"],
Cell[271739, 7394, 482, 14, 32, "Output",ExpressionUUID->"2f3ae5ff-143a-41ad-ab83-d1d57c05d83c"]
}, Open ]],
Cell[CellGroupData[{
Cell[272258, 7413, 123, 0, 54, "Subsection",ExpressionUUID->"4da61f41-39eb-47cd-916e-d0409d91a2ad"],
Cell[CellGroupData[{
Cell[272406, 7417, 107, 0, 45, "Subsubsection",ExpressionUUID->"4f44df48-f503-4de5-bf5e-798a2b3a47ee"],
Cell[272516, 7419, 4395, 121, 168, "Input",ExpressionUUID->"02157b99-2a3c-405c-aadb-12b38703259c"]
}, Closed]],
Cell[CellGroupData[{
Cell[276948, 7545, 101, 0, 37, "Subsubsection",ExpressionUUID->"306e51c3-3660-4a5f-939c-e9f39fa21673"],
Cell[277052, 7547, 553, 14, 39, "Text",ExpressionUUID->"8391dee5-2d77-4f24-a710-17f26038dda7",
CellTags->"id1"],
Cell[CellGroupData[{
Cell[277630, 7565, 325, 9, 42, "Input",ExpressionUUID->"8fb4be45-e1ca-4f45-8814-fb578e311db9"],
Cell[277958, 7576, 620, 14, 45, "Output",ExpressionUUID->"b4247387-16a1-4030-81bc-f106aebd00ca"]
}, {2}]],
Cell[278590, 7593, 385, 10, 38, "Text",ExpressionUUID->"1e6433fe-08bc-4492-8d36-167265a9c93b"],
Cell[CellGroupData[{
Cell[279000, 7607, 205, 6, 42, "Input",ExpressionUUID->"d62f8150-feef-4b60-bb76-179fd6094f46"],
Cell[279208, 7615, 554, 11, 32, "Output",ExpressionUUID->"d4f1f82b-41ff-4143-b4ba-57329fda2c3b"]
}, {2}]],
Cell[279774, 7629, 235, 6, 35, "Text",ExpressionUUID->"7bcebe34-a24a-4566-b1f2-c686dd94eb10"],
Cell[CellGroupData[{
Cell[280034, 7639, 110, 1, 28, "Input",ExpressionUUID->"7c66bbe7-3c77-41d1-bbdf-f975acd25eb8"],
Cell[280147, 7642, 712, 16, 32, "Output",ExpressionUUID->"9ce7fdf5-7086-4898-9227-b04cd5086281"]
}, {2}]],
Cell[280871, 7661, 362, 9, 35, "Text",ExpressionUUID->"d44578da-5dd1-48e7-817f-27d4b0cb7b2d"],
Cell[CellGroupData[{
Cell[281258, 7674, 196, 5, 42, "Input",ExpressionUUID->"e21ab43a-c79e-4538-8750-5b6f3a1e840a"],
Cell[281457, 7681, 820, 20, 45, "Output",ExpressionUUID->"52331a1f-d241-44c8-937e-1ef686f286dd"]
}, {2}]],
Cell[282289, 7704, 559, 15, 38, "Text",ExpressionUUID->"f3139542-5a03-48f1-80ab-80a6b6c64379"],
Cell[CellGroupData[{
Cell[282873, 7723, 145, 3, 28, "Input",ExpressionUUID->"741717af-5fc0-4eaa-8bc7-b4046e92dbb0"],
Cell[283021, 7728, 712, 16, 32, "Output",ExpressionUUID->"7eb0b332-1048-4cdc-b4d1-372a055a1309"]
}, {2}]],
Cell[283745, 7747, 111, 0, 35, "Text",ExpressionUUID->"c28329e6-ff3e-421b-a463-6e9e0e493506"]
}, Open ]],
Cell[CellGroupData[{
Cell[283893, 7752, 159, 3, 45, "Subsubsection",ExpressionUUID->"63f3aac4-85eb-45cd-a82c-bdefe860db27"],
Cell[CellGroupData[{
Cell[284077, 7759, 145, 3, 28, "Input",ExpressionUUID->"4b8b463d-938f-44df-87a5-d4c34ecdf021"],
Cell[284225, 7764, 721, 15, 32, "Output",ExpressionUUID->"da1c36d3-64a3-468a-a334-69c72593553a"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[284992, 7785, 107, 0, 37, "Subsubsection",ExpressionUUID->"60290cd7-b4ed-48fe-8f3e-03f17e062e6e"],
Cell[285102, 7787, 5213, 144, 206, "Input",ExpressionUUID->"8aad7d08-358d-445a-9fb0-465e6dea68e9"]
}, Closed]],
Cell[CellGroupData[{
Cell[290352, 7936, 96, 0, 37, "Subsubsection",ExpressionUUID->"52e39142-993f-493b-9975-297b8ae0de77"],
Cell[290451, 7938, 403, 10, 35, "Text",ExpressionUUID->"5d52e0eb-0fa7-4902-b1d7-2ac71ad1beb1"],
Cell[CellGroupData[{
Cell[290879, 7952, 210, 5, 28, "Input",ExpressionUUID->"7526ce7a-892a-4837-924b-69f9f32585fd"],
Cell[291092, 7959, 787, 19, 32, "Output",ExpressionUUID->"2663280f-d85a-4899-884e-73767e48491d"]
}, {2}]],
Cell[291891, 7981, 1090, 36, 35, "Text",ExpressionUUID->"7173fe56-d891-4866-bf73-3771e2481e11"],
Cell[CellGroupData[{
Cell[293006, 8021, 141, 3, 28, "Input",ExpressionUUID->"c5f2985e-b5f7-4040-9e36-f79593a17252"],
Cell[293150, 8026, 741, 17, 32, "Output",ExpressionUUID->"f0fe6092-d094-469c-bcf8-68ebfea3a38d"]
}, {2}]],
Cell[293903, 8046, 149, 2, 35, "Text",ExpressionUUID->"3647d08f-d69c-4080-a1ee-b9b2de6861bc"],
Cell[294055, 8050, 551, 14, 32, "Output",ExpressionUUID->"38b279b3-ad9e-41ac-812f-d15a4847f71d"],
Cell[294609, 8066, 263, 4, 58, "Text",ExpressionUUID->"70fc9e65-bcc9-4bbe-92da-be643ab5a19e"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[294921, 8076, 127, 0, 54, "Subsection",ExpressionUUID->"87c71540-3b45-47fa-aff4-6733b42fe5dc"],
Cell[CellGroupData[{
Cell[295073, 8080, 107, 0, 45, "Subsubsection",ExpressionUUID->"6889d2fc-7dd9-4c2b-8d10-f5e67e4bc60e"],
Cell[295183, 8082, 5184, 141, 187, "Input",ExpressionUUID->"e7923e2c-091f-4842-ad9e-7134c7381a83"]
}, Closed]],
Cell[CellGroupData[{
Cell[300404, 8228, 100, 0, 37, "Subsubsection",ExpressionUUID->"d29882fb-85a4-4ff9-8f2f-3c45bbb9ef77"],
Cell[300507, 8230, 327, 5, 58, "Text",ExpressionUUID->"da255db3-efb7-4d88-9baa-fd94468fb5ab"],
Cell[CellGroupData[{
Cell[300859, 8239, 339, 9, 48, "Input",ExpressionUUID->"6849dbb1-d17e-4f46-886c-acac145152a8"],
Cell[301201, 8250, 646, 14, 51, "Output",ExpressionUUID->"32c97339-d771-4d11-a33d-b889a57796ff"]
}, {2}]],
Cell[301859, 8267, 195, 3, 35, "Text",ExpressionUUID->"0a1bc530-bc7c-4911-94b8-ecf22f5741a3"],
Cell[CellGroupData[{
Cell[302079, 8274, 141, 3, 28, "Input",ExpressionUUID->"6d141c7e-cd96-49bd-aae3-b3190bd15abc"],
Cell[302223, 8279, 976, 24, 51, "Output",ExpressionUUID->"0d5886a5-a74c-481c-a73f-2fb1ba9ade45"]
}, {2}]],
Cell[303211, 8306, 676, 18, 38, "Text",ExpressionUUID->"976b620e-b8c6-4757-8846-f9f4e92a0165"],
Cell[CellGroupData[{
Cell[303912, 8328, 360, 10, 28, "Input",ExpressionUUID->"599d98cb-959f-4720-8f8d-707865406437"],
Cell[304275, 8340, 1314, 36, 69, "Output",ExpressionUUID->"04c24132-0495-40d6-9906-aa34e67272f3"]
}, {2}]],
Cell[305601, 8379, 247, 4, 58, "Text",ExpressionUUID->"a88e1999-2e69-4dd7-b2f6-62016f93e27f"],
Cell[CellGroupData[{
Cell[305873, 8387, 233, 6, 28, "Input",ExpressionUUID->"b36ca2ae-7a50-46f7-adc8-5d4a83cb3790"],
Cell[306109, 8395, 995, 25, 69, "Output",ExpressionUUID->"32b2aa66-537e-47d1-a96e-eddafe17aaa4"]
}, {2}]],
Cell[CellGroupData[{
Cell[307138, 8425, 108, 1, 28, "Input",ExpressionUUID->"9a12162c-c531-4ac0-b574-ebf5828a8450"],
Cell[307249, 8428, 766, 18, 51, "Output",ExpressionUUID->"61e47159-84cf-4470-854b-e8e75bbfae72"]
}, {2}]],
Cell[308027, 8449, 104, 0, 35, "Text",ExpressionUUID->"ef98266c-351d-4b87-9261-cf7ae294c07d"]
}, Open ]],
Cell[CellGroupData[{
Cell[308168, 8454, 107, 0, 45, "Subsubsection",ExpressionUUID->"a3220a5a-34a8-40d9-b1af-b387fb19d470"],
Cell[308278, 8456, 5612, 153, 219, "Input",ExpressionUUID->"b3b9ad0e-84a9-4ba0-9283-0d43184d8a88"]
}, Closed]],
Cell[CellGroupData[{
Cell[313927, 8614, 105, 0, 37, "Subsubsection",ExpressionUUID->"e4b726c1-737c-48a2-9faa-13eda7800a1a"],
Cell[314035, 8616, 373, 8, 35, "Text",ExpressionUUID->"a9ff7b1d-a50d-48b4-86a6-72d86b7a7f4a"],
Cell[CellGroupData[{
Cell[314433, 8628, 209, 5, 28, "Input",ExpressionUUID->"d6f4f06c-834d-457f-9a50-4280d5f1e10a"],
Cell[314645, 8635, 809, 20, 51, "Output",ExpressionUUID->"9fc7d4b8-dc82-4e8e-95ee-d6f5dafb77bc"]
}, {2}]],
Cell[315466, 8658, 538, 15, 35, "Text",ExpressionUUID->"10359b47-cc9d-4bb1-8529-78bb13a4316c"],
Cell[CellGroupData[{
Cell[316029, 8677, 110, 1, 28, "Input",ExpressionUUID->"b614f41d-3dc5-4591-9a42-6d9ec4b9c8c9"],
Cell[316142, 8680, 766, 18, 51, "Output",ExpressionUUID->"8b464e0a-a006-4b8f-8913-58b0ea682a1d"]
}, {2}]],
Cell[316920, 8701, 151, 2, 35, "Text",ExpressionUUID->"7186c896-8943-429c-a439-57bf7da03489"],
Cell[317074, 8705, 2427, 64, 57, "Output",ExpressionUUID->"dd5d2deb-e0ae-45e9-a09f-f67c917368b3"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[319562, 8776, 97, 0, 67, "Section",ExpressionUUID->"be0687ab-c81f-48f9-86f9-f856212bd779"],
Cell[CellGroupData[{
Cell[319684, 8780, 107, 0, 45, "Subsubsection",ExpressionUUID->"12139676-394a-4ebc-8e10-27ed406ca7ed"],
Cell[319794, 8782, 6038, 164, 219, "Input",ExpressionUUID->"08d39d97-ca42-4720-98a1-bdfeb06ba57d"]
}, Closed]],
Cell[CellGroupData[{
Cell[325869, 8951, 127, 0, 38, "Subsection",ExpressionUUID->"5c965927-fdf7-4343-a68e-7f2335d7513b"],
Cell[325999, 8953, 620, 13, 81, "Text",ExpressionUUID->"c476a61a-6597-4ff1-ae9b-4be9f4919fb6"],
Cell[CellGroupData[{
Cell[326644, 8970, 123, 1, 28, "Input",ExpressionUUID->"e00d6981-9061-4890-adb4-9e422c07af0a"],
Cell[326770, 8973, 716, 16, 32, "Output",ExpressionUUID->"b8b12ed7-0851-4f08-9f37-2e55e5b61ae2"]
}, {2}]],
Cell[327498, 8992, 278, 7, 35, "Text",ExpressionUUID->"cca88e63-a6f5-449f-a7c1-605d99250f68"],
Cell[CellGroupData[{
Cell[327801, 9003, 149, 3, 28, "Input",ExpressionUUID->"48556b57-c4de-4a65-a7a2-7685c580e6a5"],
Cell[327953, 9008, 587, 11, 32, "Output",ExpressionUUID->"e844a9b4-9b0d-44bf-8704-05fa489b9684"]
}, {2}]],
Cell[328552, 9022, 123, 0, 35, "Text",ExpressionUUID->"1865e589-7e29-4926-823d-36ecad0ec9fe"],
Cell[CellGroupData[{
Cell[328700, 9026, 123, 1, 28, "Input",ExpressionUUID->"8966e12f-3360-426d-bd7f-657808c6ded0"],
Cell[328826, 9029, 713, 16, 32, "Output",ExpressionUUID->"9f43ccf3-36cc-4165-9c87-322994aa075e"]
}, {2}]],
Cell[CellGroupData[{
Cell[329573, 9050, 181, 4, 28, "Input",ExpressionUUID->"ffb51f3d-7355-4fc9-90c8-dab9fb6e25df"],
Cell[329757, 9056, 631, 14, 32, "Output",ExpressionUUID->"ca685e17-2208-429a-abb9-a4dfd7a33fe1"]
}, {2}]],
Cell[330400, 9073, 532, 12, 53, "Text",ExpressionUUID->"c379a89c-108c-48ba-925d-072d101febbd"],
Cell[CellGroupData[{
Cell[330957, 9089, 318, 9, 28, "Input",ExpressionUUID->"e053ca92-13fb-4360-b1d0-3e61b9b12ce2"],
Cell[331278, 9100, 641, 14, 32, "Output",ExpressionUUID->"09690da3-304b-4aa8-b239-635fa6466a99"]
}, {2}]],
Cell[CellGroupData[{
Cell[331953, 9119, 148, 3, 28, "Input",ExpressionUUID->"7f0727a5-6ce5-4d5c-b04a-74b95cf11050"],
Cell[332104, 9124, 652, 14, 32, "Output",ExpressionUUID->"884441bf-6b13-4851-9c32-fdd6aa3527dd"]
}, {2}]],
Cell[332768, 9141, 439, 12, 35, "Text",ExpressionUUID->"31a18002-ae6b-46b3-aaa1-73c8895d0ced"],
Cell[CellGroupData[{
Cell[333232, 9157, 318, 9, 28, "Input",ExpressionUUID->"5a054418-138e-43a1-aba9-384592e33f13"],
Cell[333553, 9168, 698, 16, 32, "Output",ExpressionUUID->"12651958-cfda-4724-b4ba-aaa40b41105f"]
}, {2}]],
Cell[334263, 9187, 117, 0, 35, "Text",ExpressionUUID->"7993b9dc-e304-4208-a0ec-f8a7d9d81605"],
Cell[CellGroupData[{
Cell[334405, 9191, 123, 1, 28, "Input",ExpressionUUID->"7407586a-592a-4942-b5ae-b0d145c713fb"],
Cell[334531, 9194, 762, 18, 51, "Output",ExpressionUUID->"2a108f85-396d-4abb-b4c4-b022e8b54ea5"]
}, {2}]],
Cell[335305, 9215, 298, 8, 35, "Text",ExpressionUUID->"b12ae0d0-8b6b-432b-a3df-c05c20289c13"],
Cell[CellGroupData[{
Cell[335628, 9227, 149, 3, 28, "Input",ExpressionUUID->"09e4355e-a3f0-489d-a41a-828b5401fe51"],
Cell[335780, 9232, 676, 16, 51, "Output",ExpressionUUID->"e56b15e6-05e9-4d8b-8a38-f155f3758af5"]
}, {2}]],
Cell[336468, 9251, 112, 0, 35, "Text",ExpressionUUID->"12fe85b2-e611-4bc2-97a5-16eb11138e61"],
Cell[336583, 9253, 1333, 42, 90, "Output",ExpressionUUID->"6b420cc3-2413-4369-8b4e-3314742dbae9"],
Cell[CellGroupData[{
Cell[337941, 9299, 161, 3, 45, "Subsubsection",ExpressionUUID->"41576ce3-f359-4845-ad75-f5474ed643c3"],
Cell[338105, 9304, 483, 15, 31, "Input",ExpressionUUID->"69726214-434f-4499-b3a8-36ca0b30c24e"]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[338649, 9326, 94, 0, 67, "Section",ExpressionUUID->"a89db0f0-953e-4aa4-b6f8-77ab914707f3"],
Cell[CellGroupData[{
Cell[338768, 9330, 107, 0, 45, "Subsubsection",ExpressionUUID->"e98cc65f-35eb-4a9a-ac02-5dc45ff9436e"],
Cell[338878, 9332, 7496, 203, 280, "Input",ExpressionUUID->"6f0b4db1-e81e-4f9b-a68d-aa6b698b9165"]
}, Closed]],
Cell[CellGroupData[{
Cell[346411, 9540, 124, 0, 38, "Subsection",ExpressionUUID->"d2e085c5-07d5-4301-a2d1-69c04e4f801c"],
Cell[346538, 9542, 490, 10, 58, "Text",ExpressionUUID->"07c9cec9-33cc-498c-9c27-a20066b1c602"],
Cell[CellGroupData[{
Cell[347053, 9556, 127, 1, 28, "Input",ExpressionUUID->"110f4dd6-f1a8-4d23-86fa-406825bcb3c3"],
Cell[347183, 9559, 592, 13, 32, "Output",ExpressionUUID->"f0eaf25a-3b75-43f9-97a0-0a670fa990db"]
}, {2}]],
Cell[347787, 9575, 524, 14, 37, "Text",ExpressionUUID->"0e97d977-ccde-4d89-b9e1-422f33155abb"],
Cell[CellGroupData[{
Cell[348336, 9593, 104, 1, 28, "Input",ExpressionUUID->"9d2eaf01-d088-4532-a2b2-bb3d42c8d34d"],
Cell[348443, 9596, 633, 15, 32, "Output",ExpressionUUID->"7e142bdc-0d6c-4825-ad01-f878f41bda62"]
}, {2}]],
Cell[CellGroupData[{
Cell[349110, 9616, 159, 4, 28, "Input",ExpressionUUID->"4511d23a-6447-4764-8483-cfbeb572e278"],
Cell[349272, 9622, 643, 15, 48, "Output",ExpressionUUID->"0e07c4e4-72b8-4c8d-9fa8-eaa2336a919f"]
}, {2}]],
Cell[349927, 9640, 114, 0, 35, "Text",ExpressionUUID->"3a4fe7ad-4719-43e0-a502-b15a10c1de12"],
Cell[CellGroupData[{
Cell[350066, 9644, 108, 1, 28, "Input",ExpressionUUID->"55bc7951-d607-429a-8cad-acbdbe516612"],
Cell[350177, 9647, 631, 16, 55, "Output",ExpressionUUID->"a65599a3-a599-4cfa-99dd-12303a398c18"]
}, {2}]],
Cell[350820, 9666, 174, 3, 35, "Text",ExpressionUUID->"4a91c7c2-b994-412e-9d65-cdb9a896c8cf"],
Cell[CellGroupData[{
Cell[351019, 9673, 150, 3, 28, "Input",ExpressionUUID->"5998dc6c-e61d-47ac-bae6-eabda9546d14"],
Cell[351172, 9678, 627, 15, 55, "Output",ExpressionUUID->"8c64b772-b09e-414b-a7d6-b076871101e3"]
}, {2}]],
Cell[351811, 9696, 400, 11, 38, "Text",ExpressionUUID->"b8a4ecc9-cde5-4a62-97b0-377e28363374"],
Cell[CellGroupData[{
Cell[352236, 9711, 174, 4, 28, "Input",ExpressionUUID->"325d45b8-d0d6-4f33-b501-8542931ac348"],
Cell[352413, 9717, 650, 16, 55, "Output",ExpressionUUID->"2a2fc36b-7e62-41d7-97da-d8e507badd29"]
}, {2}]],
Cell[353075, 9736, 527, 10, 61, "Text",ExpressionUUID->"e5b079c2-1b34-4bf7-b201-0f7c58817472"],
Cell[353605, 9748, 101, 0, 35, "Text",ExpressionUUID->"2f43fdbe-0d92-40a7-a979-19765d017669"],
Cell[353709, 9750, 437, 14, 57, "Output",ExpressionUUID->"9e1b0bad-6640-4509-a62f-ced442029d87"],
Cell[CellGroupData[{
Cell[354171, 9768, 231, 4, 45, "Subsubsection",ExpressionUUID->"be94f6f4-c27f-474c-ab61-d4414316246b"],
Cell[354405, 9774, 489, 15, 58, "Input",ExpressionUUID->"845d3999-46b7-4ac3-b0ac-92d9396bedad"]
}, Closed]],
Cell[CellGroupData[{
Cell[354931, 9794, 236, 4, 37, "Subsubsection",ExpressionUUID->"d3e794ca-d23e-4fc8-8813-654466981ee3"],
Cell[355170, 9800, 98, 0, 35, "Text",ExpressionUUID->"5e43bb5d-1d11-4b06-9a92-7b221ae2ff6b"],
Cell[CellGroupData[{
Cell[355293, 9804, 127, 1, 28, "Input",ExpressionUUID->"0ae86727-19bb-4852-bb93-82546817f239"],
Cell[355423, 9807, 650, 15, 32, "Output",ExpressionUUID->"e6ff9c01-10b2-4e9c-8745-63b5348b4485"]
}, {2}]],
Cell[356085, 9825, 248, 6, 35, "Text",ExpressionUUID->"ca1929d6-0d32-4e98-862e-f9391721549a"],
Cell[CellGroupData[{
Cell[356358, 9835, 208, 6, 28, "Input",ExpressionUUID->"5c8ad238-e178-43b9-83bc-bd24d9df591d"],
Cell[356569, 9843, 676, 16, 48, "Output",ExpressionUUID->"77c1fa30-475a-4d68-818a-11606c32bfaa"]
}, {2}]],
Cell[357257, 9862, 127, 0, 35, "Text",ExpressionUUID->"0fa36543-cae2-4f7f-9259-e345dd9b0a27"],
Cell[CellGroupData[{
Cell[357409, 9866, 108, 1, 28, "Input",ExpressionUUID->"1fe86158-7eda-4b7f-81a3-8816d230a05d"],
Cell[357520, 9869, 668, 17, 55, "Output",ExpressionUUID->"bed92b30-9fa8-4d64-aec1-ade57d700067"]
}, {2}]],
Cell[358200, 9889, 76, 0, 35, "Text",ExpressionUUID->"0276a957-b658-4c33-8833-35e66a6b1349"],
Cell[CellGroupData[{
Cell[358301, 9893, 150, 3, 28, "Input",ExpressionUUID->"aab91880-763f-4282-8b3d-c7d73079ce59"],
Cell[358454, 9898, 660, 16, 55, "Output",ExpressionUUID->"23348b02-1cd0-4a71-b909-c0f9b55dc447"]
}, {2}]],
Cell[359126, 9917, 407, 11, 38, "Text",ExpressionUUID->"77ac6ab7-4835-4d69-878a-061bc327cdab"],
Cell[CellGroupData[{
Cell[359558, 9932, 174, 4, 28, "Input",ExpressionUUID->"5dbd88c4-658a-4072-828e-807d42991bac"],
Cell[359735, 9938, 680, 17, 55, "Output",ExpressionUUID->"093f08af-9518-49f7-9ee3-188d236822ec"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[360461, 9961, 208, 4, 45, "Subsubsection",ExpressionUUID->"44d8b0b7-4c42-47a6-b1df-00c31e3b4120"],
Cell[CellGroupData[{
Cell[360694, 9969, 439, 14, 58, "Input",ExpressionUUID->"a7455486-4645-46d5-892e-c247b08a29a6"],
Cell[361136, 9985, 691, 17, 55, "Output",ExpressionUUID->"bffdd53c-b2a3-40bf-91de-3fb53d194836"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[361873, 10008, 176, 3, 37, "Subsubsection",ExpressionUUID->"1f93cd3b-99a3-4d59-81e8-cece2e9b5934"],
Cell[362052, 10013, 579, 12, 58, "Text",ExpressionUUID->"30d8dee5-0ece-431c-ab4f-e1073d6c4a85"],
Cell[CellGroupData[{
Cell[362656, 10029, 190, 4, 28, "Input",ExpressionUUID->"82ea6126-0567-459e-9958-c485abd25e8e"],
Cell[362849, 10035, 843, 22, 64, "Output",ExpressionUUID->"91876080-c2b3-4682-a145-128c89c36948"]
}, {2}]],
Cell[363704, 10060, 92, 0, 35, "Text",ExpressionUUID->"d824f06e-354e-488e-bbbe-6eaaf75c4e3d"],
Cell[CellGroupData[{
Cell[363821, 10064, 258, 7, 28, "Input",ExpressionUUID->"95282cbb-802b-40c0-b652-eff9d4ef5d18"],
Cell[364082, 10073, 740, 19, 56, "Output",ExpressionUUID->"29df0e32-ddb9-45e6-8d3c-394613cd17b1"]
}, {2}]],
Cell[364834, 10095, 124, 0, 35, "Text",ExpressionUUID->"7aafd0eb-33bd-4402-bc6d-b35e4f4d979e"],
Cell[364961, 10097, 998, 36, 154, "Output",ExpressionUUID->"0b92b7bd-f8fa-47c5-a6ab-5746cbc112f0"]
}, Open ]],
Cell[CellGroupData[{
Cell[365996, 10138, 161, 3, 45, "Subsubsection",ExpressionUUID->"bc91377e-1ef2-453a-8c2c-f318451c71a1"],
Cell[CellGroupData[{
Cell[366182, 10145, 508, 16, 59, "Input",ExpressionUUID->"2860e419-e7ea-4f32-a229-8e4f1bf9c65d"],
Cell[366693, 10163, 747, 19, 56, "Output",ExpressionUUID->"55a0fc52-b0f1-4556-925c-9cc14658d7b2"]
}, {2}]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[367510, 10190, 104, 0, 67, "Section",ExpressionUUID->"fcbf5da9-5449-44df-8cd1-08e1252e8763"],
Cell[CellGroupData[{
Cell[367639, 10194, 107, 0, 45, "Subsubsection",ExpressionUUID->"e1064cce-6f07-4c78-b0fa-09a4cd1b6738"],
Cell[367749, 10196, 8475, 233, 334, "Input",ExpressionUUID->"79fc1b3d-f20b-45c8-84a1-76ddc57af732"]
}, Closed]],
Cell[CellGroupData[{
Cell[376261, 10434, 134, 0, 38, "Subsection",ExpressionUUID->"09a2dd70-7bad-47fd-8a38-7a435dcd0ada"],
Cell[376398, 10436, 600, 10, 104, "Text",ExpressionUUID->"7daab7df-e782-4a96-aadb-8549504d71de"],
Cell[CellGroupData[{
Cell[377023, 10450, 124, 1, 28, "Input",ExpressionUUID->"06839453-c06f-4a50-9c7a-a2dfb0afefe2"],
Cell[377150, 10453, 623, 13, 32, "Output",ExpressionUUID->"c0111550-83af-489b-a78a-4abcbf9cc4b9"]
}, {2}]],
Cell[377785, 10469, 467, 13, 35, "Text",ExpressionUUID->"bb70677e-ac19-4a15-967e-e8f893d72699"],
Cell[CellGroupData[{
Cell[378277, 10486, 449, 14, 28, "Input",ExpressionUUID->"35a69dad-689a-4e58-9f17-11bc1c93c100"],
Cell[378729, 10502, 797, 19, 51, "Output",ExpressionUUID->"9cbdcd5d-c430-4cf5-a347-d95f81c4f89f"]
}, {2}]],
Cell[379538, 10524, 605, 16, 38, "Text",ExpressionUUID->"37149222-246e-4b8c-b669-ba6aaff45e6b"],
Cell[CellGroupData[{
Cell[380168, 10544, 294, 8, 28, "Input",ExpressionUUID->"b7c1b3f0-214b-4514-bbbb-eaed5bb28acb"],
Cell[380465, 10554, 1053, 29, 73, "Output",ExpressionUUID->"cfedcbae-5c88-4031-a3b6-5e4944fa2c60"]
}, {2}]],
Cell[381530, 10586, 410, 11, 40, "Text",ExpressionUUID->"9568fffd-21b7-4b2a-aa41-f9d8e28f86b6"],
Cell[CellGroupData[{
Cell[381965, 10601, 265, 7, 28, "Input",ExpressionUUID->"b96b0843-17ff-4fd2-836a-fe94cc503c13"],
Cell[382233, 10610, 682, 16, 51, "Output",ExpressionUUID->"5df32034-e99e-4208-a82c-5a0ac3a97b35"]
}, {2}]],
Cell[382927, 10629, 364, 8, 38, "Text",ExpressionUUID->"c2976d60-db14-4b1c-9639-fd7c1e2ed2e2"],
Cell[CellGroupData[{
Cell[383316, 10641, 174, 4, 28, "Input",ExpressionUUID->"25f34dc6-cab2-4be6-b5c0-535c102ed7c5"],
Cell[383493, 10647, 707, 17, 64, "Output",ExpressionUUID->"f35a7bbb-68af-4f94-bd6e-e0220c516d61"]
}, {2}]],
Cell[384212, 10667, 187, 3, 35, "Text",ExpressionUUID->"6aeb62b1-bdf9-4df1-9cea-b5dc2684633c"],
Cell[CellGroupData[{
Cell[384424, 10674, 124, 1, 28, "Input",ExpressionUUID->"0cdd0488-82b8-403f-8f3d-96fe73f02ef4"],
Cell[384551, 10677, 665, 15, 32, "Output",ExpressionUUID->"e7128343-9e95-47f4-8f18-2e6197151b58"]
}, {2}]],
Cell[385228, 10695, 75, 0, 35, "Text",ExpressionUUID->"aa4e744b-0dab-4ed8-98f0-d85b65b80ff3"],
Cell[CellGroupData[{
Cell[385328, 10699, 449, 14, 28, "Input",ExpressionUUID->"3ebcc1aa-636b-4ac3-b7d6-3cee76c60888"],
Cell[385780, 10715, 847, 21, 54, "Output",ExpressionUUID->"cec9d8de-0c9f-4794-a046-bc87fd026f61"]
}, {2}]],
Cell[386639, 10739, 608, 16, 38, "Text",ExpressionUUID->"f936cbda-aefa-4f92-8806-35547f0affc9"],
Cell[CellGroupData[{
Cell[387272, 10759, 384, 12, 28, "Input",ExpressionUUID->"fc719d60-7df2-4ad8-ac91-be8a0034abed"],
Cell[387659, 10773, 1109, 31, 77, "Output",ExpressionUUID->"f3da8306-4b68-44d1-8f9c-e869585b660e"]
}, {2}]],
Cell[388780, 10807, 166, 3, 35, "Text",ExpressionUUID->"c415e17c-d45b-47e6-b110-571e3d898471"],
Cell[CellGroupData[{
Cell[388971, 10814, 265, 7, 28, "Input",ExpressionUUID->"c3007f8d-0f36-4dd0-8dbe-4cebed86bb9f"],
Cell[389239, 10823, 711, 17, 54, "Output",ExpressionUUID->"15c5bf46-7761-47b1-af76-cf8018ca9e7e"]
}, {2}]],
Cell[389962, 10843, 308, 8, 38, "Text",ExpressionUUID->"6a456a57-022c-48cf-8650-34e041f46f12"],
Cell[CellGroupData[{
Cell[390295, 10855, 174, 4, 28, "Input",ExpressionUUID->"cf58a915-fda5-4a42-b246-5bf47dfea069"],
Cell[390472, 10861, 771, 19, 65, "Output",ExpressionUUID->"88e47aba-34c0-4d09-a6d0-135749be51c0"]
}, {2}]],
Cell[391255, 10883, 405, 9, 38, "Text",ExpressionUUID->"62a6e432-b070-456f-9fd0-9f810d022495"],
Cell[CellGroupData[{
Cell[391685, 10896, 124, 1, 28, "Input",ExpressionUUID->"8f181d13-b92e-4271-8bb8-d496b149a569"],
Cell[391812, 10899, 690, 16, 51, "Output",ExpressionUUID->"e3a4f21e-ed3e-4b7f-99ee-4de32f073def"]
}, {2}]],
Cell[392514, 10918, 84, 0, 35, "Text",ExpressionUUID->"5239020e-5032-46aa-ad23-7fc6dbadcfb7"],
Cell[CellGroupData[{
Cell[392623, 10922, 174, 4, 28, "Input",ExpressionUUID->"8f9b0a82-27c0-4cd6-b6f1-3ce6ddd4c5f2"],
Cell[392800, 10928, 711, 17, 64, "Output",ExpressionUUID->"d8858517-ff27-41ce-81b3-0526b61fe059"]
}, {2}]],
Cell[393523, 10948, 124, 0, 35, "Text",ExpressionUUID->"57b195f1-0ec4-4cb3-85a6-396ac4a2eb15"],
Cell[393650, 10950, 1798, 55, 188, "Output",ExpressionUUID->"3af884ba-19b2-4023-b887-55a834803ad6"],
Cell[CellGroupData[{
Cell[395473, 11009, 161, 3, 45, "Subsubsection",ExpressionUUID->"36b2699c-929b-4dee-bbe8-296b82e6c5fc"],
Cell[CellGroupData[{
Cell[395659, 11016, 144, 3, 28, "Input",ExpressionUUID->"5844c695-a14d-4ea0-9471-d2fdf6454ab4"],
Cell[395806, 11021, 720, 17, 64, "Output",ExpressionUUID->"e0fd8aa1-cd70-4945-afd1-f8cb799e7ff8"]
}, {2}]],
Cell[CellGroupData[{
Cell[396560, 11043, 144, 3, 28, "Input",ExpressionUUID->"224e9263-8c9c-4f9d-8282-996981903e41"],
Cell[396707, 11048, 762, 18, 64, "Output",ExpressionUUID->"bcc5e2c5-b8e4-4707-add6-2a9f9667ad03"]
}, {2}]],
Cell[CellGroupData[{
Cell[397503, 11071, 144, 3, 28, "Input",ExpressionUUID->"6943f980-a190-490d-9da7-341b5c8f0ee8"],
Cell[397650, 11076, 808, 20, 64, "Output",ExpressionUUID->"a0f46fb3-7642-4403-83cc-179f9c4cf9e1"]
}, {2}]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[398528, 11104, 106, 0, 67, "Section",ExpressionUUID->"fec3a4dc-e0d9-481c-8b6b-c8b322e10537"],
Cell[CellGroupData[{
Cell[398659, 11108, 107, 0, 45, "Subsubsection",ExpressionUUID->"d2019ee7-3ec5-4fa1-9fd7-7b131910e347"],
Cell[398769, 11110, 9590, 264, 409, "Input",ExpressionUUID->"3e56e421-9ac3-4399-b352-accaa548073f"]
}, Closed]],
Cell[CellGroupData[{
Cell[408396, 11379, 94, 0, 38, "Subsection",ExpressionUUID->"3b84d991-df41-4417-b17d-0d48f725549d"],
Cell[408493, 11381, 293, 4, 58, "Text",ExpressionUUID->"15d208ed-7aab-43fb-b4d7-4f4e4788544d"],
Cell[CellGroupData[{
Cell[408811, 11389, 521, 13, 48, "Input",ExpressionUUID->"a6afbf33-37c5-4ba0-bde6-a5737eda326f",
CellTags->"riassunto"],
Cell[409335, 11404, 2364, 62, 82, "Output",ExpressionUUID->"ed06b084-4c45-4f3f-a236-ba2c88d71b05",
CellTags->"riassunto"]
}, {2}]],
Cell[411711, 11469, 210, 6, 35, "Text",ExpressionUUID->"cad5214e-fd2a-4d5f-a7ed-843f093de842"],
Cell[CellGroupData[{
Cell[411946, 11479, 203, 5, 28, "Input",ExpressionUUID->"41935904-b79c-4113-b74c-f5560f6b12d0"],
Cell[412152, 11486, 691, 15, 32, "Output",ExpressionUUID->"9683c410-3aad-4d44-a057-d20a412a28e9"]
}, {2}]],
Cell[412855, 11504, 217, 3, 35, "Text",ExpressionUUID->"48ab4ad5-ca91-4545-aad3-b1a965269f95"],
Cell[CellGroupData[{
Cell[413097, 11511, 141, 3, 28, "Input",ExpressionUUID->"379340e3-17d5-45ec-ba0d-6ecc3b034bd3"],
Cell[413241, 11516, 756, 18, 48, "Output",ExpressionUUID->"f6312bcf-048c-4418-a0df-5c790bfd4124"]
}, {2}]],
Cell[414009, 11537, 332, 7, 58, "Text",ExpressionUUID->"ec2de05b-87bf-4760-977a-85daa43f2f7b"],
Cell[CellGroupData[{
Cell[414366, 11548, 243, 7, 28, "Input",ExpressionUUID->"08e35d1a-0083-464b-a4cb-9ed26c107874"],
Cell[414612, 11557, 706, 16, 32, "Output",ExpressionUUID->"0b1e9f9e-61be-40a9-be75-83baefe963c2"]
}, {2}]],
Cell[CellGroupData[{
Cell[415352, 11578, 104, 1, 28, "Input",ExpressionUUID->"af030d52-41e3-4bbc-96f6-9db23f7f40af"],
Cell[415459, 11581, 779, 19, 48, "Output",ExpressionUUID->"0c028165-3e31-479b-a7c6-c13661de71c0"]
}, {2}]],
Cell[416250, 11603, 551, 15, 35, "Text",ExpressionUUID->"3b224725-5a38-41bd-9b2c-36d3f915a6a6"],
Cell[CellGroupData[{
Cell[416826, 11622, 203, 5, 28, "Input",ExpressionUUID->"5e29d42b-7ee0-4d9c-bd58-2d8147f50154"],
Cell[417032, 11629, 691, 15, 32, "Output",ExpressionUUID->"34f3a53a-6dcf-4e18-84ab-33c9a17b1c5a"]
}, {2}]],
Cell[417735, 11647, 247, 5, 35, "Text",ExpressionUUID->"a6f1133b-7c31-472d-9320-77de5ceb340e"],
Cell[CellGroupData[{
Cell[418007, 11656, 136, 3, 28, "Input",ExpressionUUID->"918cc89d-48f8-4b50-98b9-9f369178a2cb"],
Cell[418146, 11661, 758, 18, 48, "Output",ExpressionUUID->"aa074c91-2fd5-47d6-83ec-1b5207d50481"]
}, {2}]],
Cell[418916, 11682, 284, 6, 35, "Text",ExpressionUUID->"e88a43b3-9cde-4868-a615-06336e64a9ad"],
Cell[CellGroupData[{
Cell[419225, 11692, 207, 5, 28, "Input",ExpressionUUID->"8858086e-a030-496d-8a51-8466047b0c79"],
Cell[419435, 11699, 722, 16, 32, "Output",ExpressionUUID->"56f7be36-e714-40e9-b0d6-49c082514ff8"]
}, {2}]],
Cell[420169, 11718, 363, 8, 35, "Text",ExpressionUUID->"330e8dcf-bdd4-42a4-8ca1-35e1b3c1bd3c"],
Cell[CellGroupData[{
Cell[420557, 11730, 155, 4, 28, "Input",ExpressionUUID->"ffacbb49-58fa-4000-9ee9-80749b46d87b"],
Cell[420715, 11736, 781, 19, 48, "Output",ExpressionUUID->"3f1e0d85-6e80-48c2-ae62-b6fc7e5c89e2"]
}, {2}]],
Cell[CellGroupData[{
Cell[421530, 11760, 163, 3, 45, "Subsubsection",ExpressionUUID->"9272a84a-8649-416b-b96a-a8a613d4d37e"],
Cell[CellGroupData[{
Cell[421718, 11767, 592, 18, 45, "Input",ExpressionUUID->"09f62028-eece-41c4-8e9e-967c1a841512"],
Cell[422313, 11787, 770, 18, 48, "Output",ExpressionUUID->"b68b2ca0-f9ef-43b3-857d-4123af44cfbd"]
}, Open ]],
Cell[CellGroupData[{
Cell[423120, 11810, 592, 18, 45, "Input",ExpressionUUID->"9e9f5dec-49ff-43e5-8c0a-f2b9a3883991"],
Cell[423715, 11830, 767, 17, 48, "Output",ExpressionUUID->"c03ccf6e-b781-4ffd-84e5-b63384b6a577"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[424543, 11854, 100, 0, 54, "Subsection",ExpressionUUID->"cb5e1c64-1658-449e-b070-bd0b234ff7d0"],
Cell[424646, 11856, 534, 12, 58, "Text",ExpressionUUID->"aadd891d-cd45-4c18-8488-4f353b22a8bd"],
Cell[425183, 11870, 381, 13, 41, "DisplayFormula",ExpressionUUID->"4df02358-69ac-4e4a-afb2-dafe06dc9e9c"],
Cell[425567, 11885, 579, 17, 35, "Text",ExpressionUUID->"0251bf24-2737-49cb-bd5c-7eae05bafc84"],
Cell[CellGroupData[{
Cell[426171, 11906, 558, 17, 28, "Input",ExpressionUUID->"0a33af5f-78a5-4969-b661-c8936e51680e"],
Cell[426732, 11925, 607, 14, 46, "Output",ExpressionUUID->"c962f899-07cb-4309-b4da-ab647d322164"]
}, {2}]],
Cell[427351, 11942, 167, 3, 35, "Text",ExpressionUUID->"859943dd-ee95-4b02-80d9-50db118220d6"],
Cell[CellGroupData[{
Cell[427543, 11949, 203, 5, 28, "Input",ExpressionUUID->"67ddcd3f-9422-40d3-86f3-1393ab287106"],
Cell[427749, 11956, 689, 15, 32, "Output",ExpressionUUID->"036ce405-91fb-4f57-bcf6-d71cde2068bb"]
}, {2}]],
Cell[428450, 11974, 122, 0, 35, "Text",ExpressionUUID->"2b6f0f22-2fec-45eb-80e8-b863371352e5"],
Cell[CellGroupData[{
Cell[428597, 11978, 107, 1, 28, "Input",ExpressionUUID->"b8ee649c-2e17-4296-9596-f4b45714bfe4"],
Cell[428707, 11981, 1033, 30, 48, "Output",ExpressionUUID->"57d122b2-096d-432c-981e-66ba112eed06"]
}, {2}]],
Cell[429752, 12014, 85, 0, 35, "Text",ExpressionUUID->"2acff265-ee7b-4189-9a1f-a56848d8a900"],
Cell[CellGroupData[{
Cell[429862, 12018, 112, 1, 28, "Input",ExpressionUUID->"8ce11db9-5a3c-489f-a6dd-7547805df97d"],
Cell[429977, 12021, 723, 18, 46, "Output",ExpressionUUID->"3ebf7e83-0578-4fef-948a-6d358471a46f"]
}, {2}]],
Cell[430712, 12042, 486, 9, 58, "Text",ExpressionUUID->"d13b907c-6948-4bee-8ecd-8b54f425b6a6"],
Cell[CellGroupData[{
Cell[431223, 12055, 207, 5, 28, "Input",ExpressionUUID->"700e79eb-febc-405d-bf3d-31e3c0c0f12b"],
Cell[431433, 12062, 710, 16, 32, "Output",ExpressionUUID->"5b2592ea-3391-4366-8557-cc895d3b5f9e"]
}, {2}]],
Cell[432155, 12081, 98, 0, 35, "Text",ExpressionUUID->"b3c60719-c975-49bc-a3a2-7ac30dde668c"],
Cell[CellGroupData[{
Cell[432278, 12085, 111, 1, 28, "Input",ExpressionUUID->"cd8392d6-529d-42e7-93fe-67b7f452ddcc"],
Cell[432392, 12088, 708, 16, 32, "Output",ExpressionUUID->"b930cdca-30dd-4fe3-a956-1905d7c3cf34"]
}, {2}]],
Cell[433112, 12107, 122, 0, 35, "Text",ExpressionUUID->"3686d20a-be24-4816-891c-d81f463b12ba"],
Cell[CellGroupData[{
Cell[433259, 12111, 140, 3, 28, "Input",ExpressionUUID->"0c6d527c-ae47-4fee-8e6a-e66351a7d21d"],
Cell[433402, 12116, 708, 17, 46, "Output",ExpressionUUID->"f2cd56da-1cab-4242-bc10-efb52e014a11"]
}, {2}]],
Cell[CellGroupData[{
Cell[434144, 12138, 136, 3, 28, "Input",ExpressionUUID->"0f0be09a-d818-4b8b-abd4-e8ac22853514"],
Cell[434283, 12143, 698, 17, 46, "Output",ExpressionUUID->"b5b0df5b-f360-4064-be2e-3ebebb24a7a9"]
}, {2}]],
Cell[CellGroupData[{
Cell[435015, 12165, 226, 6, 28, "Input",ExpressionUUID->"35c31653-2b1b-4dec-a713-0fbcad2734ad"],
Cell[435244, 12173, 706, 17, 46, "Output",ExpressionUUID->"5521f941-a02f-41a0-aa32-7fa6dfa9fc85"]
}, {2}]],
Cell[435962, 12193, 338, 9, 35, "Text",ExpressionUUID->"99a8f710-f14b-49a9-b2c7-31d6f6f258a2"],
Cell[CellGroupData[{
Cell[436325, 12206, 203, 5, 28, "Input",ExpressionUUID->"4e771fbb-757e-4993-9156-ebf2b4d9907f"],
Cell[436531, 12213, 685, 15, 32, "Output",ExpressionUUID->"5332b3a7-b6a6-472c-bb77-f6b0ec5a62e1"]
}, {2}]],
Cell[437228, 12231, 106, 0, 35, "Text",ExpressionUUID->"5e3bde56-340a-4507-838a-db574299ddb3"],
Cell[CellGroupData[{
Cell[437359, 12235, 140, 3, 28, "Input",ExpressionUUID->"afd7cad3-ea0e-48f9-99fa-5471242fa3cc"],
Cell[437502, 12240, 695, 17, 46, "Output",ExpressionUUID->"c1a1dd75-9ac0-4f3f-9c86-0f0913b1a318"]
}, {2}]],
Cell[438209, 12260, 199, 5, 35, "Text",ExpressionUUID->"fa56d403-9c08-4b9e-adfa-9e3c447042bb"],
Cell[CellGroupData[{
Cell[438433, 12269, 207, 5, 28, "Input",ExpressionUUID->"a6a530b2-3d10-48d7-b6c5-482b3ba07db2"],
Cell[438643, 12276, 737, 17, 32, "Output",ExpressionUUID->"10e36585-046d-49ed-96ad-5025e2d1bf06"]
}, {2}]],
Cell[439392, 12296, 334, 9, 35, "Text",ExpressionUUID->"55284d6e-e8f9-4772-b292-c72de0961bf1"],
Cell[CellGroupData[{
Cell[439751, 12309, 140, 3, 28, "Input",ExpressionUUID->"517dc986-2e4a-4ce7-a188-654aafe614fa"],
Cell[439894, 12314, 704, 17, 46, "Output",ExpressionUUID->"5032c8ff-bfee-4862-92a8-a08f4acfcbfb"]
}, {2}]],
Cell[CellGroupData[{
Cell[440632, 12336, 167, 4, 28, "Input",ExpressionUUID->"97c12487-f95f-47ec-b8f6-fedcc48f90e1"],
Cell[440802, 12342, 716, 18, 46, "Output",ExpressionUUID->"847042ac-d120-4b07-ba0c-b9849737bed9"]
}, {2}]],
Cell[441530, 12363, 270, 7, 35, "Text",ExpressionUUID->"296191ec-7ae8-4506-898b-8637f45341a8"],
Cell[CellGroupData[{
Cell[441825, 12374, 148, 4, 28, "Input",ExpressionUUID->"fc9de175-9149-48b4-877e-72e225223a4a"],
Cell[441976, 12380, 717, 18, 46, "Output",ExpressionUUID->"2dccf12c-040a-4ea8-84fb-827a9e8493e6"]
}, {2}]],
Cell[442705, 12401, 216, 7, 35, "Text",ExpressionUUID->"48c28586-189c-48f6-917a-7abfa73d9c7d"],
Cell[442924, 12410, 1470, 46, 123, "Output",ExpressionUUID->"70095777-f8ce-4177-a7ad-7f088ec2b08b"],
Cell[444397, 12458, 210, 4, 35, "Text",ExpressionUUID->"9110b439-c9ab-49b7-bf16-64a63b8f567b"],
Cell[444610, 12464, 1684, 53, 145, "Output",ExpressionUUID->"e557f3a5-d2fe-4477-9569-dccb26fab9ca"],
Cell[446297, 12519, 127, 0, 35, "Text",ExpressionUUID->"044a42ec-dc7d-423b-8589-e54afcc2327b"],
Cell[CellGroupData[{
Cell[446449, 12523, 163, 3, 45, "Subsubsection",ExpressionUUID->"fba391ff-3eed-47bc-8254-029a91b3adad"],
Cell[CellGroupData[{
Cell[446637, 12530, 150, 3, 28, "Input",ExpressionUUID->"d444da59-dd7f-473a-a590-f8ef4bc6b7c9"],
Cell[446790, 12535, 766, 18, 48, "Output",ExpressionUUID->"fbb66822-3805-4c16-8e38-0990c60f0007"]
}, {2}]],
Cell[CellGroupData[{
Cell[447590, 12558, 656, 19, 43, "Input",ExpressionUUID->"16b3e350-9ce7-49a7-92dd-39568a867e35"],
Cell[448249, 12579, 447, 14, 46, "Output",ExpressionUUID->"9302716d-3663-4147-b5b3-8ae95c7f9840"]
}, Open ]],
Cell[CellGroupData[{
Cell[448733, 12598, 663, 20, 43, "Input",ExpressionUUID->"7a8646b4-4173-4247-8413-f72d63cd2503"],
Cell[449399, 12620, 445, 14, 46, "Output",ExpressionUUID->"ba2dd921-4b4d-4c98-b157-8475f0f3ec22"]
}, Open ]],
Cell[CellGroupData[{
Cell[449881, 12639, 226, 6, 28, "Input",ExpressionUUID->"0bdf62dd-652f-43f8-af90-0be253af5deb"],
Cell[450110, 12647, 727, 18, 46, "Output",ExpressionUUID->"f1c737d2-db36-4972-89f7-efe52b92bea4"]
}, {2}]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[450907, 12673, 123, 0, 67, "Section",ExpressionUUID->"42fd3a18-5b64-4146-9f21-9e1fdb56e588"],
Cell[CellGroupData[{
Cell[451055, 12677, 84, 0, 54, "Subsection",ExpressionUUID->"23c447a1-ffee-4644-974b-689360ecdfa1"],
Cell[451142, 12679, 231, 3, 35, "Text",ExpressionUUID->"d0b8d5da-126b-410a-943a-e4cf4151b8d9"],
Cell[CellGroupData[{
Cell[451398, 12686, 130, 0, 45, "Subsubsection",ExpressionUUID->"b7140422-40aa-42cf-925d-66877a9983ca"],
Cell[CellGroupData[{
Cell[451553, 12690, 3707, 106, 212, "Input",ExpressionUUID->"a186c976-faf0-4fcb-b4a4-bd295456f1db"],
Cell[455263, 12798, 3143, 91, 275, "Output",ExpressionUUID->"dbc015a5-4de0-44d5-9df6-d20e7e7ef266"]
}, {2}]]
}, Open ]],
Cell[CellGroupData[{
Cell[458452, 12895, 128, 0, 45, "Subsubsection",ExpressionUUID->"b06ef3ba-ef9d-475e-898a-4be680aec518"],
Cell[CellGroupData[{
Cell[458605, 12899, 15446, 405, 771, "Input",ExpressionUUID->"770ad071-4877-4267-85e2-770a35082b4d"],
Cell[474054, 13306, 13482, 382, 1315, "Output",ExpressionUUID->"16674733-ef48-4981-afe8-f17130c09b1d"]
}, {2}]]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)