コメント一覧
まえへ つぎへ64 投稿者：名無しさん 2019/12/05 12:57:14
65 投稿者：名無しさん 2019/12/05 12:58:02
66 投稿者：名無しさん 2019/12/09 09:54:25
#define _WINSOCK_DEPRECATED_NO_WARNINGS
#include <WinSock2.h>
#include <stdio.h>
#include<stdlib.h>
#include<string.h>
#include<conio.h>
int main(){
SOCKET listen_s;
SOCKET s;
WSADATA wsaData;
SOCKADDR_IN saddr, from;
char szBuf[1024];
int fromlen;
int nRcv;
u_short uport;
printf("ポート番号：");
gets_s(szBuf);
uport = atoi(szBuf);
if (WSAStartup(MAKEWORD(2, 2), &wsaData)){
printf("WSAStartup関数失敗\n");
WSACleanup();
return -1;
}
listen_s = socket(AF_INET, SOCK_STREAM, 0);
if (listen_s < 0){
printf("ソケットオープン失敗\n");
WSACleanup();
return -1;
}
listen_s = socket(AF_INET, SOCK_STREAM, 0);
if (listen_s < 0){
printf("ソケットオープンエラー\n");
WSACleanup();
return -2;
}
else{
printf("ソケットオープン完了");
}
memset(&saddr, 0, sizeof(SOCKADDR_IN));
saddr.sin_family = AF_INET;
saddr.sin_port = htons(uport);
saddr.sin_addr.s_addr = INADDR_ANY;
if (bind(listen_s, (struct sockaddr *)&saddr, sizeof(saddr)) == SOCKET_ERROR){
printf("バインディングエラー");
closesocket(listen_s);
WSACleanup();
return -3;
}
else{
printf("バインディング完了\n");
}
if (listen(listen_s, 0) == SOCKET_ERROR){
printf("Listen移行失敗\n");
closesocket(listen_s);
WSACleanup();
return -4;
}
else{
printf("Listen移行完了\nAccept状態へ遷移\n");
}
fromlen = (int)sizeof(from);
s = accept(listen_s, (SOCKADDR *)&from, &fromlen);
if (s == INVALID_SOCKET){
printf("接続失敗");
closesocket(listen_s);
WSACleanup();
return -5;
}
else{
printf("%sから接続\n", inet_ntoa(from.sin_addr));
printf("アクセプト完了\n送受信開始\n\n");
}
closesocket(listen_s);
while (1){
printf("\n受信待機...\n");
nRcv = recv(s, szBuf, sizeof(szBuf) - 1, 0);
if (nRcv == SOCKET_ERROR){
printf("受信エラー\n");
break;
}
szBuf[nRcv] = '\0';
if (strcmp(szBuf, "c_end") == 0){
printf("クライアント：接続切断\n");
break;
}
send(s, szBuf, (int)strlen(szBuf), 0);
}
shutdown(s, SD_BOTH);
closesocket(s);
WSACleanup();
printf("サーバー終了\n");
_getch();
return 0;
}
67 投稿者：名無しさん 2019/12/10 11:39:25
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#define C 4
#define Cn C+1
#define Cnn 2*C+1
void yacobi(float A[Cn][Cn],float X[Cn],float B[Cn])
{
int i,j;
float tmp,err;
do {
err=0.0;
for(i=0;i<Cn;i++) {
tmp=B[i];
for(j=0;j<Cn;j++)
if(i!=j) tmp-=A[i][j]*X[j];
tmp/=A[i][i];
err+=fabs(tmp-X[i]);
X[i]=tmp;
}
} while(err>1.0e-6);
}
int main(void)
{
int i,j,N;
float sx[Cnn],sy[Cnn],tx,ty,t;
float A[Cn][Cn],X[Cn],B[Cn];
float x[100],y[100];
FILE *fp;
if((fp=fopen("191210_1.dat","r"))==NULL){
printf("cannot open file\n");
exit(0);
}
i=0;
while( fscanf(fp,"%f %f",&x[i],&y[i])!=EOF )
i++;
N=i;
for(i=0;i<Cnn;i++) sx[i]=sy[i]=0.0;
for(i=0;i<N;i++) {
for(j=0;j<Cnn;j++) {
if(j==0) tx=1.0; else tx*=x[i];
sx[j]+=tx;
}
for(j=0;j<Cn;j++) {
if(j==0) ty=y[i]; else ty*=x[i];
sy[j]+=ty;
}
}
for(i=0;i<Cn;i++) {
for(j=0;j<Cn;j++) A[i][j]=sx[i+j];
X[i]=1.0;
B[i]=sy[i];
}
yacobi(A,X,B);
for(i=0;i<Cn;i++) {
if(i==0) printf("y=%.1f",X[0]);
else {
if(X[i]>0.0) printf("+");
printf("%.1f*x",X[i]);
}
if(i>1) printf("^%d",i);
}
printf("\n");
for(i=0;i<N;i++) {
t=X[2];
for(j=1;j>=0;j--) t=t*x[i]+X[j];
printf("%f %f(%f)\n",x[i],y[i],t);
}
}
/*
[e152137@ei1-pc14 ~]$ a.out
y=8.0-23.9*x+21.9*x^2-8.0*x^3+1.0*x^4
0.000000 8.000000(7.993975)
0.500000 0.563000(1.504619)
1.000000 -1.000000(5.982754)
1.500000 -0.438000(21.428379)
2.000000 0.000000(47.841499)
2.500000 -0.438000(85.222107)
3.000000 -1.000000(133.570206)
3.500000 0.563000(192.885788)
4.000000 8.000000(263.168884)
*/
68 投稿者：名無しさん 2019/12/10 14:50:02
まず現代日本においてなにが古典で、古典の価値とは何かについてである。文学において古典とは古い書物であるだけではない。高い評価を受け長きにわたり読み継がれることによって「世の中を変えてきたもの」。これは「表現・美意識・民族の感性に影響を与えてきたもの」ということであり、現代の日本民族・文化においての伝統的思考や意識、哲学的思想そのものが記録されているものと解釈することができる。
さて日本には神道の根幹とも言える独特な神に対する視点があり、今回の話題はソレ「八百万の神」についてである。古くは「古事記」上巻の「天の岩戸」が初見であり、他にも同様の総称として八十諸神・八十万神・八十万群神などが「日本書紀」「万葉集」などに見られる。コレが日本文化に及ぼしてきた影響はとても大きく、妖怪を例にとってもその影をいろいろなところに見出すことができる。
宮崎駿の「もののけ姫」では長く生きた猪が「猪神」は「伊勢物語」に登場する「付喪神」、「祟り神」は「日本書紀」、アシタカ自身は鬼と呼ばれるなど、様々なものを垣間見ることができる。
69 投稿者：名無しさん 2019/12/16 10:07:54
70 投稿者：名無しさん 2019/12/16 10:11:13
#define _WINSOCK_DEPRECATED_NO_WARNINGS
#define WIN32_LEAN_AND_MEAN #define MY_MSG (WM_USER + 1) #define MAX_RECORD 64 * 1024
#include <windows.h> #include <windowsx.h> #include <winsock2.h> #include "resource.h"
BOOL CALLBACK MYClient Proc(HWND, VINT, WPARAM, LPARAM); char szAppName[] = "5547/ "; BOOL bSocket = FALSE; //DDV HINSTANCE hinst;
int WINAPI WinMain(HINSTANCE hCurInst, HINSTANCE hPrevInst, LPSTR IpsCmdLine, int nCmdShow)
WSADATA wsaData;
hinst = hCurInst;
if (WSAStartup (MAKEWORD(1, 1), &wsaData) != 0) {
MessageBox(NULL, TEXT("75- 7 748"), szAppName, MB_OK);
return -1;
DialogBox(hCur Inst, TEXT("CLIENT”), NULL, (DLGPROC)MyClient Proc); if (WSACleanup() != 0) {
MessageBox(NULL, TEXT("51-7 86"), szAppName, MB_OK);
return -2;
return 0;
//ダイアログボックスのプロシージャ BOOL CALLBACK MYClient Proc(HWND hDlg, UINT msg, WPARAM wp, LPARAM Ip)
static SOCKET S; u_short port; unsigned int address; char szServer[64]; HOSTENT *|pHost Ent; BOOL bSuccess; static SOCKADDR_IN addr; int ntn, nError, nEvent; int addrlen; char szBuf [1024], szTemp[1024]; static char szAT I Buf [MAX_RECORD], szName[64]; static BOOL bFirst = TRUE; HICDN hlcon; static BOOL bSanka = FALSE;
1 COHOL TI3D2
switch (msg) { case WM_INITDIALOG:
hlcon = (HICON) LoadImage(hInst, TEXT("MYICON"), IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR | LR_SHARED); SendMessage(HD18, WM_SETICON, (WPARAM) ICON_BIG, (LPARAM)hIcon); EnableWindow(GetDigItem(hD18, IDC_SENDBTN), FALSE); SendMessage(Get DigItem(hDls, IDC_INFO), EM LIMITTEXT, (WPARAM) MAX_RECORD, 0); SendMessage(GetDI&Item(hDlg, IDC_SEND), EM LIMITTEXT, (WPARAM)1024,0); return TRUE;
case MY_MSG:
nEvent = WSAGETSELECTEVENT(IP); switch (nEvent) {
case FD_READ:
addrlen = (int) sizeof (addr); nRtn = recyfrom(s, szBuf, (int)sizeof (szBuf) - 1, 0, (SOCKADDR *)&addr, &addrlen); if (nRtn == SOCKET_ERROR) {
MessageBox(hD18, TEXT("RII5-"), szAppName, MB_OK);
return TRUE;
szBuf [nRtn] = '\0'; if (strcmp(szBuf, "A 7 1054 analt=") == 0) {
bSanka = TRUE;
wsprintf(szTemp, TEXT("%s\r\n"), szBuf); strcat_s(SZALIBuf, szTemp); Set DigItemText (hD1g, IDC_INFO, SZAllBuf);
SendMessage(GetDigItem(hD1g, IDC_INFO), EMLLINESCROLL, 0, Edit_GetLineCount (GetDigItem(hDig, IDC_INFO))); if ((int)strlen(SZAI IBuf) > MAX_RECORD -1024)
MessageBox(hDlg, TEXT("/ 776UTLET"), szAppName, MB_OK); strcpy_s(szAI IBuf, ""); Set WindowText (GetDigItem(hDls, IDC_INFO), SZALIBuf);
if (strcmp(szBuf, " -/-TA1473 ") == 0) {
MessageBox(hDlg, TEXT("* $3-014 til"), SZAppName, MB_OK); EnableWindow(GetDI&Item(hDig, IDC_SENDBTN), FALSE); EnableWindow(GetDigItem(hDig, IDC_START), TRUE); SendMessage(GetDigItem(hD1g, IDC_PORT), EM_SETREADONLY, (WPARAM) FALSE, 0); SendMessage(GetDigItem(hDlg, IDC_SERVER), EM_SETREADONLY, (WPARAM)FALSE, 0); SendMessage(GetDigItem(hDlg, IDC_NAME), EM_SETREADONLY, (WPARAM) FALSE,
0);
SetFocus(GetDigItem(hD1g, IDC_START));
bFirst = TRUE;
return TRUE;
break;
return TRUE; case WM_COMMAND:
switch (LOWORD (wp)) {
case IDOK:
case IDCANCEL:
nRtn = MessageBox(hDig, TEXT("X71T+£3L11CT1"), szAppName, MB_OKCANCEL | MB_ICONQUESTION); if (nRtn == IDCANCEL) {
return TRUE;
if (bSocket) { if (bSanka) {
wsprintf(szBuf, TEXT("#%s"), szName); addrlen = (int) sizeof (addr); sendto(s, szBuf, (int)strlen(szBuf), 0, (SOCKADDR *)&addr, addrlen); bSanka = FALSE;
if (closesocket (s) != 0) {
MessageBox(hD18, TEXT("VTTO20-ZAR"), szAppName, MB_OK);
1
EndDialog(hDig, IDOK);
return TRUE;
case IDC_SENDBTN:
Get DigItemText (hDig, IDC_SEND, szBuf, sizeof (szBuf)); if (strcmp(szBuf, "") == 0) {
MessageBox(hDig, TEXT("f052anthith"), szAppName, MB_OK); return TRUE;
if (bFirst) {
wsprintf(szTemp, TEXT("!%s+%s"), szName, szBuf); strcpy_s(szBuf, szTemp);
bFirst = FALSE; } else {
wsprintf(szTemp, TEXT("%s:%s"), szName, szBuf); strcpy_s(szBuf, szTemp);
addrlen = (int) sizeof(addr);
nRtn = sendto(s, szBuf, (int)strlen(szBuf), 0, (SOCKADDR *)&addr, addrlen);
if (nRtn == SOCKET_ERROR) {
MessageBox(hDIĘ, TEXT(31E*BCT"), szAppName, MB_OK); return TRUE;
SetDigItemText (hD1g, IDC_SEND, ""); SetFocus(GetDigItem(hDig, IDC_SEND));
return TRUE;
case IDC_START:
port - (u_short)GetDigItem Int (hDlg, IDC_PORT, &Success, FALSE); if (port == 0) {
MessageBox(HD18, TEXT("fi- *EDTECT"), szAppName, MB_OK);
return TRUE; } GetDI&ItemText (hD1g, IDC_SERVER, szServer, (int)sizeof (szServer)); if (strcmp(szServer, "") == 0) {
MessageBox (hDig, TEXT("#-)1-BOTECT"), szAppName, MB_OK); return TRUE;
GetDigItemText (hDig, IDC_NAME, szName, (int)sizeof (szName)); if (strcmp(szName, "") == 0) {
MessageBox(hD18, TEXT("IDÍTETT"), szAppName, MB_OK);
return TRUE;
IpHost Ent = gethostbyname(szServer); if (IpHost Ent == NULL) {
address = inet_addr(szServer); IpHostEnt = gethostbyaddr((char *)&address, 4, AF_INET);
if (IpHostEnt == NULL) {
MessageBox(hD1g, TEXT("#-/&T
t h'), szAppName, MB_OK);
return TRUE;
memset (&addr, 0, sizeof (addr)); addr.sin port = htons(port); addr.sin family - AF_INET; addr.sin_addr.s_addr = *((unsigned long *) IpHost Ent->h_addr); S = socket (AF_INET, SOCK_DGRAM, 0);
if (s == INVALID_SOCKET) {
MessageBox(hDls, TEXT("VT+*-7712th"), szappName, MB_OK);
return TRUE;
bSocket = TRUE; notn - WSAAsyncSelect (s, hDig, MY_MSG, FD_READ | FD_WRITE);
if (nRtn == SOCKET_ERROR)
nError = WSAGet Last ErrorO;
if (nError != WSAEWOULDBLOCK) {
MessageBox (hDig, TEXT("IO closesocket(s); bSocket = FALSE;
LA"), szAppName, MB_OK);
EnableWindow(GetDigItem(hDig, IDC_START), FALSE); EnableWindow(GetDigItem(hD1g, IDC_SENDBTN), TRUE); SendMessage(GetDigItem(hDlg, IDC_PORT), EM SETREADONLY, (WPARAM) TRUE, 0); SendMessage(GetDigItem(hDig, IDC_SERVER), EM_SETREADONLY, (WPARAM) TRUE, 0); SendMessage(GetDigItem(hDig, IDC_NAME), EM_SETREADONLY, (WPARAM) TRUE, 0); Set Focus(GetDigItem(hD1g, IDC_SEND));
return TRUE;
return FALSE;
return FALSE;
71 投稿者：名無しさん 2019/12/16 16:36:08
72 投稿者：名無しさん 2019/12/16 16:36:26
73 投稿者：名無しさん 2019/12/16 16:36:42
