Recent content by shei7141

Hi, can any of you please explain what does NCCH command do in Fortran I have following situation: if (FLA . GT . 2 *(FLB+NDIA) Go To 250 . . . . 250 NCCH = "2 "

OMG! you both literally saved my life... I am really very thankful THANK YOU THANK YOU THANK YOU THANK YOU........KINDEST EVER REGARDS

no need to apologize I am really very thankful for your time and everything Kindest regards

oh i only mentioned my gender cos you said sir/ madam... i didn't mean any wrong... Apology for any inconvenience

thank you very for all your help... I am really really thankful for all your assistance... I am going to try this now and hope will get the right answers... Once again thanks

btw I am a female .. this is the entire code... to calculate the bar length of a F shaped steel bar... there are 99 other codes like these for other types of the shapes but they are similar. so somehow if we figure this code out, will mean all sorted ... the only place I see Do loop is...

please help . . .. i don't understand this... all of my work is waiting at this bugger

and i am trying to understand what does Do loop is changing in entire process

i have tried pi/6 and which results in FLE = 545 but program is resulting in 555. This diffirence is likely due to this iteration

Fflc=flc angle=pi/6 !suppose 30 degrees do 21800 i=1,5 flc=fflc-cos(angle)*ndia fle=sqrt(flb*flb+flc*flc) 21800 angle =atan2(flc,flb) if(r.ne.0) d=r/2+ndia/2 flcut=fla+fle-2*(d+ndia/2)*tan(angle/2)+d*angle le=ifix(fle) return where fla = 1865 flb = 145 flc540 r=80 ndia=16 fle...

Fflc=flc angle=pi/6 !suppose 30 degrees do 21800 i=1,5 flc=fflc-cos(angle)*ndia fle=sqrt(flb*flb+flc*flc) 21800 angle =atan2(flc,flb) if(r.ne.0) d=r/2+ndia/2 flcut=fla+fle-2*(d+ndia/2)*tan(angle/2)+d*angle le=ifix(fle) return where fla = 1865 flb = 145 flc540 r=80 ndia=16 fle should have been...

thanks mate, in above equation, I understand that the iteration required to refine the angle. it is starting with 30 degrees angle and iterating it (which I don't understand how)... could you provide me a break down of iteration. I am totally new with fortran. I'll appreciate if you could take...

Can some1 kindly help me understand the following code, I am trying to translate the following code in VBA: Thanks in advance FFLC = FLC ...i understand this part ANGLE=PI/6 !Suppose 30 Degrees ...i understand this part Do 21800 I=i,5 ...Don't understand this FLC=FFLC-COS(ANGLE)*NDIA...