{{{#!gcode cpp
//VR software에서 화면 분할 관련 소스
void SubBackview()
{
glClear(GL_COLOR_BUFFER_BIT);
glColor3f(1.0f, 0.0f, 0.0f);
glBegin(GL_POLYGON);
glVertex3f(-0.5f, -0.5f, 0.0f);
glVertex3f(0.5f, -0.5f, 0.0f);
glVertex3f(0.5f, 0.5f, 0.0f);
glVertex3f(-0.5f, 0.5f, 0.0f);
glEnd();
glFlush();
}}}
//VR software에서 화면 분할 관련 소스
void SubBackview()
{
glClear(GL_COLOR_BUFFER_BIT);
glColor3f(1.0f, 0.0f, 0.0f);
glBegin(GL_POLYGON);
glVertex3f(-0.5f, -0.5f, 0.0f);
glVertex3f(0.5f, -0.5f, 0.0f);
glVertex3f(0.5f, 0.5f, 0.0f);
glVertex3f(-0.5f, 0.5f, 0.0f);
glEnd();
glFlush();
}
shBrushMatlab.js (12 KB))
sh3.js (3.01 KB))
shBrushFortran.js (3.91 KB))
$metatags=<<<META <link rel="stylesheet" type="text/css" href="$url_prefix/local/sh_3/styles/shCore.css" /> <link rel="stylesheet" type="text/css" href="$url_prefix/local/sh_3/styles/shThemeDefault.css" /> META;
close all;clear all;clc;
load SimOut1.dat;load SimOut2.dat;load SimOut3.dat;load SimOut4.dat;
% Plot t_current, xf, x_dotf, x_ddotf, Fs
figure(1) % Recoil Position
plot(SimOut1(:,1), SimOut1(:,2), 'g', ...
SimOut2(:,1), SimOut2(:,2),'k',...
SimOut3(:,1), SimOut3(:,2), 'r',...
SimOut4(:,1), SimOut4(:,2), 'b');
set(gcf,'Color',[1,1,1]);
xlabel('time(s)');
ylabel('Recoil length (m)');
legend('\beta=0', '\beta=0.5','\beta=0.7','\beta=1.5');
xlim([0, 0.21])
program mysplit character*80 line ! 라인의 최대 길이를 80으로 했습니다. character*4 fname ! 생성되는 파일 이름 integer lnum ! 줄 번호 integer fnum ! 생성된 파일 일련 번호 integer lines_per_file ! 생성되는 파일의 라인 수 character*1 char1, char2, char3 integer achar0 ! '0'의 아스키 코드 번호