!   intf_tol.mac
!
mod_assemb_prep
view,'f'
!
I_r_min=0.001
I_r_max=0.002
!Nf=4.4260/2
Nm=4.4285/2
!
a=0.0002
!b=0.0002
!
*if,a,eq,0,then
    *if,b,eq,0,then
        a=(I_r_max-I_r_min)/4
        b=a
    *else
        a=((I_r_max-I_r_min)/2)-b
    *endif
*else
    *if,b,eq,0,then
        b=((I_r_max-I_r_min)/2)-a
    *endif
*endif
!
*if,Nf,eq,0,then
    Nf=-(I_r_min+a+b-Nm)
*else
    Nm=I_r_min+a+b+Nf
*endif
!
csys,0
!
k,,Nf,5.1*(Nm-Nf),0
k,,Nf,6*(Nm-Nf),0
!
k,,Nm,4.9*(Nm-Nf),0
k,,Nm,4*(Nm-Nf),0
!
k,,Nf-a,5.1*(Nm-Nf),0
k,,Nf-a,5.5*(Nm-Nf),0
k,,Nf+a,5.1*(Nm-Nf),0
k,,Nf+a,5.5*(Nm-Nf),0
!
k,,Nm-b,4.9*(Nm-Nf),0
k,,Nm-b,4.5*(Nm-Nf),0
k,,Nm+b,4.9*(Nm-Nf),0
k,,Nm+b,4.5*(Nm-Nf),0
!
k,,Nf-a,5.05*(Nm-Nf),0
k,,Nm+b,5.05*(Nm-Nf),0
!
k,,Nf+a,4.95*(Nm-Nf),0
k,,Nf+a+I_r_min,4.95*(Nm-Nf),0
!
k,,0,5*(Nm-Nf),0
k,,Nf-a,5*(Nm-Nf),0
!
k,,Nf-a,5*(Nm-Nf),0
k,,Nm+b,5*(Nm-Nf),0
!
Dnf=2*Nf
Dnm=2*Nm
!
tol_f=a
tol_m=b
!
*msg,ui,%tol_f%,%Dnf%,%tol_m%,%Dnm%
Female tolerance (tol_f) = %g  ,  Female Nominal Diameter = %g&
Male tolerance (tol_m) = %g  ,  Male Nominal Diameter = %g
!
ln_series
!
lplot