yeah sure, I need for a mathematical puzzle. calculation times are too long and have to be stored in multiple files all combinations of trigonometric functions grouped to 5, and then restart them for further calculations.
OperLevel1 = {arcCos, arcCosh, arcCot, arcCoth, arcCsc, arcCsch, arcSec, arcSech, arcSin, arcSinh, arcTan, arcTanh, cos, cosh, cot, coth, csc, csch, expx, log, sec, sech, sin, sinh, tan, tanh};
arcCos[{i_Real, k_Integer, j_String}] := {ArcCos[i], SumLev[{k, 42}], "ArcCos(" <> j <> ")"}; arcCos[_] = {0, 0, 0};
... ... ...
SumLev[k_] := Total[k] - Total[IntegerPart[k/10]*10] + IntegerPart[Max[k]/10]*10;
MatrixResult = Flatten[Table[OperLevel1[[$x1]][MatrixResult[[$x2]]], {$x1, 1, Length[OperLevel1]}, {$x2, 1, Length[MatrixResult]}], 1];
store the values in a file, it would save additional time calculation