idl创造对角线为1的数组

『壹』 建立并输出一个10*10的矩阵,该矩阵对角线元素为1,其余元素均为0

dim a(0 to 9,0 to 9) as double
dim i as int
for i = 0 to 9
a(i,i) = 1
next
以上是第一题，写成0 to 9 是怕你以为直接写9是9*9的

第二题的“从键盘输入”不是很理解，不知道你要从哪里输入,10个textbox?那你自己写上给数组赋值的代码就是了
下面程序假定数组中已经有了输入：a(0 to 9)
dim b(9) as double
for i = 0 to 9
b(i)= a(i-9)
next
自己输出b就是了

『贰』 创建一个7*7的二维数组，对角线为1，其他为0，并输出

package chow.web;

public class A {
public static void main(String args[]){
int[][] array = new int[7][7];
for(int i = 0;i<7;i++){
array[i][i] = 1;
}
for(int i = 0 ; i<7;i++){
for(int j = 0 ;j<7;j++){
System.out.print(array[i][j] + " ");
}
System.out.println();
}

}

}

Java 初始的时候是把数组全置为0的;
只需把对角线的元素置为1

『叁』 如何用MATLAB生成一个主对角线为1，其他值相同的toeplitz矩阵

比如n×n矩阵，其他值是b=8

n=6;%6×6矩阵
b=8;
a=b*ones(n,n)./(diag((b-1)*ones(n,1))+ones(n,n))

『肆』 编写程序,建立并输出一个10×10的矩阵,该矩阵对角线元素为1,其余元素均为0

main()
{
int j,i;
int a[10][10];
for(i=0;i<10;i++)
{
for(j=0;j<10;j++)
{
if(j==i)
a[i][j]=1;//此处
else
a[i][j]=0;
}
for(i=0;i<10;i++)
{
for(j=0;j<10;j++)
printf("%d\t",a[i][j]);
printf("\n");

}
}如果是两条对角线都是1的话
可以把if(j==i)改为if(j==i&&(j+i)==9)

『伍』 MATLAB如何创建主对角线都是1的矩阵

1、首先打开matlab软件，输入一个向量n，向量n有4个元素，使用diag函数生成对角矩阵。

『陆』 用matlab，做一个对角线为1，aij=1/aji的n阶矩阵，求大神

A=1./A;
A(logical(eye(size(A))))=1;

『柒』 matlab问题:产生对角线上全为1，其余为0的2行3列矩阵的命令

方案一、就是一楼回答的，用eye函数：
>> eye(2,3)
ans =
1 0 0
0 1 0

方案二、若不知道eye函数，因为你的问题中 行数和列数都很小，所以直接赋值就可以了：
x = zeros(2,3);
x(1,1) = 1;
x(2,2) = 1;

方案三、若不知道eye函数，而行数和列数又都较大，则只能使用循环了：
下面假设 m≤n.
x = zeros(m,n)
for k = 1:m
x(k,k) = 1;
end

OK!

『捌』 急！ 如何用matlab实现将矩阵变换为对角线元素为1的矩阵（非对角元素不一定为1）

问题描述不详。按自己的理解出牌：
假设你的矩阵是x，要将x的对角线全变为1，语句如下
d = diag(x);
h = 1./d;
y = diag(h)*x; %y即为所求.

『玖』 编写程序,建立并输出一个10x10的矩阵,该对角线元素为1,其余元素均为0

Dim a(9,9) As Integer
dim i as integer
dim j as integer
For i = 0 To UBound(a, 1)
For j = 0 To UBound(a, 2)
If i = j Or i + j = 9 Then a(i, j) = 1
print a(i, j),
Next
print
Next
注:该矩阵的下标默认下界为0,所以声明的时候是(9,9),如果你把下标的下界改为1的话,声明时就是(10,10)

『拾』 建立一个输出n×n的矩阵，该矩阵对角线元素为1其余为0n值通过键盘输入完成对角线的元素赋值为1通过子程序

我编写的matlab代码如下：
x=input('please input n :');
M=diag(0*[1:x]+1,0)
保存后，运行即可，很好用的。请问你会用Matlab吗？