fortran语言能用matlab,Fortran语言转matlab语言
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
SUBROUTINE SPKD3(NSPI,TLI,NSPJ,TLJ,SCR,NSPIMX,COST,TSAMP,D)
C
C CALCULATES DISTANCE BETWEEN TWO SPIKE TRAINS
C IN THE SPIKE INTERVAL METRIC BY A CONTINUUM
C MODIFICATION OF THE SELLERS ALGORITHM
C
C END CONDITIONS: THE FIRST AND LAST ISI ARE EXPANDED AS NEEDED
C TO MINIMIZE TOTAL COST
C
C INPUT VARIABLES:
C NSPI: NUMBER OF SPIKES IN TRAIN I
C TLI: LIST OF SPIKE TIMES IN TRAIN I
C NSPJ: NUMBER OF SPIKES IN TRAIN J
C TLJ: LIST OF SPIKE TIMES IN TRAIN J
C SCR: SCRATCH ARRAY -- NOTE THAT DIMENSION STARTS AT 0
C NSPIMX: FOR ADJUSTABLE DIMENSIONS
C COST: THE COST PER UNIT TIME TO MOVE A SPIKE
C TSAMP: THE LENGTH OF THE ENTIRE INTERVAL
C
DIMENSION SCR(0:NSPIMX+1,0:NSPIMX+1)
DIMENSION TLI(NSPIMX)
DIMENSION TLJ(NSPIMX)
C
C INITIALIZE MARGINS WITH COST OF ADDING AN INTERVAL
C
C THIS IS A BIT CLUMSY, SINCE ONE MUST ALWAYS HAVE
C AT LEAST ONE INTERVAL
C
NI=NSPI+1 !NUMBER OF INTERVALS
NJ=NSPJ+1
DO 1 I=0,NI
1 SCR(I,0)=I
DO 2 J=0,NJ
2 SCR(0,J)=J
C
C THE HEART OF THE ALGORITHM
C
DO 10 I=1,NI
IF ((I .EQ. 1) .AND. (I .EQ. NI)) DI=TSAMP
IF ((I .EQ. 1) .AND. (I .LT. NI)) DI=TLI(I)
IF ((I .GT. 1) .AND. (I .EQ. NI)) DI=TSAMP-TLI(I-1)
IF ((I .GT. 1) .AND. (I .LT. NI)) DI=TLI(I)-TLI(I-1)
DO 10 J=1,NJ
IF ((J .EQ. 1) .AND. (J .EQ. NJ)) DJ=TSAMP
IF ((J .EQ. 1) .AND. (J .LT. NJ)) DJ=TLJ(J)
IF ((J .GT. 1) .AND. (J .EQ. NJ)) DJ=TSAMP-TLJ(J-1)
IF ((J .GT. 1) .AND. (J .LT. NJ)) DJ=TLJ(J)-TLJ(J-1)
C
DIST=ABS(DI-DJ)
C
C LOOK FOR SPECIAL CASES AT THE ENDS
C
IEND=0
IF ((I .EQ. 1) .OR. (I .EQ. NI)) IEND=1
JEND=0
IF ((J .EQ. 1) .OR. (J .EQ. NJ)) JEND=1
IF ((IEND .EQ. 0) .AND. (JEND .EQ. 0)) GO TO 10
IF (IEND .EQ. 1) DIST=AMAX1(0.,DI-DJ) !CAN EXPAND AN END INTERVAL
IF (JEND .EQ. 1) DIST=AMAX1(0.,DJ-DI) !CAN EXPAND AN END INTERVAL
IF ((IEND .EQ. 1) .AND. (JEND .EQ. 1)) DIST=0.
10 SCR(I,J)=AMIN1(SCR(I-1,J)+1,SCR(I,J-1)+1,SCR(I-1,J-1)+COST*DIST)
C
D=SCR(NI,NJ)
C
RETURN
END
fortran语言能用matlab,Fortran语言转matlab语言相关推荐
- f2py支持在fortran语言中调用其他Fortran函数或C代码或Python代码
f2py支持在fortran语言中调用其他Fortran函数或C代码或Python代码 分类: Python Numpy_Scipy fortran MinGW_GCC_Boost f2py 2012 ...
- f77编程和c语言的区别,在fortran中l用F77编译器编译程序时出现问题?
高级语言.汇编语言.机器语言这三种语言统称"计算机语言".其中,机器语言是最低级的,是一串一串的电流表示"0001101010010110010101000110&quo ...
- C语言编程实现求解应力向量,基于MATLAB与Visual C 实现主应力的编程求解.doc
您所在位置:网站首页 > 海量文档  > 计算机 > matlab 基于MATLAB与Visual C 实现主应力的编 ...
- matlab m语言,我要编写matlab一个公式的m语言,请问错在哪里?,M语言的MATLAB的M语言...
导航:网站首页 > 我要编写matlab一个公式的m语言,请问错在哪里?,M语言的MATLAB的M语言 我要编写matlab一个公式的m语言,请问错在哪里?,M语言的MATLAB的M语言 匿名网 ...
- fortran matlab eng,[转载]关于MATLAB转FORTRAN的几点注意
1.关于主程序:需加implicit none,变量需定义,其他规则同一般程序,句末分号记得去掉.此处再着重提及一下变量声明,常量加parameter不用说,普通变量根据要求选择,外部子程序必要是需加 ...
- matlab expma,现代科学运算—MATLAB语言与应用-中国大学mooc-题库零氪
第1章 绪论 01-01 本课程的主要内容随堂测验 1. 2. 01-02 为什么学习计算机数学语言随堂测验 1. 2. 01-03 解析解与数值解随堂测验 1. A. B. C. D. 2. 01- ...
- matlab附合导线坐标计算,MATLAB语言及测绘数据处理应用
MATLAB语言及测绘数据处理应用 出版时间:2012年版 丛编项:普通高等院校测绘课程系列规划教材 内容简介 <普通高等院校测绘课程系列规划教材:MATLAB语言及测绘数据处理应用>以M ...
- 【MATLAB教程案例91】将MATLAB程序转化为C语言
欢迎订阅<FPGA学习入门100例教程>.<MATLAB学习入门100例教程> 目录 1.软件版本 2.将MATLAB程序转化为C语言 1.软件版本 matlab2021a
- matlab 二次曲面拟合,利用MATLAB结合C语言实现GPS高程二次曲面拟合
最小二乘法 c语言实现线性,matlab进行拟合及 熊志强+肖腾飞 摘 要:对GPS高程曲面拟合的研究有很多,通常人们实现GPS高程曲面拟合都是用单一的编程语言.而文章则介绍结合两种编程语言更加方便地 ...
- Matlab mod函数 对应C语言 函数
Matlab mod函数 对应C语言 函数 2010-09-10 23:43 Matlab中的mod函数,不同于C语言中的"%",在C中没有专门对应的函数. Matlab的mod函 ...
最新文章
- 51CTO下载IT类/程序类/开发类资源汇总
- 创智播客微服务_传智播客2018JavaEE IDEA版本
- lvm 多个硬盘合成一个_「ECS最佳实践」基于多块云盘构建LVM逻辑卷
- php文件上传指定路径,php上传文件到指定文件夹
- c++ 航空管理系统_浅谈航站楼能源管理系统的设计与应用
- Standard C++ Episode 10
- lightNLP:框架功能丰富,开箱即用
- 图神经网络(一)--综述
- 【MFC】多线程同步—事件
- 计算机表格外边框颜色怎么设置,#表格外部框线设置颜色#如何把excel里所有边框颜色改变...
- 苹果系统升级服务器,苹果操作系统升级 正式挥别PowerPC
- 周末不知道学什么?这份 Android 优秀技术文章清单请收下
- MacBookPro恢复出厂系统
- 软件工程 可行性研究、系统流程图、数据流图。
- CentOS升级PHP到8.0
- 数据库 Database
- 零输入响应与零状态响应响应
- 【免费SEO工具分享】长尾关键字挖掘器:外贸拓词长尾关键词挖掘工具
- npm安装私有指定路径的依赖包
- TextMeshPro创建中文字体库