Commits

Panagiotis Mavrogiorgos committed a47e635

Added KANEPE7a

Comments (0)

Files changed (12)

various/KANEPE7A/KANEPE7A.89z

Binary file added.

various/KANEPE7A/KANEPE7A.9xz

Binary file added.

various/KANEPE7A/KANEPE7A.tpr

+[Settings]
+Archive=0
+Flash OS=0
+Fargo=0
+Use Data Variable=0
+Data Variable=
+Copy Data Variable=1
+Copy Data Variable if Archived=1
+Pack=0
+Packed Variable=
+Project Name=kanepe7a
+GCC Switches=-Os -Wall -W -Wwrite-strings -ffunction-sections -fdata-sections
+GNU Assembler Switches=
+Assembler Switches=-g -t
+Debug Info=0
+Standard Library=1
+Initialize BSS=1
+Optimize NOPs=1
+Optimize Returns=1
+Optimize Branches=1
+Optimize Moves=1
+Optimize Tests=1
+Optimize Calculations=1
+Remove Unused Sections=1
+Cut Unused Ranges=1
+Reorder Sections=1
+Merge Constants=1
+Binary Output=0
+Command Line=
+Post-Build Process=
+[Library Options]
+Use TI-89=1
+Use TI-92 Plus=1
+Use V200=1
+Optimize Calc Consts=0
+Use Kernel=0
+Use PreOS=0
+Minimum AMS Version Defined=1
+Minimum AMS Version=1.00
+Unofficial OS Support=0
+Reloc Format=AMS
+ROM Call Format=Direct
+BSS Ref Format=Kernel
+Data Ref Format=Kernel
+Use F-Line Jumps=0
+Use 4-Byte F-Line Jumps=0
+Optimize ROM Calls=0
+Use Internal F-Line Emulator=0
+Use Return Value=0
+Enable Error Return=0
+Save Screen=1
+[File Editing]
+Open File=D:\TI89\KANEPE7A\main.c
+[Included Files]
+C File 1=main.c
+C File 2=dedomena.c
+C File 3=check.c
+C File 4=kanepe.c

various/KANEPE7A/KANEPE7A.v2z

Binary file added.

various/KANEPE7A/check.c

+#define MIN_AMS 205
+
+#include <tigcclib.h>
+
+int check (void)
+{
+			char buffer[50];
+			int temp;
+			printf("Continue           any key\n"
+				 		 "End                      5\n"
+				 		 "Repeat dedomena          9\n\n");
+			temp = atoi(gets(buffer));
+			clrscr();
+
+			return temp;
+}

various/KANEPE7A/check.o

Binary file added.

various/KANEPE7A/dedomena.c

+// C Source File
+// Created 1/5/2007; 12:01:32 ��
+
+#define MIN_AMS 205           // Compile for AMS 2.05 or higher
+
+#include <tigcclib.h>
+
+void dedomena ( double *d, double *b, double *delta2, double *fc, double *fy, double *Ey, double *Ec, double *Nd, double *rs1, double *rs2, double *rsv)
+{
+		char buffer[50];
+		
+		double As1, As2, Asv, d2;
+		
+		printf("Dose to d (mm)\n");
+		*d    = atof(gets(buffer));
+		printf("\nDose to b (mm)\n");
+		*b   = atof(gets(buffer));
+		printf("\nDose to d2 (mm)\n");
+		d2   = atof(gets(buffer));
+		printf("\nDose to fc (MPa)\n");
+		*fc  = atof(gets(buffer));
+		printf("\nDose to fy (MPa)\n");
+		*fy  = atof(gets(buffer));
+		printf("\nDose to Ey (MPa)\n");
+		*Ey  = atof(gets(buffer));
+		printf("\nDose to Ec (MPa)\n");
+		*Ec  = atof(gets(buffer));
+		printf("\nDose to As1 (mm2)\n");
+		As1  = atof(gets(buffer));
+		printf("\nDose to As2 (mm2)\n");
+		As2  = atof(gets(buffer));
+		printf("\nDose to Asv (mm2)\n");
+		Asv  = atof(gets(buffer));
+		printf("\nDose to Nd (KN)\n\n"
+					 "(thlipsi           +)\n"
+					 "(efelkismos        -)\n\n");
+		*Nd  = atof(gets(buffer));
+		ngetchx();
+		clrscr();
+
+		*rs1 = As1 / (*b) / (*d);
+		*rs2 = As2 / (*b) / (*d);
+		*rsv = Asv / (*b) / (*d);
+		*Nd = *Nd * 1000;
+		*delta2 = d2/(*d);
+
+}

various/KANEPE7A/dedomena.o

Binary file added.

various/KANEPE7A/kanepe.c

+// C Source File
+// Created 24/1/2010; 10:54:09 ��
+
+#include <tigcclib.h>
+
+void PhiY(double b, double d, double Es, double Ec, double fy, double fc, double rs1, double rs2, double rsv, double delta2, double N)
+{
+        double alpha, n_steel, n_conc;
+        double A_steel, B_steel, A_conc, B_conc;
+        double ksi_y_steel, ksi_y_conc, phi_y_steel, phi_y_conc;
+        double phi_y, ksi_y, M1, M2, M3, My;
+        
+        alpha = (Es / Ec);
+        n_steel = N / (b * d * fy);
+        n_conc  = N / (1.8 * alpha * b * d * fc);
+        
+        A_steel = rs1 + rs2 + rsv + n_steel;
+        B_steel = rs1 + rs2 * delta2 + 0.5 * rsv * (1 + delta2) + n_steel;
+        
+        A_conc =  rs1 + rs2 + rsv - n_conc;
+        B_conc = rs1 + rs2 * delta2 + 0.5 * rsv * (1 + delta2);
+
+        printf("As = %f\nBs = %f\nAc = %f\nBs = %f",A_steel, B_steel, A_conc, B_conc);
+        ngetchx();clrscr();
+        
+        ksi_y_steel = sqrt(pow(alpha,2) * pow(A_steel,2) + 2 * alpha * B_steel) - alpha * A_steel;
+        ksi_y_conc = sqrt(pow(alpha,2) * pow(A_conc,2) + 2 * alpha * B_conc) - alpha * A_conc;
+        
+        phi_y_steel = fy / (Es * (1 - ksi_y_steel) * d);
+        phi_y_conc = 1.8 * fc/ (Ec * ksi_y_conc * d);
+				
+				printf("ksi_y_s = %f\nksi_y_c = %f\nphi_y_s = %.8f\nphi_y_c = %.8f",ksi_y_steel, ksi_y_conc, phi_y_steel, phi_y_conc);
+        ngetchx();clrscr();
+				
+        if (phi_y_steel < phi_y_conc)
+        {
+        	  phi_y = phi_y_steel;
+            ksi_y = ksi_y_steel;
+            printf("Krisimos einai o xalivas\n");}
+        else
+        {
+        	  phi_y = phi_y_conc;
+            ksi_y = ksi_y_conc;
+            printf("Krisimo einai to ski/ma\n");}
+
+        M1 = Ec*pow(ksi_y,2)/2*(0.5*(1+delta2)-ksi_y/3);
+        M2 = (1-ksi_y)*rs1+(ksi_y-delta2)*rs2+(1-delta2)*rsv/6;
+        M3 = (1-delta2)*Es/2;
+        My = b*pow(d,3)*phi_y*(M1+M2*M3)/1000/1000;
+
+        printf("My (KNm) = %f",My);
+				ngetchx();clrscr();
+}

various/KANEPE7A/kanepe.o

Binary file added.

various/KANEPE7A/main.c

+#include <tigcclib.h>
+
+void dedomena ( double *d, double *b, double *delta2, double *fc, double *fy, double *Ey, double *Ec, double *Nd, double *rs1, double *rs2, double *rsv);
+void PhiY(double b, double d, double Es, double Ec, double fy, double fc, double rs1, double rs2, double rsv, double delta2, double N);
+int check (void);
+
+void _main(void)
+{
+		double fc, fy, d, b, delta2, Nd, Es, Ec, rs1, rs2, rsv;
+		int elegxos;
+	
+		dedom1:
+		clrscr();
+ 		dedomena (  &d, &b, &delta2, &fc, &fy, &Es, &Ec, &Nd, &rs1, &rs2, &rsv);
+		elegxos = check();
+		if ( elegxos == 5 ) goto end;
+		if ( elegxos == 9 ) goto dedom1;
+/*
+		d = 280;
+		b = 300;
+		delta2 = 20/d;
+		fc = 18;
+		fy = 400;
+		Es = 200000;
+		Ec = 28143.7;
+		Nd = 453600;
+		rs1 = 628/b/d;
+		rs2 = 628/b/d;
+		rsv = 0;
+    */
+    clrscr();
+    
+    PhiY( b,  d,  Es,  Ec,  fy,  fc,  rs1,  rs2,  rsv,  delta2,  Nd);
+
+
+		end:
+		;
+}
+
+
+	

various/KANEPE7A/main.o

Binary file added.