Generierung von Namen mit Mathematica

1

tab1 = Table[k, {k, 1, 100, 4}]

?ToString

tab2 = tab1 /. x__ ->  k x

"u" ToString[tab1[[5]]]

StringInsert["u", "5", 2]

tab3 = 
      FullForm[Table[
          ToString[tab1[[k]]], {k, 1, Length[tab1]}]]

tab3 = Table[ToString[tab1[[k]]], {k, 1, Length[tab1]}]

tab4 = 
      FullForm[Table[
          StringInsert["u", tab3[[k]], 2], {k, 1, 
            Length[tab3]}]]

tab4 = 
      Table[StringInsert["u->1", tab3[[k]], 2], {k, 1, 
          Length[tab3]}]

tab5 = 
      FullForm[Table[
          ToExpression[tab4[[k]]], {k, 1, Length[tab4]}]]

tab5 = 
      Table[ToExpression[tab4[[k]]], {k, 1, Length[tab4]}]

varGen[n_, s_, var_, wert_, varLen_] := 
        Module[{tab1, tab2, tab3, tab4, k, a, b}, 
tab1 = 
            Table[k, {k, 1, n, 4}]; 
tab2 = 
            Table[ToString[tab1[[k]]], {k, 1, 
                Length[tab1]}]; 
a = 
            ToString[var]; 
b = 
            ToString[var -> wert]; 
tab3 = 
            Table[StringInsert[a, tab2[[k]], varLen + 1], {k, 1, 
                Length[tab2]}]; 
tab4 = 
            Table[StringInsert[b, tab2[[k]], varLen + 1], {k, 1, 
                Length[tab2]}]; 
tab5 = 
            Table[ToExpression[tab3[[k]]], {k, 1, 
                Length[tab3]}]; 
tab6 = 
            Table[ToExpression[tab4[[k]]], {k, 1, 
                Length[tab4]}]; 
ausgabe = {tab5, 
              tab6}];

varGen[n_, s_, var_, wert_, varLen_] := 
        Module[{tab1, tab2, tab3, tab4, k, a, b}, 
tab1 = 
            Table[k, {k, 1, n, 4}]; 
tab2 = 
            Table[ToString[tab1[[k]]], {k, 1, 
                Length[tab1]}]; 
a = 
            ToString[var]; 
b = 
            ToString[var -> wert]; 
tab3 = 
            Table[StringInsert[a, tab2[[k]], varLen + 1], {k, 1, 
                Length[tab2]}]; 
tab4 = 
            Table[StringInsert[b, tab2[[k]], varLen + 1], {k, 1, 
                Length[tab2]}]; 
tab5 = 
            Table[ToExpression[tab3[[k]]], {k, 1, 
                Length[tab3]}]; 
tab6 = 
            Table[ToExpression[tab4[[k]]], {k, 1, 
                Length[tab4]}]; 
ausgabe = {tab5, 
              tab6}];
varGen[100, 4, u, 1, 1]

FullForm[ausgabe]

ausgabe