कम त्रिभुज मैट्रिक्स के लिए गॉसियन उन्मूलन - वोल्फ्राम-गणितिका, गाऊशियन

मुझे गॉसियन उन्मूलन के साथ एक परेशानी मिली हैनिचले त्रिकोणीय मैट्रिक्स के लिए, मैं कल्पना नहीं कर सकता कि लूप को यहां कैसे काम करना चाहिए। मैंने पीछे लूप चलाने की कोशिश की, लेकिन यह मदद नहीं की। अभी के लिए मुझे ऊपरी त्रिभुज मैट्रिक्स के लिए गॉसियन उन्मूलन मिल गया है।

For[k = 1, k <= size - 1, k++,
For[i = k + 1, i <= size, i++,
If[tab[[k]][[k]] != 0,
help = tab[[i]][[k]]/tab[[k]][[k]];
For[j = k, j <= size, j++,
tab[[i]][[j]] = tab[[i]][[j]] - help*tab[[k]][[j]];
identity[[i]][[j]] = identity[[i]][[j]] - help*tab[[k]][[j]]
]
]
]
]

कृपया क्या कोई मेरी मदद कर सकता है?

@edit

मैंने उस तरह लूप बनाये

For[k = size, k > 1, k--,
For[i = k - 1, i >= 1, i--,

और ऐसा लगता है जैसे यह काम करता है, लेकिन अब मुझे एक समस्या है, क्योंकि ये दो लूप उलटा मैट्रिक्स नहीं देते हैं।

उदाहरण मैट्रिक्स:

[ 3 4 2 ]
[ 5 5 5 ]
[ 1 5 3 ]

ऊपरी-विकर्ण के लिए आउटपुट

[3   4   2  ]
[0 -5/3 5/3 ]
[0   0   6  ]

पहचान-मैट्रिक्स के लिए आउटपुट

  [1    0      0  ]
[-5 -17/3 -10/3 ]
[-1   -5    -4  ]

और अब, जब मैं निचले-विकर्ण के लिए लूप चलाता हूं, तो इसके लिए आउटपुट सही नहीं है। यह मुख्य विकर्ण को विभाजित नहीं करता है

उत्तर:

खैर, वास्तव में मुझे समस्या मिली, लेकिन मैं नहीं करतामुझे पता है कि मैं इसे कैसे हल कर सकता हूं - ऊपरी त्रिकोणीय-मैट्रिक्स-लूप ठीक काम करता है, लेकिन समस्या कम त्रिकोणीय के साथ है, यह तत्वों को विकर्ण पर विभाजित नहीं करती है।