دورات هندسية

 

 

الله يخليكم عندي 3 أمثلة مانه عارف احلهم في الماتلاب

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

    جديد

    تاريخ التسجيل: May 2009
    المشاركات: 1
    Thumbs Up
    Received: 0
    Given: 0

    الله يخليكم عندي 3 أمثلة مانه عارف احلهم في الماتلاب

    السلام عليكم اخواني

    انا الحين اتعلم ماتلاب بس عندي اشياء مانه عارف احلها يمكن اتحلون ليي هالمثالين بالماتلاب

    المسالة الأولى :: أريد حلها بطريقة نيوتن لحل المعادلات اللاخطية ويكون الحل قريب للexact :

    x^2 + y^2 =4
    x*y=1

    @ x0=3 ;y0=-1.5

    انا كتبت برنامج بس ما طلع صح : هذا اهو :

    .................................................. .........
    x0=3;y0=-1.5
    f1=x0^2+y0^2-4;f2=x0*y0-1
    f1x=2*x0;f1y=2*y0;f2x=y0;f2y=x0
    function sol=newton2(fn,jac,x0,tol)
    old=x0+1;while max(abs(x0-old))>tol;old=x0;
    f=feval(fn,old);f1=f(1);f2=f(2);
    J=feval(jac,old);
    f1x=J(1,1);f1y=J(1,2);f2x=J(2,1); f2y=J(2,2);
    D=f1x*f2y-f1y*f2x;
    h=(f2*f1y-f1*f2y)/D;
    k=(f1*f2x-f2*f1x)/D;
    x0=old+[h,k]
    end;sol=x0;

    .................................................. .......

    المسألة الثانية : ابي حلها بطريقة Taylor’s method of order two


    y= x/y x, x = 0(0.2)1, y(0) = 2

    انا كتبت برنامج بس ما طلع صح : هذا اهو :
    .................................................. .....
    MATLAB m-file for Taylor’s Method of order 2
    function sol=tayl1(fun1,dfun1,a,b,y0,n)
    h=(b-a)/n;
    x = a + (0 : n) h; y(1)=y0;
    for k=1:n

    y
    (k + 1) = y(k) + h feval(fun1, x(k), y(k))
    + (h.ˆ 2
    feval(dfun1, x(k), y(k)))/2;
    end;
    sol = [x, y];

    .................................................. ......
    المسالة الثالثة : ابي مثال ببرنامج الماتلاب على طريقة :
    The compsite trapezoidal intgration formula


    الله يخليكم ساعدوني لاني متورط

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


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

    هذا حل السؤال الاول

    كود:
    % Newton's method for a system of 2 nonlinear equations in 2 unknowns.
    % Note that x(1)=x ; x(2)=y
    
    clear all
    clc
    
    f = @(x) [x(1)^2 + x(2)^2 - 4
                    x(1) * x(2) - 1];
    
    % Jacobian matrix
    J = @(x) [ 2*x(1) 2*x(2)
                      x(2) x(1)];
    
    x = [3; -1.5]; % initial guess
    maxiter = 10; % max. no. of iterations
    tol = 1e-10; % max. allowable tolerance
    
    for i = 1 : maxiter
        delta = -J(x) \ f(x);
        x = x + delta;
        if norm(delta,inf) < tol
            fprintf('\n.. at iteration no. ''%d'' delta became less than the allowble tolerance \n',i)
            fprintf('\n.. the final solution is \n')
            x
            break
        end
        
        if i == maxiter
            fprintf('\n.. the program exceeded the max. number of iterations \n')
            fprintf('\n.. the final solution is \n')
            x
            break
        end
    end


    أرجو أن يكون الحل صحيح .. وأن توضح بقية الاسئلة !!


    0 Not allowed!


    Imagination is more important than knowledge


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

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

RSS RSS 2.0 XML MAP HTML