User Portlet User Portlet

Discussions
Vielen Dank Henrik for the tip and coding style suggestions, that was indeed the function I wanted: Y1[n] = BooleanConvert[ If[If[Y[n - 2], If[Y[n - 3], a[n - 1], b[n - 1]], If[Y[n - 3], c[n - 1], d[n - 1]]], If[Y[n - 2], a[n], b[n]], If[Y[n...