Combine several code to a single code

Hello everybody I have a very simple problem, I have too many data y, p and r. So I want to calculate it in a single code.

This an example of my code if I breakdown into separate code

y1=45
y2=56
y3=67
p1=34
p2=45
p3=56
r1=23
r2=34
r3=45

Ryaw1=[cosd(y1) -sind(y1) 0;
      sind(y1) cosd(y1) 0;
      0 0 1]
Rpitch1=[cosd(p1) 0 sind(p1);
        0 1 0;
        -sind(p1) 0 cos(p1)]
Rroll1=[1 0 0;
       0 cosd(r1) -sind(r1);
       0 sind(r1) cosd(r1)]

R1=Ryaw1*Rpitch1*Rroll1
Coordinate1=R1*X0

Ryaw2=[cosd(y2) -sind(y2) 0;
      sind(y2) cosd(y2) 0;
      0 0 1]
Rpitch2=[cosd(p2) 0 sind(p2);
        0 1 0;
        -sind(p2) 0 cos(p2)]
Rroll2=[1 0 0;
       0 cosd(r2) -sind(r2);
       0 sind(r2) cosd(r2)]

R2=Ryaw2*Rpitch2*Rroll2
Coordinate2=R2*X0

Ryaw3=[cosd(y3) -sind(y3) 0;
      sind(y3) cosd(y3) 0;
      0 0 1]
Rpitch3=[cosd(p3) 0 sind(p3);
        0 1 0;
        -sind(p3) 0 cos(p3)]
Rroll3=[1 0 0;
       0 cosd(r3) -sind(r3);
       0 sind(r3) cosd(r3)]

R3=Ryaw3*Rpitch3*Rroll3
Coordinate3=R3*X0

Coordinate=[Cooedinate1 Coordinate2 Coordinate3]

The goals is to find "Coordinate" (in matrix - combined from Coordinate1, Coordinate2, Coordinate3, .... ,Coordinate..) from every y, p and r data with the same "X0" as a single primary data for calculation.

Sorry for my bad english,

Thanks :)

Answer 1

[Fabio Freschi]

Try arrayfun

% the data
X0=[5;
  -3;
  3]
y=[45;45;45]
p=[30;30;30]
r=[50;50;50]

% the operation
X1 = arrayfun(@(y,p,r)[cosd(y) -sind(y) 0; sind(y) cosd(y) 0; 0 0 1]*...
  [cosd(p) 0 sind(p); 0 1 0; -sind(p) 0 cos(p)]*...
  [1 0 0; 0 cosd(r) -sind(r); 0 sind(r) cosd(r)]*X0,y,p,r,'UniformOutput',false);

[Brian Barito]

I'm sorry. I mean, I have too many data y, p and r. So I want to calculate it in a single code.

This an example of my code if I breakdown into separate code

y1=45
y2=56
y3=67
p1=34
p2=45
p3=56
r1=23
r2=34
r3=45

Ryaw1=[cosd(y1) -sind(y1) 0;
      sind(y1) cosd(y1) 0;
      0 0 1]
Rpitch1=[cosd(p1) 0 sind(p1);
        0 1 0;
        -sind(p1) 0 cos(p1)]
Rroll1=[1 0 0;
       0 cosd(r1) -sind(r1);
       0 sind(r1) cosd(r1)]

R1=Ryaw1*Rpitch1*Rroll1
Coordinate1=R1*X0

Ryaw2=[cosd(y2) -sind(y2) 0;
      sind(y2) cosd(y2) 0;
      0 0 1]
Rpitch2=[cosd(p2) 0 sind(p2);
        0 1 0;
        -sind(p2) 0 cos(p2)]
Rroll2=[1 0 0;
       0 cosd(r2) -sind(r2);
       0 sind(r2) cosd(r2)]

R2=Ryaw2*Rpitch2*Rroll2
Coordinate2=R2*X0

Ryaw3=[cosd(y3) -sind(y3) 0;
      sind(y3) cosd(y3) 0;
      0 0 1]
Rpitch3=[cosd(p3) 0 sind(p3);
        0 1 0;
        -sind(p3) 0 cos(p3)]
Rroll3=[1 0 0;
       0 cosd(r3) -sind(r3);
       0 sind(r3) cosd(r3)]

R3=Ryaw3*Rpitch3*Rroll3
Coordinate3=R3*X0

Coordinate=[Cooedinate1 Coordinate2 Coordinate3]

The goals is to find "Coordinate" (in matrix - combined from Coordinate1, Coordinate2, Coordinate3, .... ,Coordinate..) from every y, p and r data with the same "X0" as a single primary data.

Thanks :)