Imed

2004-10-28, 06:06

I want to write a constitutive law of an AISI material,

I found all necessary Data in Bibliography; the constitutive law is as follows:

********* n***** m

S=S0.(E/E0).(ER/ER0).F(T*)

////////////////////////////////////////////////

Where

S=Stress

E=Strain

ER=Strain rate

S0, E0, ER0 are given reference values

m,n given coefficients (Exposants)

TEMP=Temperature

And

T*=TEMP/Melting TEMP

This is defined as:

F(T*)= -1,23.T*²+1,27 for TEMP<=600C

/////////////////3

F(T*)=72,3.T* -137,5.T*² +80,4.T*-13,9 for 600<TEMP<=900C

Some properties are temperature dependant,

1. Thermal conductivity: Kp=53,56-0,00266.T W/m/øC

2. Specific Heat: Cp=398,8+0,8273.T²-0,00055.T J/Kg/øC

3. Thermal expansion coefficient: 1,6E-5 m/møC

4. Young's modulus 75 GPa

5. Poisson's Ratio 0,3

6. Density: 7882 kg/m3

/////////////////////////////////////////////////////////////////

My main objective is to write a subroutine that considers all above data, Can any one help me to do this?and what are the necessary options. I am using the ABAQUS/Standard 6.3 version. If any one has a similar subroutine, please send it. With lot of thanks

I found all necessary Data in Bibliography; the constitutive law is as follows:

********* n***** m

S=S0.(E/E0).(ER/ER0).F(T*)

////////////////////////////////////////////////

Where

S=Stress

E=Strain

ER=Strain rate

S0, E0, ER0 are given reference values

m,n given coefficients (Exposants)

TEMP=Temperature

And

T*=TEMP/Melting TEMP

This is defined as:

F(T*)= -1,23.T*²+1,27 for TEMP<=600C

/////////////////3

F(T*)=72,3.T* -137,5.T*² +80,4.T*-13,9 for 600<TEMP<=900C

Some properties are temperature dependant,

1. Thermal conductivity: Kp=53,56-0,00266.T W/m/øC

2. Specific Heat: Cp=398,8+0,8273.T²-0,00055.T J/Kg/øC

3. Thermal expansion coefficient: 1,6E-5 m/møC

4. Young's modulus 75 GPa

5. Poisson's Ratio 0,3

6. Density: 7882 kg/m3

/////////////////////////////////////////////////////////////////

My main objective is to write a subroutine that considers all above data, Can any one help me to do this?and what are the necessary options. I am using the ABAQUS/Standard 6.3 version. If any one has a similar subroutine, please send it. With lot of thanks