I define tables of symbolic variables in the following form (for convenience)

`X = Table[Symbol["x" <> ToString[i]], {i, 1, num}]; Y = Table[Symbol["y" <> ToString[j]], {j, 1, num}]; `

And after that, in cycles, I create some expressions. For example, here is one of them

`Expon := Exp[ - ((X[[1]] * Y[[1]]) / 4) ]; For[i = 2, i <= num, i++, Expon = Expon * Exp[ - ((X[[i]] * Y[[i]]) / 4)] ] `

After that, I want to act by some differential operator on my symbolic expression (let’s call it $ \Psi$ ) and substitute in the final expression some tables of numbers X1 and Y1 (here they are not symbolic, but filled by real numbers). I tried to use ReplaceAll ./ command, but it didn’t work. Could you tell me please, how can I substitute two or more tables of real numbers in symbolic expression? Long story short, how to calculate something like $ \Psi(X1, Y1)$ ?