Ortogonaalikomponentti avar [S]

$PSnrmsqr Calculate(0,380,'','A2^ B2^ + C2^ + ')($S1val,$S2val,$S3val)[red,hidden];
$PSOrt11	Calculate(130, 40,'','B2^ C2^ + D /')($S1val,$S2val,$S3val,$Snrmsqr)[black];
$PSOrt12	Calculate(195, 40,'','0AB*-     D /')($S1val,$S2val,$S3val,$Snrmsqr)[black];
$PSOrt13	Calculate(260, 40,'','0AC*-     D /')($S1val,$S2val,$S3val,$Snrmsqr)[black];
$PSOrt21	Calculate(130, 55,'','0A+')($PSOrt12)[black];
$PSOrt22	Calculate(195, 55,'','A2^ C2^ + D /')($S1val,$S2val,$S3val,$Snrmsqr)[black];
$PSOrt23	Calculate(260, 55,'','0BC*-     D /')($S1val,$S2val,$S3val,$Snrmsqr)[black];
$PSOrt31	Calculate(130, 70,'','0A+')($PSOrt13)[black];
$PSOrt32	Calculate(195, 70,'','0A+')($PSOrt23)[black];
$PSOrt33	Calculate(260, 70,'','A2^ B2^ + D /')($S1val,$S2val,$S3val,$Snrmsqr)[black];