سابروتین نویسی در ABAQUS
- شروع کننده موضوع mrnd67
- تاریخ شروع
با سلام به کاربر آباکوس گرامی iranika
در این جا توضسح مختصری از کارهایی که با سابروتین میشه کزد رو توضیح میدم
dload= از این سابروتین برای نوشتن یه بارگذاری که وابسته به مختصات یا زمان یا حل است استفاده میشه.
dflux= از این سابروتین برای شبیه سازی جوشکاری استفاده میشه
umat= از این سابروتین برای تعریف ماده ای با خواص دلخواه استفاده میشه به طور مثال اف جی ام که در یک جهت (x) مدول یانگ تغییر کنه
utemp= از این سابروتین برای تعریف دما در نقط خاص یا زمان خاص توسط کاربر استفاده میشه
creep= از این سابروتین برای تعریف رفتار خزش خاص استفاده میشه
UAMP=..
usdfld=...
و...
در کل برای تعریف رفتار یا بار گذاری و خروجی یا ورودی های خاص از سابروتین استفاده می کنند.
سلام
اول باید اون دو نرم افزار رو نصب کنی. بعد باید با آباکوس لینک کنی که اونم خواهم گفت. کد نویسی هم که باید بدونی. در آخری میری مدلسازی می کنی و آدرس فایل سابروتینی که نوشتی رو میدی و فایلت رو تو آباکوس اجرا می کنی.
سلام
یه مشکل دارم نمیتونم رو لپ تاپم فرترن نصب کنم همش خطا میده
ویندوزم7 به این خاطره؟؟؟؟؟
آخرین ویرایش:
آخرین ویرایش:
حمیدرضا آذرشب
عضو جدید
دوستان عزیز البته نا گفته نمونه که سابروتین نویسی همچین هم کار ساده ای نیستش. ولی بایکم تمرین میشه اون سابروتینی که مدنظر دارید رو یاد بگیرید. البته حتی الامکان برای سادگی کار سعی کنید از ویژگی های ساده ی نرم افزار برای حل مسائلتون استفاده کنید.
من برای شما یه جزوه خوب سابروتین میذارم. ولی برای یادگرفتنش باید واقعا یه استادی بالا سرتون باشه که کارش آباکوس باشه و سابروتین نویسی رو کامل بلد باشه تا بتونه ایراداتون رو به شما بگه.
بعضی وقتا اگر پول بدید یکی براتون سابروتین بنویسه بسیار به صرفه تره. البته اگر وقت کافی ندارید. شاید یه سابروتین ساده ی DLOAD بعضی وقتا اگر بلد نباشید یک ماه طول بکشه. ولی اگر یکی باشه که بهتون بتونه راهنمایی کنه این کار یک روز طول میکشه
من برای شما یه جزوه خوب سابروتین میذارم. ولی برای یادگرفتنش باید واقعا یه استادی بالا سرتون باشه که کارش آباکوس باشه و سابروتین نویسی رو کامل بلد باشه تا بتونه ایراداتون رو به شما بگه.
بعضی وقتا اگر پول بدید یکی براتون سابروتین بنویسه بسیار به صرفه تره. البته اگر وقت کافی ندارید. شاید یه سابروتین ساده ی DLOAD بعضی وقتا اگر بلد نباشید یک ماه طول بکشه. ولی اگر یکی باشه که بهتون بتونه راهنمایی کنه این کار یک روز طول میکشه
mohammad hadi er
عضو جدید
mehranboli
عضو جدید
سلام. شما تدریس هم میکنید؟ من باید متریالمو با سابروتین تعریف کنم، خیلی مبتدی هستم تو این کار. اگه میشه راهنماییم کنید
c*********************************************************************72
subroutine vdisp(
c Read only variables -
1 nblock, nDof, nCoord, kstep, kinc,
2 stepTime, totalTime, dtNext, dt,
3 cbname, jBCType, jDof, jNodeUid, amp,
4 coordNp, u, v, a, rf, rmass, rotaryI,
c Write only variable -
5 rval )
c
include 'vaba_param.inc'
parameter( zero = 0.d0 )
c
character*80 cbname
dimension jDof(nDof), jNodeUid(nblock),
1 amp(nblock), coordNp(nCoord,nblock),
2 u(nDof,nblock), v(nDof,nblock), a(nDof,nblock),
3 rf(nDof,nblock), rmass(nblock), rotaryI(3,3,nblock),
4 rval(nDof,nblock)
c
if( jBCType .eq. 0 ) then
do 100 k = 1,nblock
if(stepTime.lt.zero)then
rval(1,k)=0.0
rval(2,k)=0.0
c
elseif(stepTime.ge.zero.and.stepTime.le.0.1)then
f=15.70796327
r=0.025/0.1
q=0.1-stepTime
t=stepTime+0.1/59.0
b=8E-3/0.1
rval(1,k)=r*(0.1-t)*cos(f*t)-r*q*cos(f*stepTime)+rval(1,k)
rval(2,k)=r*(-0.1+t)*sin(f*t)+r*q*sin(f*stepTime)+rval(2,k)
rval(3,k)=-b*stepTime
else
c
rval(1,k)=0.0
rval(2,k)=0.0
rval(3,k)=(0.01*stepTime)/0.2
end if
100 continue
end if
rval(2,k که بعد از مساوی قرار دارد را به حساب نمی آورد...این سابروتین برای حرکت حلزونی میله ابزار برای فرم دهی نموی نوشتم...
subroutine vdisp(
c Read only variables -
1 nblock, nDof, nCoord, kstep, kinc,
2 stepTime, totalTime, dtNext, dt,
3 cbname, jBCType, jDof, jNodeUid, amp,
4 coordNp, u, v, a, rf, rmass, rotaryI,
c Write only variable -
5 rval )
c
include 'vaba_param.inc'
parameter( zero = 0.d0 )
c
character*80 cbname
dimension jDof(nDof), jNodeUid(nblock),
1 amp(nblock), coordNp(nCoord,nblock),
2 u(nDof,nblock), v(nDof,nblock), a(nDof,nblock),
3 rf(nDof,nblock), rmass(nblock), rotaryI(3,3,nblock),
4 rval(nDof,nblock)
c
if( jBCType .eq. 0 ) then
do 100 k = 1,nblock
if(stepTime.lt.zero)then
rval(1,k)=0.0
rval(2,k)=0.0
c
elseif(stepTime.ge.zero.and.stepTime.le.0.1)then
f=15.70796327
r=0.025/0.1
q=0.1-stepTime
t=stepTime+0.1/59.0
b=8E-3/0.1
rval(1,k)=r*(0.1-t)*cos(f*t)-r*q*cos(f*stepTime)+rval(1,k)
rval(2,k)=r*(-0.1+t)*sin(f*t)+r*q*sin(f*stepTime)+rval(2,k)
rval(3,k)=-b*stepTime
else
c
rval(1,k)=0.0
rval(2,k)=0.0
rval(3,k)=(0.01*stepTime)/0.2
end if
100 continue
end if
rval(2,k که بعد از مساوی قرار دارد را به حساب نمی آورد...این سابروتین برای حرکت حلزونی میله ابزار برای فرم دهی نموی نوشتم...
سلام بچه ها من تازه دارم سابروتینو یاد میگیرم
abaqus 6.13
visual studio 2008 فول نصب کردم
intel.visual.fortran.compiler.v10.1.030 هم نصب کردم
وقتی از منوی
start>abaqus 6.13 > abaqus verifications
را میزنی یک فایل log سیو میکنه که توش
Abaqus/Standard with user subroutines
...PASS
و
Abaqus/Explicit (single precision)
...PASS
Continuing...
-----------------------------------------------------------------------------
Abaqus/Explicit (double precision)
...PASS
Continuing...
-----------------------------------------------------------------------------
Abaqus/Explicit with user subroutines (single precision)
...ERROR
Abaqus did not complete successfully.
Please see xpl_user_sp.log for details.
Continuing...
-----------------------------------------------------------------------------
Abaqus/Explicit with user subroutines (double precision)
...ERROR
Abaqus did not complete successfully.
Please see xpl_user_dp.log for details.
Continuing...
دلیلش چی میتونه باشه
abaqus 6.13
visual studio 2008 فول نصب کردم
intel.visual.fortran.compiler.v10.1.030 هم نصب کردم
وقتی از منوی
start>abaqus 6.13 > abaqus verifications
را میزنی یک فایل log سیو میکنه که توش
Abaqus/Standard with user subroutines
...PASS
و
Abaqus/Explicit (single precision)
...PASS
Continuing...
-----------------------------------------------------------------------------
Abaqus/Explicit (double precision)
...PASS
Continuing...
-----------------------------------------------------------------------------
Abaqus/Explicit with user subroutines (single precision)
...ERROR
Abaqus did not complete successfully.
Please see xpl_user_sp.log for details.
Continuing...
-----------------------------------------------------------------------------
Abaqus/Explicit with user subroutines (double precision)
...ERROR
Abaqus did not complete successfully.
Please see xpl_user_dp.log for details.
Continuing...
دلیلش چی میتونه باشه
با سلام به همگی ، من میخوام تو آباکوس 6.12 از طریق ماژول بهینه سازی ، یک تیر را بهینه سازی کنم . در قسمت تعریف پاسخ طراحی (creat design response) نمیتونم اون چیزی که مد نظرم هست رو تعریف کنم ، میخواستم بدونم میشه با سابروتین نویسی مشکلم حل بشه یا نه؟ کسی رو هم نمیشناسم که تومشهد یاد داشته باشه و بتونه بهم کمک کنه ، اگر کسی و میشناسین ممنون میشم بهم معرفی کنین ، هزینش رو هم پرداخت میکنم. ممنون میشم کمکم کنید
آخرین ویرایش:
با درود خدمت همه عزیزان و اساتید
میخواستم بپرسم برای #abaqus2018 و #abaqus2019 چه ورژنی از #fortran و #visual studio باید نصب بشه؟
آیا میشه از #pgi_fortran استفاده کرد ؟ یا حتما باید از #intel_parallel_studio استفاده بشه؟
من #pgi_fortran_13.9 رو با #microsoft_visual_studio_2012 لینک کردم ولی این دو با #abaqus_2018 و #abaqus_2019 لینک نمیشن.
ممنون میشم راهنمایی بفرمایید.
میخواستم بپرسم برای #abaqus2018 و #abaqus2019 چه ورژنی از #fortran و #visual studio باید نصب بشه؟
آیا میشه از #pgi_fortran استفاده کرد ؟ یا حتما باید از #intel_parallel_studio استفاده بشه؟
من #pgi_fortran_13.9 رو با #microsoft_visual_studio_2012 لینک کردم ولی این دو با #abaqus_2018 و #abaqus_2019 لینک نمیشن.
ممنون میشم راهنمایی بفرمایید.
Similar threads
Similar threads
-
-
-
آموزش برنامه نویسی فرز cnc با کنترل فانوک بصورت برنامه موبایل نسخه جاوا به زبان فارسي
- شروع شده توسط mosivand
- پاسخ ها: 2
-
-