function instalar();
disp('Comienzo de instalacion');
disp('Copiando Archivos');
if isdir('c:\matlab6p5\work\solar')
copyfile('*.*','c:\matlab6p5\work\solar\*.*');
else
mkdir('c:\matlab6p5\work\','solar');
copyfile('*.*','c:\matlab6p5\work\solar\*.*');
end
disp('Moviendo archivos');
if isdir('c:\matlab6p5\work\solar\archivos')
movefile('c:\matlab6p5\work\solar\PLANTA_PILOTO_OPC_NUEVO.MDL','C:\matlab6p5\work\solar\archivos');
else
mkdir('c:\matlab6p5\work\solar','archivos');
movefile('c:\matlab6p5\work\solar\PLANTA_PILOTO_OPC_NUEVO.MDL','C:\matlab6p5\work\solar\archivos');
movefile('c:\matlab6p5\work\solar\pidensayo1irr_d_prueba.mdl','c:\matlab6p5\work\solar\archivos');
end
delete('c:\matlab6p5\work\solar\instalar.m');
disp('Fin de instalacion');
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
