• > A / B; > is_in (A,B); > is_in (4.5,B); > K:=[1.,5.];
  • > C:=[1.,2.]; F:=[5.,7.]; > C * X = F; > X:=F / C;
  • > A:=[4.,5.]; B:=[14.,22.]; C:=[9.,9.]; A * X^2 + B * X + C =0;
  • > if is_in(disc, positiveINT) then X1:=(([-1.,-1.] * B) + ((disc) **(1/2))) / (2 * A); X2:=(([-1.,-1.] * B) - ((disc) **(1/2))) / (2 * A);
  • > libname:="d:\\Maple\\Maple 9.5\\intpakX\\lib", libname




    Download 7.05 Mb.
    bet61/78
    Sana22.07.2021
    Hajmi7.05 Mb.
    #15506
    1   ...   57   58   59   60   61   62   63   64   ...   78
    > libname:="d:\\Maple\\Maple 9.5\\intpakX\\lib", libname;



    > with(intpakX);



    Interval arifmetik amallar bajarish.

    > A:=[2.,4.]; B:=[4.,5.];





    > A &+ B;



    > A &- B;



    > A &* B;



    > A &/ B;



    > is_in (A,B);



    > is_in (4.5,B);



    > K:=[1.,5.];



    > A &+ B &/ K;



    > A &+ (B &/ K);

    Koeffitsiyentlari interval sonlardan iborat bo’lgan chiziqli tenglama quyidagi usulda yechiladi:


    > C:=[1.,2.]; F:=[5.,7.];





    > C * X = F;



    > X:=F &/ C;

    Koeffitsiyentlari interval sonlardan iborat bo’lgan kvadrat tenglama quyidagi usulda bajariladi:



    Misol-1.

    > A:=[4.,5.]; B:=[14.,22.]; C:=[9.,9.];

    A * X^2 + B * X + C =0;









    > disc:=(B &**2) &- (4 &* A &* C);

    positiveINT:=[0., infinity];

    nepositiveINT:=[-infinity,0.];







    > if is_in(disc, positiveINT) then X1:=(([-1.,-1.] &* B) &+ ((disc) &**(1/2))) &/ (2 &* A);

    X2:=(([-1.,-1.] &* B) &- ((disc) &**(1/2))) &/ (2 &* A);



    Download 7.05 Mb.
    1   ...   57   58   59   60   61   62   63   64   ...   78




    Download 7.05 Mb.

    Bosh sahifa
    Aloqalar

        Bosh sahifa



    > libname:="d:\\Maple\\Maple 9.5\\intpakX\\lib", libname

    Download 7.05 Mb.