function?[BabtuF]?=?PLS（XYc_num）

[np]?=?size（X）;
[nq]?=?size（Y）;
X_mean?=?mean（X）;
X_var?=?sqrt（diag（cov（X））.‘）;
Y_mean?=?mean（Y）;
Y_var?=?sqrt（diag（cov（Y））.‘）;
E0?=?zscore（X）;
F0?=?zscore（Y）;
E?=?E0;
F?=?F0;
ss_h_1?=?1e7;
for?i?=?1?:?c_num
????A1?=?E.‘?*?F?*?F.‘?*?E;
????A2?=?F.‘?*?E?*?E.‘?*?F;
????[Wtheta]?=?eigs（A11）;
????[Ctheta]?=?eigs（A21）;
????w（:i）?=?W?/?norm（W）;
????c（:i）?=?C?/?norm（C）;
????t（:i）?=?E?*?w（:i）;
????u（:i）?=?F?*?c（:i）;
????P（:i）?=?E.‘?*?t（:i）?/?（norm（t（:i）））^2;
????r（:i）?=?F.‘?*?t（:i）?/?（norm（t（:i）））^2;
???
????wp?=?e