How to write a function in the divide-and-conquer style [closed]

Question

I'd like to vary a factor in a matrix calculation, so I have used Module to make it happened, but it doesn't work. Below is a code example. can someone tell me how to fix it? It would be appreciated.

polardata[omega_] := 
  Module[{},
    matrix = Flatten[RandomReal[0.5, {1, 6}], 1];
    intermediate = omega*matrix;
    addition = Flatten[RandomReal[0.5, {1, 6}], 1];
    polardata = Join[intermediate, addition]]

Manipulate[
 ListPolarPlot[polardata[omega], DataRange -> {0, 2 π}, 
   Joined -> True], 
 {omega, 0.1, 1.0}]

Answer 1

If you are going to use a programming style that breaks down a procedure into several named steps (and I often use this style myself), then use Module properly and localize the names. Further, return the result, do not assign it to the procedure name.

With a few changes along the lines mentioned above, your code will work.

 polardata[omega_] :=
   Module[{matrix, intermediate, addition}, 
     matrix = Flatten[RandomReal[0.5, {1, 6}], 1];
     intermediate = omega*matrix;
     addition = Flatten[RandomReal[0.5, {1, 6}], 1];
     Join[intermediate, addition]]

Manipulate[
  ListPolarPlot[polardata[omega], DataRange -> {0, 2 π}, Joined -> True],
  {omega, 0.1, 1.0}]