clc
clear

x=linspace(0, 5, 100)

y1=sin(1i*x);
y2=1i*sinh(x);

plot(x, real(y1), 'b', x, real(y2), 'r--')
hold on
plot(x, imag(y1), 'g', x, imag(y2), 'k--')
grid on

legend ('Re(sin(ix))', 'Re(i sinh(x))', 'Im(sin(ix))', 'Im(i sinh(x))')