#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: can_r2tex
# Reduce constrained-state matrices to LaTex constrained-state matrices.
# P.J.Gawthrop January 8th 1997
# Copyright (c) P.J.Gawthrop, 1997
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
# Inform user
echo Creating $1_can.tex
# Remove the old log file
rm -f can_r2tex.log
# Use reduce to accomplish the transformation
reduce >can_r2tex.log<< EOF
%Read the definitions file
in "$1_def.r";
%Read the canonical-form matrices file
in "$1_can.r";
%Read the substitution file
in "$1_subs.r";
%Read the simplification file
in "$1_simp.r";
%Read the formatting function
in "$MTTPATH/trans/latex_matrix.r";
OFF Echo;
OFF Nat;
OUT "$1_can.tex";
%Write out the canonical matrices
write "%Canonical-form matrices $1";
write "%File: $1_can.tex";
write"";
% Controllable form
MTT_Matrix := MTTA_c$
MTT_Matrix_name := "MTTA_c"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
MTT_Matrix := MTTB_c$
MTT_Matrix_name := "MTTB_c"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNu$
LaTeX_Matrix()$
MTT_Matrix := MTTC_c$
MTT_Matrix_name := "MTTC_c"$
MTT_Matrix_n := MTTNy$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
% Observable form
MTT_Matrix := MTTA_o$
MTT_Matrix_name := "MTTA_o"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
MTT_Matrix := MTTB_o$
MTT_Matrix_name := "MTTB_o"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNu$
LaTeX_Matrix()$
MTT_Matrix := MTTC_o$
MTT_Matrix_name := "MTTC_o"$
MTT_Matrix_n := MTTNy$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% - Controllability matrix";
MTT_Matrix := MTTCon$
MTT_Matrix_name := "MTTCon"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% -Observability matrix";
MTT_Matrix := MTTObs$
MTT_Matrix_name := "MTTObs"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% -Controllability matrix - controller form";
MTT_Matrix := MTTCon_c$
MTT_Matrix_name := "MTTCon_c"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% - Transformation matrix - controller form";
MTT_Matrix := MTTT_c$
MTT_Matrix_name := "MTTT_c"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% - Gain matrix - controller form";
MTT_Matrix := MTTK_c$
MTT_Matrix_name := "MTTK_c"$
MTT_Matrix_n := MTTNu$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% - Gain matrix - physical form";
MTT_Matrix := MTTK$
MTT_Matrix_name := "MTTK"$
MTT_Matrix_n := MTTNu$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% -Observability matrix - Observer form";
MTT_Matrix := MTTObs_o$
MTT_Matrix_name := "MTTObs_o"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% - Transformation matrix - Observer form";
MTT_Matrix := MTTT_o$
MTT_Matrix_name := "MTTT_o"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "% - Observer Gain matrix - observer form";
MTT_Matrix := MTTL_o$
MTT_Matrix_name := "MTTL_o"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNy$
LaTeX_Matrix()$
write "% - Gain matrix - physical form";
MTT_Matrix := MTTL$
MTT_Matrix_name := "MTTL"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNy$
LaTeX_Matrix()$
% Controllable form
MTT_Matrix := MTTA_comp$
MTT_Matrix_name := "MTTA_comp"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
MTT_Matrix := MTTB_comp$
MTT_Matrix_name := "MTTB_comp"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := MTTNu$
LaTeX_Matrix()$
MTT_Matrix := MTTC_comp$
MTT_Matrix_name := "MTTC_comp"$
MTT_Matrix_n := MTTNy$
MTT_Matrix_m := MTTNx$
LaTeX_Matrix()$
write "\begin{equation}";
write "MTTur = {", MTTu_r, "}";
write "\end{equation}";
SHUT "$1_can.tex";
quit;
EOF