matlab转化为fortran的方法,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
matlab转化为fortran的方法,Fortran语言转matlab语言相关推荐
- 期权定价matlab计算,期权的定价方法概述及利用matlab计算期权价格
期权的定价方法概述及利用matlab计算期权价格 摘要期权是功能最多.最激动人心的融衍生工具之一.期权定价问题一直是金融数学当中最复杂的问题之一,简要介绍几种基本的期权定价理论,并利用matlab金融 ...
- MCDM方法及matlab应用四:COPRAS 方法、案例及matlab应用
1.方法介绍 2.案例分析 一.方法介绍 COPRAS 方法是一种为了提高评估备选方案的整体效率而提出的多属性决策方法.要进行多属性决策,必须确定最重要的指标标准,评估备选方案并评估这些与标准相关的信 ...
- C语言实现MATLAB 6.5中M文件的方法
摘要:本文着重描述了运用MATLAB命令将M文件翻译为C语言程序,并修改为可直接调用的C语言函数的方法,使用该方法所需要注意的方法局限性和MATLAB版本差异的影响.运用该方法将能够使C语言能直接使用 ...
- WFDB软件包简介——ECG数据在Matlab下的读取/显示方法
转载自 http://pfyu.bokee.com/6946657.html ECG数据在Matlab下的读取/显示方法 WFDB软件包包含两大组件: 1.WFDB库,支持心电信号读取及分析: 2.W ...
- Compaq Visual Fortran 6.6 (Fortran编译器)
Compaq Visual Fortran 6.6 (Fortran编译器) 注册码:33106-060-1186591-00003 Visual Fortran 6.6为Fortran编译器类,Co ...
- matlab怎么与c语言接口,Matlab与C语言程序的应用编程接口 (2)
三.C语言程序MEX文件实例 MATLAB 5 API提供了一系列程序来处理MATLAB所支持的各种数据类型,每一种数据类型都有对应函数共你使用来处理对应的数据.下面给出一个简单的C语言程序和与之对应 ...
- matlab m语言,我要编写matlab一个公式的m语言,请问错在哪里?,M语言的MATLAB的M语言...
导航:网站首页 > 我要编写matlab一个公式的m语言,请问错在哪里?,M语言的MATLAB的M语言 我要编写matlab一个公式的m语言,请问错在哪里?,M语言的MATLAB的M语言 匿名网 ...
- python调用matlab函数_从 Python 调用 MATLAB 函数的三种方法
0. 实验环境Ubuntu 16.04 Matlab R2015b 1. 借助于 mlab 库 安装方法非常简单,只需一行命令 sudo pip install mlab 即可. import num ...
- 微分法MATLAB语言程序,matlab微积分运算命令与例题pdf
一.用Matlab进行微积分运算 直接在word计算 可以用notebook syms x n;s1=symsum(sin(x)/n^2, n,1, inf) s1 = (pi^2*sin(x))/6 ...
最新文章
- c4d+ps打造抽象NFT加密艺术 Create Abstract NFT Crypto Art with Cinema 4D + Photoshop
- powershell的一个小游戏,看看能写几种方式出来
- 新近爆出的runC容器逃逸漏洞,用户如何面对?
- 网站SEO优化该如何提高用户粘度?
- anaconda怎么运行python程序_Heartrate:如追综心跳般实时动态可视化监测Python程序运行...
- 【Redis】1.Redis入门简介以及基本操作命令
- mysql主从配置 简书_Mysql主从配置,实现读写分离-Go语言中文社区
- 抽象类和接口类的区别
- 《编程导论(Java)·9.3.1回调·3》回调的实现
- prim算法适用条件_内部排序算法的比较及应用
- 交叉编译工具链下载地址
- 如何从网页上下载页面嵌入的PDF文件
- 读书笔记_打开量化投资的黑箱08
- 全球地区选择,支持中英文切换。国家-省市-城市-地区
- 爬取某类网站并生成csv文件(人民邮电出版社书籍信息)
- 6. ROS编程入门--路径跟随(Trajectory following)
- 南京地铁行业发展策略与运营建设规模分析报告2022版
- 怎样以两种方式从Mac计算机上的启动板菜单中删除应用程序?
- 【转载】BAPI_GOODSMVT_CREATE FUNCITON FOR MIGO 各种移动类型 源代码参考
- python邮件管理
热门文章
- iView中Message与Notice消息提示警告内容进行换行
- caffe2实现多任务学习
- 现金日记账[Cash Journal][FBCJ][BAPI][BAdI]
- ERP渠道管理添加验证和查询(二十二)
- Viterbi算法类毕业论文文献有哪些?
- linux vim 搜索关键词,在Vim/Vi中搜索关键字就这么简单
- 关于12306火车票销售的简单思考
- Ambassador系列-11-Helm安装Ambassador Edge Stack 1.1.0
- TwinCAT3 PLC多轴编程的方法
- datax 高级_Datax3.0使用说明