I’m trying to save the notebook as PDF with working. I tried all methods in old threads but nothing works.
Does anyone know how to make this work?
(version 12.0.0.0, windows 64-bit)
SetOptions(
SelectedNotebook(),
PrintingStyleEnvironment -> "Printout", ShowSyntaxStyles -> True)
f(a_, b_, d_) := (a + b)/(a - b) d;
tup1 = Tuples@{{1, 0, 0, 1}, {2, 1, 0, 3}};
Quiet@Check(
t = Plot({f(##, d), 1}, {d, 0, 1}, ImageSize -> 1000,
PlotLabel -> Style(StringForm("a= `` b= ``", ##))); t,
Nothing()) & @@@ tup1 // Flatten //
Partition(#, 2, 2, {1, 1}, {}) & // Grid