my file only displays small pictures .nb without graphics

Questions
1

Once I finish writing my function, and save my file, wolfram stores with only pictures, unable to display the graph.

2

Your attached file is basically empty. Why not put your code in your main message so we can see what you tried to do?

3

Here my code, I put 3 codes, as follow:

first one:

h [z_] := !(*
TagBox[GridBox[{
{“[Piecewise]”, GridBox[{
{
RowBox[{
RowBox[{“-”,
RowBox[{“(”,
RowBox[{“z”, “+”, “1”}], “)”}]}], “/”, “2”}],
RowBox[{“z”, “<”,
RowBox[{“-”, “1”}]}]},
{
RowBox[{“1”, “-”,
SuperscriptBox[“z”, “2”]}],
RowBox[{
RowBox[{“-”, “1”}], “<=”, “z”, “<=”, " “, “2”, " “}]},
{
RowBox[{
RowBox[{
RowBox[{”-”, “3”}], “z”}], “+”, “9”}],
RowBox[{“2”, “<”, “z”}]}
},
AllowedDimensions->{2, Automatic},
Editable->True,
GridBoxAlignment->{
“Columns” → {{Left}}, “ColumnsIndexed” → {},
“Rows” → {{Baseline}}, “RowsIndexed” → {}, “Items” → {},
“ItemsIndexed” → {}},
GridBoxItemSize->{
“Columns” → {{Automatic}}, “ColumnsIndexed” → {},
“Rows” → {{1.}}, “RowsIndexed” → {}, “Items” → {},
“ItemsIndexed” → {}},
GridBoxSpacings->{“Columns” → {
Offset[0.27999999999999997], { Offset[0.84]}, Offset[0.27999999999999997]}, “ColumnsIndexed” → {}, “Rows” → {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, “RowsIndexed” → {}, “Items” → {},
“ItemsIndexed” → {}},
Selectable->True]}
},
GridBoxAlignment->{
“Columns” → {{Left}}, “ColumnsIndexed” → {},
“Rows” → {{Baseline}}, “RowsIndexed” → {}, “Items” → {},
“ItemsIndexed” → {}},
GridBoxItemSize->{
“Columns” → {{Automatic}}, “ColumnsIndexed” → {},
“Rows” → {{1.}}, “RowsIndexed” → {}, “Items” → {},
“ItemsIndexed” → {}},
GridBoxSpacings->{“Columns” → {
Offset[0.27999999999999997], { Offset[0.35]}, Offset[0.27999999999999997]}, “ColumnsIndexed” → {}, “Rows” → {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, “RowsIndexed” → {}, “Items” → {},
“ItemsIndexed” → {}}],
“Piecewise”,
DeleteWithContents->True,
Editable->False,
SelectWithContents->True,
Selectable->False])
Plot[h[z], {z, -2, 2}, PlotStyle → {Orange, Darker},
AspectRatio → 1/2]

other in the same file:

s [t_] := (3 - 5 t)/(4 t + 1)
r = InverseFunction [s]
Plot [{s [t], r[t]}, {t, -6, 6},
PlotStyle → {Magenta, Dashed, Dashed},
PlotLegends → “Expressions” ]

other in the same file:

Plot[Sin [r], {r, -Pi/3, Pi/3},
PlotLegends → "ExpPlotRange{{-Pi/3,Pi/3},{-4,4}}]

Thanks in advance for you help, I don´t why my file is empy after save it!

Regards,