高斯消元_fortran

高斯消元___fortran版本

  DIMENSION A(10,10),B(10),X(10)INTEGER N,K,I,J,MID,TEMPWRITE(*,*)"输入矩阵的阶数："READ(*,*)NWRITE(*,*)"请输入每行的系数："READ(*,*)((A(I,J),I=1,N),J=1,N)WRITE(*,*)"请输入右侧的值"READ(*,*)(B(I),I=1,N)DO K=1,NIF(A(K,K)==0)thenWRITE(*,*)"无解"ENDIFDO I=K+1,NMID=A(I,k)/A(k,K)DO J=K,NA(I,J)=A(I,J)-MID*A(K,J)ENDDOB(I)=B(I)-MID*B(K)ENDDOENDDODO I=1,NDO J=1,NWRITE(*,*)A(I,J)ENDDOWRITE(*,*)"\"ENDDODO I=N,1,-1TEMP=B(I)DO J=N,I+1,-1TEMP=TEMP-A(I,J)ENDDOX(I)=TEMP/A(I,I)ENDDODO I=1,NWRITE(*,*)X(I)ENDDO
END

高斯消元_fortran相关推荐

Rocksdb Ribbon Filter : 结合 XOR-filter 以及高斯消元算法实现的高效filter
文章目录前言 XOR-filter 实现原理 xor filter 的构造原理 xor filter 构造总结 XOR-filter 和 ADD-filter对比 XOR-filter 在计算上的优 ...
poj 1681 Painter#39;s Problem(高斯消元)
http://poj.org/problem? id=1681 求最少经过的步数使得输入的矩阵全变为y. 思路:高斯消元求出自由变元.然后枚举自由变元,求出最优值. 注意依据自由变元求其它解及求最优值 ...
AC自动机 + 概率dp + 高斯消元 --- HDU 5955 or 2016年沈阳icpc H [AC自动机 + 概率dp + 高斯消元]详解
题目链接题目大意: 就是有NNN个人,每个人都会猜一个长度为LLL的只包含{1,2,3,4,5,6}\{1,2,3,4,5,6\}{1,2,3,4,5,6}的序列,现在裁判开始投掷骰子,并且把每次的 ...
ICPC 2005 hangzhou Generator （UVA1358）KMP + 期望DP / 高斯消元
整理的算法模板合集: ACM模板点我看算法全家桶系列!!! 实际上是一个全新的精炼模板整合计划 Generator Weblink https://www.luogu.com.cn/problem/ ...
2020 ACM / ICPC 济南 A Matrix Equation （高斯消元、乘法原理）
整理的算法模板合集: ACM模板点我看算法全家桶系列!!! 实际上是一个全新的精炼模板整合计划题目链接给你定义两种 010101 矩阵上的运算: Xi,j×Yi,j=(∑k=1NXi,kYk,j ...
luogu P4035 [JSOI2008]球形空间产生器（高斯消元 / 模拟退火）
整理的算法模板合集: ACM模板点我看算法全家桶系列!!! 实际上是一个全新的精炼模板整合计划数据范围只开到了10,而且是经典的力学结构,所以我们可以用模拟退火,可以做一下 nnn 维的正交分解h ...
BZOJ 2707: [SDOI2012]走迷宫 [高斯消元 scc缩点]
2707: [SDOI2012]走迷宫题意:求s走到t期望步数,$n \le 10^4$,保证$|SCC| \le 100$ 求scc缩点,每个scc高斯消元,scc之间直接DP 注意每次清 ...
[BZOJ 3143][Hnoi2013]游走（高斯消元+期望）
Description 一个无向连通图,顶点从1编号到N,边从1编号到M. 小Z在该图上进行随机游走,初始时小Z在1号顶点,每一步小Z以相等的概率随机选择当前顶点的某条边,沿着这条边走到下一个顶点, ...
[Sdoi2017]硬币游戏 [高斯消元 KMP]
[Sdoi2017]硬币游戏题意:硬币序列,H T等概率出现,$n \le 300$个人猜了一个长为$ m \le 300$的字符串,出现即获胜游戏结束.求每个人获胜概率考场用了[1444: ...

高斯消元_fortran

高斯消元_fortran相关推荐

最新文章

热门文章