دورات هندسية

 

 

عاجل ......عندي تسليم مهم واطلب المساعده

النتائج 1 إلى 4 من 4
  1. [1]
    غاده 2008
    غاده 2008 غير متواجد حالياً

    عضو

    تاريخ التسجيل: Nov 2008
    المشاركات: 31
    Thumbs Up
    Received: 0
    Given: 0

    عاجل ......عندي تسليم مهم واطلب المساعده

    لدي برنامج مكتوب بلغة الفورتران وارغب بتحويله الى الماتلاب لان حاولت كثير والتسليم غدا


    C BACKWATER CURVES VARIABLE STEP METHOD
    DIMENSION H(50),V(50),DX(50)
    READ(5,1)CMAN,Q,SO,IMAX
    FORMAT(3F7.0,I4)
    READ(5,2)H(1),H(IMAX)
    FORMAT(2F7.0)
    IMAX1=IMAX-1
    DO 3 I=1,IMAX
    H(I)=H(1)+(H(IMAX)-H(1))*(I-1)/IMAX1
    V(I)=Q/H(I)/B
    DO 4 I=1,IMAX1
    HH =(H(I)+H(I+1))/2.
    A=B*HH
    P=2.*HH+B
    R=A/P
    SF=Q**2/CMAN**2/R**1.333/A**2
    DX(I)=(H(I+1)+V(I+1)**2/2./9.81- H(I)-
    1 V(I)**2/2./9.81)/(SO - SF)
    SUM=0.
    DO 5 I=1,IMAX1
    SUM=SUM+DX(I)
    WRITE(6,6)SUM
    FORMAT(F10.2)
    WRITE(6.7)(DX(I),i=1,IMAX1)
    FORMAT(10F10.2)
    STOP
    END


  2. [2]
    غاده 2008
    غاده 2008 غير متواجد حالياً
    عضو


    تاريخ التسجيل: Nov 2008
    المشاركات: 31
    Thumbs Up
    Received: 0
    Given: 0
    ارغب بمعرفة الاساسيات

    0 Not allowed!



  3. [3]
    ahmedmecha
    ahmedmecha غير متواجد حالياً
    عضو متميز
    الصورة الرمزية ahmedmecha


    تاريخ التسجيل: Oct 2006
    المشاركات: 365
    Thumbs Up
    Received: 5
    Given: 0
    السلام عليكم

    إني آسف جدا بصراحة حاولت المساعدة قدر الامكان وبحثت في الانترنت لكن لايوجد إيعاز في الماتلاب لقراءة كود الفورتران ... وجدت مايسمى تكوين ملف Mex ولكن أعتقد أن برنامجك صغير ولايحتاج لهذا الشيء.
    ببساطة أكتبي نفس البرنامج في الماتلاب وماتحتاجين اليه هو فقط الايعازات وللاسف ليست لدي أدنى معرفة بالفورتران لكن سأحاول كتابة كود مشابه في الماتلاب إنتظريني

    0 Not allowed!


    Imagination is more important than knowledge


  4. [4]
    ahmedmecha
    ahmedmecha غير متواجد حالياً
    عضو متميز
    الصورة الرمزية ahmedmecha


    تاريخ التسجيل: Oct 2006
    المشاركات: 365
    Thumbs Up
    Received: 5
    Given: 0
    C BACKWATER CURVES VARIABLE STEP METHOD
    %
    BACKWATER CURVES VARIABLE STEP METHOD
    DIMENSION H(50),V(50),DX(50)
    Not necessary to reserve parts of the memoryin advanced in Matlab
    READ(5,1)CMAN,Q,SO,IMAX
    Use this function:
    CM = input('CM= ') for example to input value of variable called CM
    FORMAT(3F7.0,I4)
    format compact, format short and there are many other formats !!
    READ(5,2)H(1),H(IMAX)
    mentioned before
    FORMAT(2F7.0)
    mentioned before
    IMAX1=IMAX-1
    IMAX1=IMAX-1;
    DO 3 I=1,IMAX
    for I=1:IMAX
    H(I)=H(1)+(H(IMAX)-H(1))*(I-1)/IMAX1
    H(I)=H(1)+(H(IMAX)-H(1))*(I-1)/IMAX1;
    V(I)=Q/H(I)/B
    V(I)=Q/H(I)/B;
    DO 4 I=1,IMAX1
    mentioned before
    HH =(H(I)+H(I+1))/2.
    HH =(H(I)+H(I+1))/2;
    A=B*HH
    P=2.*HH+B
    R=A/P
    A=B*HH;
    P=2.*HH+B;
    R=A/P
    ;

    SF=Q**2/CMAN**2/R**1.333/A**2
    the power in Matlab is ^ instead of **
    DX(I)=(H(I+1)+V(I+1)**2/2./9.81- H(I)-
    1 V(I)**2/2./9.81)/(SO - SF)
    SUM=0.
    above remain the same also
    DO 5 I=1,IMAX1
    mentioned before
    SUM=SUM+DX(I)
    SUM=SUM+DX(I);
    WRITE(6,6)SUM
    there will be output automatically without any function, you don't need write !!
    FORMAT(F10.2)
    WRITE(6.7)(DX(I),i=1,IMAX1)
    FORMAT(10F10.2)
    STOP
    don't need it
    END
    you need here end for each for loop, i.e 3 end's
    end
    end
    end



    توجد بعض الاخطاء لأني لا أعرف الفورتران لكن حاولت قدر الامكان كتابة ولو الشيء البسيط ... الايعازات باللون الاحمر والتعليق بالازرق

    تحياتي


    0 Not allowed!


    Imagination is more important than knowledge


  
الكلمات الدلالية لهذا الموضوع

عرض سحابة الكلمة الدلالية

RSS RSS 2.0 XML MAP HTML