[Sadia Khan]

Computational Domain Vθ = 0
Inlet Vr = 0
Vz = 0.265(1 - (r/R)2)
(parabolic velocity profile)
Symmetry Line Vr = 0
Wall-blood interface Vz = 0 (no-slip condition)
Vr = 0 (non-porous wall)


diameter of the artery = 3 mm
https://biomedical-engineering-onlin.../1475-925X-8-8
i need the udf of this paper,

[zobekenobe]

#include "udf.h"

DEFINE_PROFILE(inlet_velocity, ft, ind)
{
    face_t f;
    real pos[ND_ND];
    real R = 3;
    real V;
    real centre = 0.0;

    begin_f_loop(f, ft)
    {
        F_CENTROID(pos,f,ft);
        V = 0.265*(1-2*(fabs(pos[1]-centre)/R));
        F_PROFILE(f,ft,ind) = V;
    }
    end_f_loop(f,ft)
}