0

I am solving a partial differential equation for heat-transport on a rectangular domain of width W and length L with fluid flow.

$$ v_{max}\bigg(1-\bigg(\frac{x-W/2}{W/2}\bigg)^2\bigg) \frac{\partial T(x,y)}{\partial y} = \alpha \bigg[\frac{\partial^2}{\partial x^2}T(x,y)+\frac{\partial^2}{\partial y^2}T(x,y)\bigg]+Q$$.

The code for the equation is here:

Subscript[v, max] (1 - ((x - W/2)/(W/2))^2) Inactive[Grad][T[x, y], y] == \[Alpha] (Inactive[Laplacian][T[x, y], x] + Inactive[Laplacian][T[x, y], y]) + Q

enter image description here

I want to impose a flux condition on one of the walls without using a NeumannValue function. Basically I want the following the following boundary condition:

$ -k\frac{\partial T}{\partial x} = q$ when ${x,y} \in Line[\{W,0\},\{W,L\}]$

I do not want to use the following piece of code so as to avoid the complications with the definition of NeumannValue with velocities.

NeumannValue[q, {x, y} \[Element] Line[{{W, 0}, {W, L}}]]

My question is whether I can write the boundary condition on the left-hand side without NeumannValue. Can I write the flux BC on a line using Derivative or D?

I understand it can be done for one variable (e.g. D[T[x],x]/.x->0 == q). How to do this for a line, where $(x,y) \in Line[\{W,0\},\{W,L\}]$?

xzczd
  • 65,995
  • 9
  • 163
  • 468
  • 1
    Please post the equation by Mathematica code. – cvgmt Aug 24 '22 at 02:15
  • Are you looking for numeric or analytic solution? If the former, what's the value of Subscript[v, max]? What's the b.c.s at the other 3 boundaries? Please clarify. – xzczd Aug 24 '22 at 03:47
  • I am looking for a numerical solution. My only question is if I can write the boundary condition on the left-hand side without NeumannValue. Can I write the flux BC on a line using Derivative or D. I think it can be done for one variable (like D[T[x],x]/.x->0 == q). How to do this for a line? – Brownian_Motion Aug 24 '22 at 03:52
  • OK, then this is a duplicate. – xzczd Aug 24 '22 at 03:53

0 Answers0