For[i=1,i≤147,i++,​​j=0;​​For[q=1,q≤147,q++,​​j++;​​Tangentstiff1[i,j]=
∂
cons[q]
equation1[i];​​];​​];​​KT1//MatrixForm