In[]:=
SetDirectory["G:/My Drive/Triangle/Summary"]
Out[]=
G:\My Drive\Triangle\Summary
In[]:=
de=Import["Euclidean.m"];
In[]:=
dE[t_]=de
Set
:Tag Piecewise in
-
64t(-45
3
π+270t+135
3
π
2
t
-20(31+Times[2])
3
t
+405
4
t
+96
5
t
-60
6
t
)
1215
0<t≤
1
2
64t34-540t+795
2
t
-380
3
t
+360
3
3
t
-45
4
t
+96
5
t
-20
6
t
+
45
Plus[2]
t
Plus[2]
+
135
Plus[2]
3
t
Plus[2]
+
120
3
Plus[2]
-
555
3
2
t
Plus[2]
-
960
3
4
t
Plus[2]
-90
3
(-1+Times[2])ArcCsc[Times[2]]+90
3
(2+Times[2])ArcSec[Times[2]]
1215
1
2
<t≤
3
2
4
2
t
29+2880
Plus[2]
t
1
Plus[2]
ArcSec[Times[2]]+4320
Plus[2]
3
t
Plus[2]
Plus[2]
ArcSec[Times[2]]
1215
-3+4Power[2]
(-1+4Power[2])Abs[t]
t>
3
2
0
True
[t_] is Protected.
Out[]=
-
64t(-45
3
π+270t+135
3
π
2
t
-20(31+18
3
)
3
t
+405
4
t
+96
5
t
-60
6
t
)
1215
0<t≤
1
2
64t34-540t+795
2
t
-380
3
t
+360
3
3
t
-45
4
t
+96
5
t
-20
6
t
+
45
12-
3
2
t
t
-1+4
2
t
+
135
12-
3
2
t
3
t
-1+4
2
t
+
120
3
-1+4
2
t
-
555
3
2
t
-1+4
2
t
-
960
3
4
t
-1+4
2
t
-90
3
(-1+3
2
t
)ArcCsc[2t]+90
3
(2+3
2
t
)ArcSec[2t]
1215
1
2
<t≤
3
2
1
1215
-3+4
2
t
(-1+4
2
t
)Abs[t]
4
2
t
1920
12-
3
2
t
t
-3+4
2
t
-8880
12-
3
2
t
3
t
-3+4
2
t
-15360
12-
3
2
t
5
t
-3+4
2
t
-1656
4-
1
2
t
t
-1+4
2
t
+15864
4-
1
2
t
3
t
-1+4
2
t
-20992
4-
1
2
t
5
t
-1+4
2
t
+3072
4-
1
2
t
7
t
-1+4
2
t
+139
4-
1
2
t
t
-3+4
2
t
-1+4
2
t
-8640
4-
1
2
t
2
t
-3+4
2
t
-1+4
2
t
+17580
4-
1
2
t
3
t
-3+4
2
t
-1+4
2
t
-6080
4-
1
2
t
4
t
-3+4
2
t
-1+4
2
t
+5760
4-
1
2
t
5
t
-3+4
2
t
-1+4
2
t
+1536
4-
1
2
t
6
t
-3+4
2
t
-1+4
2
t
-1280
4-
1
2
t
7
t
-3+4
2
t
-1+4
2
t
-2160(-1+4
2
t
)+3240
2
t
(-1+4
2
t
)+720
-1+4
2
t
-9+12
2
t
+2160
2
t
-1+4
2
t
-9+12
2
t
-1440
12-
3
2
t
t(-1+3
2
t
)
-3+4
2
t
-1+4
2
t
ArcCsc[2t]+1440
12-
3
2
t
t(-1+3
2
t
)
-3+4
2
t
-1+4
2
t
ArcCsc
2t
-3+4
2
t
+2880
12-
3
2
t
t
-3+4
2
t
-1+4
2
t
ArcSec[2t]+4320
12-
3
2
t
3
t
-3+4
2
t
-1+4
2
t
ArcSec[2t]
t>
3
2
0
True
In[]:=
Plot[dE[t],{t,0,2}]
Out[]=
0.5
1.0
1.5
2.0
-1.0
-0.5
0.5
1.0