ARRAYS2

 Program name: ARRAYS2

real :: A(4), B(4), c(4), D(4,4), E(4,4),F(4,4), G(4,4)

integer :: i

A=[1.,0.5,-3.,5.5]

B=(2*A)/3

c=B**2

D(1,:)=A

D(2,:)=(B*3)/2

D(3,:)=sqrt(C)

D(4,:)=A+B+C

E=D*3

print *, A

Print *,

Print *, B

print *,

Print *, C

print *,

do i=1,4

   print *, D(i,1), D(i,2), D(i,3), D(i,4)

end do

print *,

do i=1,4

   print *, E(i,1), E(i,2), E(i,3), E(i,4)

end do

print *,

print *, maxval(A), minval(B), product(C), sum(D), size(E)

print *,

F=transpose(E)

do i=1,4

   print *, F(i,1), F(i,2), F(i,3), F(i,4)

end do

print *,

print *, dot_product(A,B)

print *,

G=matmul(D,E)

do i=1,4

   print *, G(i,1), G(i,2), G(i,3), G(i,4)

end do

stop

end

Comentários

  1. I agree to not maintain Curaleaf responsible for any electronic messaging charges or charges generated by this service. I perceive that I wouldn't have to comply with be contacted to be able to} purchase any items from Curaleaf, and that my consent to being contacted as described Shower Curtains herein is voluntary. Operators shall be required decide out} and adjust programming, carry out OPM , quality checks, calibrate tooling and troubleshooting. This is just about a "must-have" when slicing with the laser and air assist. The air-assist makes the laser more environment friendly and cleaner slicing, however tends to blow via the cut and create an air cushion beneath the project which could permit it to maneuver . The magnets that come with the panel are great to align repeat projects, and keep the fabric stable.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

DATA

RECURSIVE

HYDROGEN-RADIAL