c常用算法程序集徐士良
① 用c语言怎么编写输入一个矩阵求其逆矩阵的程序
这是我编的一个简易矩阵计算器，C++语言，非常容易理解的，你可以参考求行列式和逆部分
#include <iostream>
#include <iomanip>
#include <conio.h>
#include "windows.h"
#include <string>
using namespace std;
void gotoxy(int x,int y) // 列x: 0~79 行y: 0~24
{ HANDLE hConsole=GetStdHandle(STD_OUTPUT_HANDLE);
COORD coordScreen={x,y};
SetConsoleCursorPosition(hConsole,coordScreen);
return;
}
void setcolor(unsigned short ForeColor,unsigned short BackColor)
// 0--黑 1--暗蓝 2--暗绿 3--暗青 4--暗红 5--暗紫 6--蟹黄 7--暗白
// 8--灰 9--亮蓝 10-亮绿 11-亮青 12-亮红 13-亮紫 14-黄 15-亮白
{ HANDLE hCon = GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hCon,(ForeColor % 16)|(BackColor % 16 * 16));
};
int main()
{
void plu();
void sub();
void amo();
void mul();
void ran();
void ord();
char sel='1';
while(sel != '0')
{ int i;
system("cls"); // 清屏
setcolor(15,0); // 下面显示黑底亮青字
gotoxy(8,1); cout<<"┌───────────────────────────┐";
for(i=2;i<20;i++)
{gotoxy(8,i);cout<<"│";gotoxy(64,i);cout<<"│";}
setcolor(15,6); // 下面显示红底白字
gotoxy(10,3); cout<<" ";
gotoxy(10,4); cout<<" 简 易 矩 阵 计 算 器 ";
gotoxy(10,5); cout<<" ";
setcolor(15,0); // 下面显示黑底亮青字
gotoxy(10,7); cout<<" 1 ---- 矩阵加法 2 ---- 矩阵减法 ";
gotoxy(10,9); cout<<" 3 ---- 矩阵数乘 4 ---- 矩阵乘法 ";
gotoxy(10,11); cout<<" 5 ---- 矩阵行列式 6 ---- 矩阵的逆 ";
gotoxy(10,13); cout<<" 0 ---- 退出 ";
gotoxy(10,15); cout<<" 请选择(0--6):";
gotoxy(8,20); cout<<"└───────────────────────────┘";
do
{ gotoxy(28,15); sel=getche( );}
while ( sel!='1' && sel!='2' && sel!='3' && sel!='4' && sel!='5' && sel!='6'&& sel!='0');
switch(sel)
{
case '1':plu(); break;
case '2':sub(); break;
case '3':amo(); break;
case '4':mul(); break;
case '5':ran(); break;
case '6':ord(); break;
case '0': break;
}
}
system("cls");
gotoxy(25,10);
cout<<"谢 谢 使 用 系 统 ！"<<endl;
return 0;
}
void plu()//加法
{ char l;
system("cls"); // 清屏
setcolor(14,0); // 下面用黑底黄字
int a,b,i,j;
gotoxy(0,0);cout<<">>>>>> 矩阵加法 ";
gotoxy(0,2);cout<<"请输入矩阵的行数：";
cin>>a;
cout<<endl;
cout<<"请输入矩阵的列数：";
cin>>b;
cout<<endl;
double m[10][10],n[10][10];
cout<<"请输入第一个矩阵："<<endl;
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(6*j+20,2*i+6); cin>>m[i][j];}
cout<<endl<<endl<<"请输入第二个矩阵："<<endl;
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(6*j+20,2*a+2*i+7);cin>>n[i][j];}
cout<<endl<<">>>>>>>"<<endl<<"矩阵加法结果为：";
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(6*j+20,4*a+2*i+8);cout<<m[i][j]+n[i][j];}
gotoxy(0,6*a+9);
cout<<">>>>>>>>按任意键退出:";
l=getche();
}
void sub()//减法
{ char l;
system("cls"); // 清屏
setcolor(14,0); // 下面用黑底黄字
int a,b,i,j;
gotoxy(0,0);cout<<">>>>>矩阵减法";
gotoxy(0,2);cout<<"请输入矩阵的行数：";
cin>>a;
cout<<endl;
cout<<"请输入矩阵的列数：";
cin>>b;
cout<<endl;
double m[10][10],n[10][10];
cout<<"请输入第一个矩阵："<<endl;
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(6*j+20,2*i+6); cin>>m[i][j];}
cout<<endl<<endl<<"请输入第二个矩阵："<<endl;
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(6*j+20,2*a+2*i+7);cin>>n[i][j];}
cout<<endl<<">>>>>>>"<<endl<<"矩阵减法结果为：";
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(6*j+20,4*a+2*i+8);cout<<m[i][j]-n[i][j];}
gotoxy(0,6*a+9);
cout<<">>>>>>>>按任意键退出:";
l=getche();
}
void amo()//数乘
{ char h;
system("cls"); // 清屏
setcolor(14,0); // 下面用黑底黄字
int a,b,i,j;
gotoxy(0,0);cout<<">>>>>>矩阵数乘";
gotoxy(0,2);cout<<"请输入矩阵的行数：";
cin>>a;
cout<<endl;
cout<<"请输入矩阵的列数：";
cin>>b;
cout<<endl;
double m[10][10],c;
cout<<"请输入矩阵："<<endl;
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(6*j+20,2*i+6);cin>>m[i][j];}
cout<<endl<<"请输入与矩阵相乘的实数：";
cin>>c;
cout<<endl<<endl<<"矩阵数乘结果为：";
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(8*j+20,2*a+2*i+9);cout<<m[i][j]*c;}
gotoxy(0,4*a+12);
cout<<">>>>>>>按任意键退出：";h=getche();
}
void mul()//乘法
{
char k;
system("cls"); // 清屏
setcolor(14,0); // 下面用黑底黄字
int a,b,c,i,j,q;
gotoxy(0,0);cout<<">>>>>>矩阵乘法";
gotoxy(0,2);cout<<"请输入第一个矩阵的行数：";
cin>>a;
cout<<endl<<"请输入第一个矩阵的列数：";
cin>>b;
cout<<endl<<"则第二个矩阵的行数也为:"<<b;
cout<<endl<<endl<<"请输入第二个矩阵的列数：";
cin>>c;
cout<<endl;
double m[10][10],n[10][10],p[10][10]={0};
cout<<"请输入第一个矩阵："<<endl;
for(i=0;i<a;i++)
for(j=0;j<b;j++)
{gotoxy(6*j+18,2*i+10); cin>>m[i][j];}
cout<<endl<<endl<<"请输入第二个矩阵：";
for(i=0;i<b;i++)
for(j=0;j<c;j++)
{gotoxy(6*j+18,2*a+2*i+11);cin>>n[i][j];}
cout<<endl<<">>>>>>>"<<endl<<"矩阵相乘结果为： ";
for(i=0;i<a;i++)
for(j=0;j<c;j++)
for(q=0;q<b;q++) p[i][j]=p[i][j]+m[i][q]*n[q][j];
for(i=0;i<a;i++)
for(j=0;j<c;j++)
{gotoxy(10*j+18,2*a+2*b+2*i+12);cout<<p[i][j];}
gotoxy(16,2*a+2*b+2*i+15);
cout<<">>>>>>>按任意键退出：";k=getche();
}
//===================================================行列式
float Fun(int n1,float a1[10][10]);
void ran()
{
system("cls"); // 清屏
setcolor(15,0); // 下面用黑底黄字
char k;
int n,i,j;
cout<<">>>>>矩阵行列式"<<endl<<endl<<"请输入矩阵阶数: ";
cin>>n;
cout<<endl<<"请输入矩阵:"<<endl;
float a[10][10];
for(i=0;i<n;i++)
for(j=0;j<n;j++)
{gotoxy(6*j+12,2*i+4);cin>>a[i][j];}
cout<<endl<<"行列式为: "<<Fun(n,a)<<endl<<endl;
cout<<">>>>>>按任意键退出：";
k=getche();
}
float Fun(int n1,float a1[10][10])//求行列式的递归函数
{
int i_1,j_1,c;//c为数组b的行
float b[10][10];
int p=0,q=0;
float sum=0;
if(n1==1) return a1[0][0];
for(i_1=0;i_1<n1;i_1++)
{
for(c=0;c<n1-1;c++)
{if(c<i_1) p=0;
else p=1;
for(j_1=0;j_1<n1-1;j_1++)
{b[c][j_1]=a1[c+p][j_1+1];}
}
if(i_1%2==0)
q=1;
else q=(-1);
sum=sum+a1[i_1][0]*q*Fun(n1-1,b);
}return sum;
}
//================================================================
void ord()
{
char g;
system("cls"); // 清屏
setcolor(15,0); // 下面用黑底黄字
int i,j,n;
gotoxy(0,0);cout<<">>>>>矩阵的逆";
gotoxy(0,2);cout<<"请输入矩阵的阶数：";
cin>>n;
cout<<endl;
cout<<"请输入矩阵：";
float l[10][10],m[10][10],p;
for(i=0;i<n;i++)
for(j=0;j<n;j++)
{gotoxy(4*j+12,2*i+4); cin>>l[i][j];}
if(Fun(n,l)==0) cout<<endl<<"该矩阵无逆！！！"<<endl;
else
{p=Fun(n,l);
cout<<endl<<"矩阵的逆为： ";
for(i=0;i<n;i++)
for(j=0;j<n;j++)
{{float f[10][10];
int r,w,e,d;//e为数组f的行数
for(int j_1=0,e=0;j_1<n-1,e<n-1;j_1++,e++)
for(int i_1=0,d=0;i_1<n-1,d<n-1;i_1++,d++)
{if(e<i) r=0;else r=1;
if(d<j) w=0;else w=1;
f[i_1][j_1]=l[i_1+w][j_1+r];};
if((i+j)%2==0) m[i][j]=Fun(n-1,f)/p;
else m[i][j]=-Fun(n-1,f)/p;
};
gotoxy(9*j+12,2*n+2*i+4);cout<<m[i][j];};};
cout<<endl<<endl<<">>>>>>按任意键退出：";g=getche();
}
② c语言中如何求矩阵逆阵
main()
{
int i,a[5]={1,2,3,4,5};
printf("juzhen ni zhen is:\n");
for (i=4;i>=0;i--)
printf("%d ",a[i]);
}
输出结果:5 4 3 2 1
满足题目要求吧,我相信你是初学者才会问这样的问题,所以我才没有搞那么复杂,如果是复杂化的话你就不会问了,对吧!
③ 如何用C语言表示：输入任意二维数组A，求A的逆
下面的代码是我从fengjian_net 的精彩回答中抄来的，源自《C常用算法程序集－徐士良》。只是他的代码在VC2010中要编译通过，需要修改好几个地方，增加强制转换，修改好的代码如下：
#include <stdlib.h>
#include <math.h>
#include <stdio.h>
int brinv(double a[], int n)
{
int *is,*js,i,j,k,l,u,v;
double d,p;
is=(int*)malloc(n*sizeof(int));
js=(int*)malloc(n*sizeof(int));
for (k=0; k<=n-1; k++)
{
d=0.0;
for (i=k; i<=n-1; i++)
for (j=k; j<=n-1; j++)
{
l=i*n+j; p=fabs(a[l]);
if (p>d) { d=p; is[k]=i; js[k]=j;}
}
if (d+1.0==1.0)
{
free(is); free(js); printf("err**not inv\n");
return(0);
}
if (is[k]!=k)
for (j=0; j<=n-1; j++)
{
u=k*n+j; v=is[k]*n+j;
p=a[u]; a[u]=a[v]; a[v]=p;
}
if (js[k]!=k)
for (i=0; i<=n-1; i++)
{
u=i*n+k; v=i*n+js[k];
p=a[u]; a[u]=a[v]; a[v]=p;
}
l=k*n+k;
a[l]=1.0/a[l];
for (j=0; j<=n-1; j++)
if (j!=k)
{ u=k*n+j; a[u]=a[u]*a[l];}
for (i=0; i<=n-1; i++)
if (i!=k)
for (j=0; j<=n-1; j++)
if (j!=k)
{
u=i*n+j;
a[u]=a[u]-a[i*n+k]*a[k*n+j];
}
for (i=0; i<=n-1; i++)
if (i!=k)
{ u=i*n+k; a[u]=-a[u]*a[l];}
}
for (k=n-1; k>=0; k--)
{
if (js[k]!=k)
for (j=0; j<=n-1; j++)
{
u=k*n+j; v=js[k]*n+j;
p=a[u]; a[u]=a[v]; a[v]=p;
}
if (is[k]!=k)
for (i=0; i<=n-1; i++)
{
u=i*n+k; v=i*n+is[k];
p=a[u]; a[u]=a[v]; a[v]=p;
}
}
free(is); free(js);
return(1);
}
void brmul(double a[], double b[],int m,int n,int k,double c[])
{
int i,j,l,u;
for (i=0; i<=m-1; i++)
for (j=0; j<=k-1; j++)
{
u=i*k+j; c[u]=0.0;
for (l=0; l<=n-1; l++)
c[u]=c[u]+a[i*n+l]*b[l*k+j];
}
return;
}
int main()
{
int i,j;
static double a[4][4]={ {0.2368,0.2471,0.2568,1.2671},
{1.1161,0.1254,0.1397,0.1490},
{0.1582,1.1675,0.1768,0.1871},
{0.1968,0.2071,1.2168,0.2271}};
static double b[4][4],c[4][4];
for (i=0; i<=3; i++)
for (j=0; j<=3; j++)
b[i][j]=a[i][j];
i=brinv((double*)a,4);
if (i!=0)
{
printf("MAT A IS:\n");
for (i=0; i<=3; i++)
{
for (j=0; j<=3; j++)
printf("%13.7e ",b[i][j]);
printf("\n");
}
printf("\n");
printf("MAT A- IS:\n");
for (i=0; i<=3; i++)
{
for (j=0; j<=3; j++)
printf("%13.7e ",a[i][j]);
printf("\n");
}
printf("\n");
printf("MAT AA- IS:\n");
brmul((double*)b,(double*)a,4,4,4,(double*)c);
for (i=0; i<=3; i++)
{
for (j=0; j<=3; j++)
printf("%13.7e ",c[i][j]);
printf("\n");
}
}
}
④ C语言 矩阵的逆
下面是实现Gauss-Jordan法实矩阵求逆。
#include <stdlib.h>
#include <math.h>
#include <stdio.h>
int brinv(double a[], int n)
{ int *is,*js,i,j,k,l,u,v;
double d,p;
is=malloc(n*sizeof(int));
js=malloc(n*sizeof(int));
for (k=0; k<=n-1; k++)
{ d=0.0;
for (i=k; i<=n-1; i++)
for (j=k; j<=n-1; j++)
{ l=i*n+j; p=fabs(a[l]);
if (p>d) { d=p; is[k]=i; js[k]=j;}
}
if (d+1.0==1.0)
{ free(is); free(js); printf("err**not inv\n");
return(0);
}
if (is[k]!=k)
for (j=0; j<=n-1; j++)
{ u=k*n+j; v=is[k]*n+j;
p=a[u]; a[u]=a[v]; a[v]=p;
}
if (js[k]!=k)
for (i=0; i<=n-1; i++)
{ u=i*n+k; v=i*n+js[k];
p=a[u]; a[u]=a[v]; a[v]=p;
}
l=k*n+k;
a[l]=1.0/a[l];
for (j=0; j<=n-1; j++)
if (j!=k)
{ u=k*n+j; a[u]=a[u]*a[l];}
for (i=0; i<=n-1; i++)
if (i!=k)
for (j=0; j<=n-1; j++)
if (j!=k)
{ u=i*n+j;
a[u]=a[u]-a[i*n+k]*a[k*n+j];
}
for (i=0; i<=n-1; i++)
if (i!=k)
{ u=i*n+k; a[u]=-a[u]*a[l];}
}
for (k=n-1; k>=0; k--)
{ if (js[k]!=k)
for (j=0; j<=n-1; j++)
{ u=k*n+j; v=js[k]*n+j;
p=a[u]; a[u]=a[v]; a[v]=p;
}
if (is[k]!=k)
for (i=0; i<=n-1; i++)
{ u=i*n+k; v=i*n+is[k];
p=a[u]; a[u]=a[v]; a[v]=p;
}
}
free(is); free(js);
return(1);
}
void brmul(double a[], double b[],int m,int n,int k,double c[])
{ int i,j,l,u;
for (i=0; i<=m-1; i++)
for (j=0; j<=k-1; j++)
{ u=i*k+j; c[u]=0.0;
for (l=0; l<=n-1; l++)
c[u]=c[u]+a[i*n+l]*b[l*k+j];
}
return;
}
int main()
{ int i,j;
static double a[4][4]={ {0.2368,0.2471,0.2568,1.2671},
{1.1161,0.1254,0.1397,0.1490},
{0.1582,1.1675,0.1768,0.1871},
{0.1968,0.2071,1.2168,0.2271}};
static double b[4][4],c[4][4];
for (i=0; i<=3; i++)
for (j=0; j<=3; j++)
b[i][j]=a[i][j];
i=brinv(a,4);
if (i!=0)
{ printf("MAT A IS:\n");
for (i=0; i<=3; i++)
{ for (j=0; j<=3; j++)
printf("%13.7e ",b[i][j]);
printf("\n");
}
printf("\n");
printf("MAT A- IS:\n");
for (i=0; i<=3; i++)
{ for (j=0; j<=3; j++)
printf("%13.7e ",a[i][j]);
printf("\n");
}
printf("\n");
printf("MAT AA- IS:\n");
brmul(b,a,4,4,4,c);
for (i=0; i<=3; i++)
{ for (j=0; j<=3; j++)
printf("%13.7e ",c[i][j]);
printf("\n");
}
}
} <收起
参考资料：C常用算法程序集－徐士良
⑤ 关于清华大学电子工程系
培养目标
电子工程各专业的本科学生应掌握扎实的基础理论、专业基础理论和专业知识及基本技能，并掌握一定的人文社会科学、经济管理、环境工程等方面的基本理论，具有在专业领域跟踪新理论、新知识、新技术的能力，能从事该领域的科学研究、技术开发、教学及管理等工作。
学位授予
电子信息工程
电子科学与技术
上述两个专业均可授予学士学位。
电子信息工程
电子信息工程是信息产业的重要基础和支柱之一。它以电路与系统、信号与信息处理、电磁场与微波等理论为基础，研究各种信息如语音、文字、图象、遥感信息等的处理、交换、及无线、电缆、光缆等的传输，在此基础上研究和发展各种电子与信息系统。本专业主要内容为:
各种信息的处理、传输、交换、检测的理论与技术、各种电信系统和网络;
电路理论、电子系统设计及应用、系统仿真和集成电路设计自动化的理论和技术;
微波理论与技术、天线与电磁兼容理论与技术；
电子电路应用技术、计算机应用技术、信息处理应用技术、电磁波应用技术。
在本专业设有微波与数字通信国家重点实验室,智能技术与系统国家重点实验室智能图形图象分室,电子设计自动化(EDA)实验室等,拥有多种先进仪器设备。
本专业毕业生适应的工作范围为:信号的处理、传输、交换及检测技术的研究与教学工作,电子设备与系统的研制、生产与应用,电子技术及计算机技术应用与开发,微波技术的研究、应用及开发工作。
电子科学与技术
电子科学与技术是信息科学技术的前沿学科，它以近代物理学与数学为基础，研究电磁波的产生、运动及在不同介质中的相互作用规律，在此基础上发明和发展各种信息电子材料、元器件、集成电路乃至集成电子系统。电子科学与技术专业有两个方向：物理电子学与光电子学、微电子学。
物理电子学与光电子学方向主要内容为:
信息光电子学与光子器件;
光纤通信系统与网络应用技术;
新型显示器件和新型电光薄膜材料与器件;
微细技术和信息光电子材料评价与检测技术;
电子电路应用技术、计算机应用技术。
微电子学方向主要内容为:
大规模、超大规模集成电路和集成系统的研究、设计、应用；
各种半导体器件、微电子机械系统的研究、应用；
亚微米和深亚微米集成电路工艺；
集成电路的计算机辅助设计、制造和测试方法学。
本专业设有集成光电子学国家重点实验室(清华大学实验区),超净工艺线和电子系统集成与专用集成电路技术研究中心。
本专业毕业生适应的工作范围为:光子学、光电子学、物理电子学与微电子学的研究、教学工作和相关技术的开发、应用。光通信、光传感、信息显示系统、集成电路计算机辅助设计、集成电子系统等方面的研究、设计、制造与开发工作。
要考研的话，看这些没有，有个群85501851，你可以去多了解
教材名称 主编姓名 出版社 版次 出版年月 适用专业 适用层次 统一书号(ISBN)
语音信号数字处理 杨行峻等 电子 1 1995.8 电子信息工程 本、硕 7-5053-3147-7
现代分析技术 陆家和 陈长彦 清华 1 1995.9 物理电子 光电子 真空技术 本、硕 7-302-01830-8
计算机常用算法 徐士良 清华 2 1995.11 理工 本、硕 7-302-01958-4
FORTRAN常用算法程序集 徐士良 清华 2 1995.12 理工 本、硕 7-302-01947-9
UNIX应用教程 杨华中 邮电 1 1996.9 电子科学与技术 本、硕 7-115-06214-5
C常用算法程序集 徐士良 清华 2 1996.11 所有专业 本、硕 7-302-02290-9
微波工程基础 李宗谦 东南大学 1 1996.12 电子信息工程 本科 7-81050-144-5
电子线路基础 高文焕 高教 1 1997 所有专业 本科 7-04-005996-7
7-118-01730-2
程序设计实践指导 朱明方 赵纯善 雷田玉 清华 1 1997.3 电子信息工程
电子科学与技术 本科 7-302-02344-1
软件技术基础 徐士良 高教 1 1997.4 理工 本科 7-04-005950-9
C语言设计实验指导 徐士良 清华 1 1997.9 所有专业 本科 7-302-02621-1
BASIC常用算法程序集 徐士良 清华 1 1997.9 所有专业 本、硕 7-302-02662-9
模拟电路的计算机分析与设计 高文焕 汪 蕙 清华 1 1999 所有专业 本科 7-302-03158-4
模拟集成电路的自动综合方法 杨华中 汪 蕙 科学 1 1999.2 电子科学与技术 硕士 7-03-006975-7
图象工程 上册 图象处理和分析 章毓晋 清华 1 1999.3 电子信息工程 本科 7-302-03343-9
超大规模集成电路方法学导论 杨之廉 清华 1 1999.3 电子科学与技术 本科 7-302-03275-0
程控交换与综合业务通信网 乐正友 杨为理 清华 1 1999.5 电子信息工程 本科 7-302-03355-2
软件工程 徐士良 清华 1999.5 本科 7-302-03453-2
信号与系统 （第二版）上册 郑君里 应启珩 杨为理 高教 2 2000 工科、理科 7-04-007981-X
信号与系统 （第二版）下册 郑君里 应启珩 杨为理 高教 2 2000 工科、理科 7-04-007983-6
半导体激光器 江剑平 电子 1 2000.2 本科 7-5053-5535-X
微机图象处理系统 苏光大 清华 1 2000.7 本科 7-302-03963-1
数字集成系统的结构化设计与高层次综合 王志华 清华 1 2000.7 本科 7-302-03837-6
图象工程 下册 图象处理与计算机视觉 章毓晋 清华 1 2000.8 电子信息工程 硕士 7-302-03980-1
FORTRAN程序设计上机指导 徐士良 清华 2 2001.1 7-302-03674-8
电磁场理论基础 王蔷 李国定 清华 1 2001.1 7-302-04251-9
半导体集成电路 朱正涌 清华 1 2001.1 7-302-040851-03333
应用信息论基础 朱雪龙 清华 1 2001.3 7-302-04154-7
离散时间信号分析和处理 应启珩 冯一云 窦维蓓 清华 1 2001.9 本科 7-302-04679-4
可编程ASIC设计及应用 李广军 孟宪元 电子科大（成都） 2002
图像并行处理技术 苏光大 清华 1 2002.1 硕士 7-302-05282-4
通信电路原理 董在望主编 陈雅琴 雷有华 肖华庭 高教 2 2002.8 本科 7-04-010643-4