convertir un vector a una matriz diagonal en system

hola a todos quisiera una ayuda si existe un comando en sistem que dandole un vector real lo convierta en una matriz diagonal gracias por su ayuda

Puedes usar alguno de estos 4 comandos:

360006 ˆMATRIXDIAG>
( ob 1DMATRIX ob' {#fil #col} → 2DMATRIX )
Retorna una matriz de dos dimensiones (las del nivel 1), donde los elementos de su diagonal principal serán los elementos del vector del nivel 3.
El resto de sus elementos serán ceros (enteros).
ob y ob' son dos objetos cualesquiera.

06B003 FLASHPTR 3 6B
( 1DMATRIX {#fil #col} → 2DMATRIX )
( [%] {#fil #col} → [[%]] )
( [C%] {#fil #col} → [[C%]] )
Retorna una formación de dos dimensiones (las del nivel 1), donde los elementos de su diagonal principal serán los elementos del vector del nivel 2. El resto de sus elementos serán ceros (enteros, reales o complejos, respectivamente).
Si en la pila hay un vector simbólico, llama a ˆMATRIXDIAG>

04D002 FLASHPTR 2 4D
( 1DMATRIX {%fil %col} → 2DMATRIX )
( [%] {%fil %col} → [[%]] )
( [C%] {%fil %col} → [[C%]] )
Similar a FLASHPTR 3 6B pero las dimensiones se indican con números reales.
Llama al comando FLASHPTR 3 6B
Equivale al comando DIAG→ de User RPL cuando en la pila hay un vector y una lista.

04E002 FLASHPTR 2 4E
( 1DMATRIX %n → 2DMATRIX )
( [%] %n → [[%]] )
( [C%] %n → [[C%]] )
Similar a FLASHPTR 2 4D pero la formación creada será cuadrada con número de filas y de columnas igual a %n
Llama al comando FLASHPTR 3 6B
Equivale al comando DIAG→ de User RPL cuando en la pila hay un vector y un número real.