Mathematica Mathematica : Pulling inputs from a function; methodology question.

[Hepth]

I have a heaviside function:

HeavisideTheta[a,b,c,d,e,...]

where the letters correspond to functions, and the number of functions is arbitrary.

I want to make a replacement so that

HeavisideTheta[a_]:> If[a>0,1,0]
HeavisideTheta[a_,b_]:>If[a>0,1,0] If[b>0,1,0]

or something similar.
I wish to take the inputs to the heaviside function, and create an "If" statement out of them.

So if I have a function that contains this HeavisideTheta, I can do a replacement as:

F[x,y]/.{HeavisideTheta[a__]:> Product[If[a[[i]]>0,1,0],{i,1,Length[a]}]

(though that obviously won't work)Any suggestions?

 

[PeroK]

Any suggestions?

You could tidy up your post so that it's readable!

 

[Hepth]

You could tidy up your post so that it's readable!

Is that any better?

 

[Hepth]

I solved it, you use the sequence inside of a bracket to make it an array:

HeavisideTheta[a, b, c] /. {HeavisideTheta[a__] :> Product[If[{a}[[i]] > 0, 1, 0], {i, 1, Length[{a}]}]}

gives

If[a > 0, 1, 0] If[b > 0, 1, 0] If[c > 0, 1, 0]