<% Dim proof,ProofCostPerWord,Cover,CoverCost,ISBN,ISBNCost,LoC,LoCCost,WebPage,WebPageCost,Size1,ColorPages,PaperQuality,WordsOrPages Dim Size,WordsPerPage,PageInteriorColorCostMultiplier,PrintingMultiplier,TypographicalCostPerPage,InitialPages,PagesBandW,PricePerPageBandW,KnowedWords proof = Request.Form("proof") Cover = Request.Form("Cover") ISBN = Request.Form("ISBN") LoC = Request.Form("LoC") WebPage = Request.Form("WebPage") Size1 = Request.Form("Size1") PaperQuality= Request.Form("PaperQuality") WordsOrPages = Request.Form("WordsOrPages") ColorPages = Request.Form("ColorPages") Books = Request.Form("Books") HardCover = Request.Form("HardCover") KnowedWords = Request.Form("KnowedWords") 'Response.write(WordsOrPages) '---------- Inital conditions and parameters: ---------- IF proof = 1 THEN ProofCostPerWord = 0 ELSEIF proof = 2 THEN ProofCostPerWord = 0.010 ELSEIF proof = 3 THEN ProofCostPerWord = 0.02 ELSEIF proof = 4 THEN ProofCostPerWord = 0.03 END IF IF Cover = 1 THEN CoverCost = 150 ELSEIF Cover = 0 THEN CoverCost = 0 END IF IF ISBN = 0 THEN ISBNCost = 0 ELSEIF ISBN = 1 THEN ISBNCost = 60 END IF IF LoC = 0 THEN LoCCost = 0 END IF IF LoC = 1 THEN LoCCost = 30 END IF IF WebPage = 0 THEN WebPageCost = 0 END IF IF WebPage = 1 THEN WebPageCost = 100 END IF IF Size1= 1 THEN WordsPerPage = 250 END IF IF Size1= 2 THEN WordsPerPage = 350 END IF IF Size1= 3 THEN WordsPerPage = 800 END IF IF PaperQuality = 1 THEN PaperQualityMultiplier = 1 END IF IF PaperQuality = 2 THEN PaperQualityMultiplier = 1.1 END IF IF HardCover = 0 THEN HardCoverCost = 0 END IF IF HardCover = 1 THEN HardCoverCost = 10 END IF PageInteriorColorCostMultiplier = 5 PrintingMultiplier = 1.33 TypographicalCostPerPage = 0.5 InitialPages = 8 '---------- Editing Cost Calculation ---------- IF KnowedWords = 0 THEN Pages = WordsOrPages + InitialPages ELSE Pages = WordsOrPages / WordsPerPage + InitialPages END IF Words = (Pages - InitialPages) * WordsPerPage EditingCost = Words * ProofCostPerWord + CoverCost + ISBNCost + LoCCost + WebPageCost + Pages * TypographicalCostPerPage If Pages = 8 THEN EditingCost = 0 END IF '---------- Printing Cost Calculation ---------- IF Size1= 1 AND Books < 500 THEN InitialPrintingCost = -8.678500986*(10^-6)*(Pages^2)+ 0.0165*Pages*Books-8.678500986*(10^-6)*(Books^2)+4.211045365*(10^-3)*Pages+ 7.544674556*(10^-1)*Books+117.0968113 ELSEIF Size1= 1 AND Books => 500 THEN InitialPrintingCost = -1.82145965*(10^-16)*(Pages^3)-7.072298389*(10^-11)*(Pages^2)*Books+3.709108644*(10^-7)*Pages*(Books^2)+3.047420799*(10^-7)*(Books^3)+7.543813751*(10^-8)*(Pages^2)+1.264775424*(10^-2)*Pages*Books-1.107813402*(10^-3)*(Books^2)+1.350271753*Pages+1.807605978*Books-228.0654302 ELSEIF Size1= 2 AND Books < 500 THEN InitialPrintingCost = -2.169625247*(10^-6)*(Pages^2)+1.950177515*(10^-2)*Pages*Books-4.240631163*(10^-6)*(Books^2)+2.564102566*(10^-4)*Pages+0.871612426*Books+134.850263 ELSEIF Size1= 2 AND Books => 500 THEN InitialPrintingCost = -2.777777957*(10^-8)*(Pages^3)-9.280770596*(10^-17)*(Pages^2)*Books+5.39737336*(10^-7)*Pages*(Books^2)+2.7264*(10^-6)*(Books^3)+2.083333446*(10^-5)*(Pages^2)+1.472090056*(10^-2)*Pages*Books-9.409334334*(10^-3)*(Books^2)+1.656201011*Pages+9.961174859*Books-2491.318308 ELSEIF Size1= 3 AND Books < 500 THEN InitialPrintingCost = 9.624885642*(10^-17)*(Pages^2)+3.224970414*(10^-2)*Pages*Books+7.218664232*(10^-16)*(Books^2)-1.183431952*(10^-4)*Pages+8.247534517*(10^-1)*Books+142.234714 ELSEIF Size1= 3 AND Books => 500 THEN InitialPrintingCost = -2.777778061*(10^-8)*(Pages^3)+3.136807443*(10^-9)*(Pages^2)*Books+8.953777931*(10^-7)*Pages*(Books^2)+4.177066667*(10^-6)*(Books^3)+1.424603907*(10^-5)*(Pages^2)+2.433619724*(10^-2)*Pages*Books-1.443557778*(10^-2)*(Books^2)+2.750939312*Pages+14.89542001*Books - 3928.115119 END IF PricePerPageBandW = InitialPrintingCost / Pages IF ColorPages => 0 THEN PagesBandW = Pages - ColorPages END IF InitialPrintingCost = PagesBandW * PricePerPageBandW + ColorPages * PricePerPageBandW * 5 PrintingCost = InitialPrintingCost * PaperQualityMultiplier * PrintingMultiplier + Books * HardCoverCost TotalCost = EditingCost + PrintingCost If Pages = 8 THEN Pages = 0 END IF %> <% '---------- Printing Results ---------- 'Response.Write("ColorPages = " & ColorPages) & "
" 'Response.Write("EditingCost = " & EditingCost) & "
" 'Response.Write("PrintingCost = " & PrintingCost) & "
" 'Response.Write("TotalCost = " & TotalCost) & "
" 'PRINT PrintingCost 'PRINT TotalCost %> Book printing cost calculation

Alexandria Library
Calculadora para el costo detallado de edición e impresión de libros
Número de palabras o páginas   <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Conozco el número de palabras                  Ayuda
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Conozco el número de páginas 

 Número de palabras o de páginas
   
Corrección del texto   <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Ninguna                                                          Ayuda
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Ortográfica (1¢ / palabra)
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Ortográfica y gramatical (2¢ / palabra)
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Edición completa. (3¢ / palabra)
Diseño y preparación de portada   <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Sí ($150.00)                                                      Ayuda
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> No
Número ISBN   <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Sí ($60.00)                                                       Ayuda
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> No 
Número de la Biblioteca del Congreso de los EE.UU.   <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Sí ($30.00)                                                       Ayuda
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> No 
Página Web para su libro   <%Response.Write " checked=""checked"""%> <%End If%> type="radio">  $100 (Página Web permanente)                 .Ayuda
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> No  
Cantidad de ejemplares    Escriba una cantidad entre 10 y 1000                 Ayuda
  <%Response.write("value=100")%> <%else%> <%Response.write("value=" & Books)%> <%end if%> size="11"> <%'Response.write("Books= " & Books)%> <%'Response.End()%>
Formato   <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> 5-1/2 x 8-1/2                                                      Ayuda
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> 6 x 9
 <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> 11-1/2 x 11
Páginas a color    Número de páginas interiores a color                 Ayuda
  <%Response.write("value=0")%> <%else%> <%Response.write("value=" & ColorPages)%> <%end if%> size="11">   
Calidad del papel   <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Blanco                                                               Ayuda
 <%Response.Write " checked=""checked"""%> <%End If%>> Crema (El costo de impresión aumenta el 10%)
Portada de tapa dura   <%Response.Write " checked=""checked"""%> <%End If%> type="radio"> No                                                                      Ayuda
<%Response.Write " checked=""checked"""%> <%End If%> type="radio"> Sí ($10 adicional por ejemplar)


Costo final de su libro en USD

Páginas:     <%=FormatNumber(Pages,0)%>   (Se agregaron 8 páginas) Ver explicación
Edición:      <%=FormatCurrency(EditingCost,0)%>   (Se paga por la edición una sola vez)
Impresión:  <%=FormatCurrency(PrintingCost,0)%>   (En futuras tiradas se paga sólo la impresión)
  
TOTAL:    <%=FormatCurrency(TotalCost,0)%>       

Regresar

Pasos a seguir:

● Enviar el manuscrito por Correo ordinario, E-mail o "Subirlo" (upload) aquí ahora con su nombre y manera de comunicarnos con usted.
● Inmediatamente le enviaremos una cotización oficial.
● Para ordenar el trabajo, deposite el 50%. Enviar un cheque o Pagar aquí a través de tarjeta de crédito o PayPal
● Después de recibir el depósito editaremos su libro y le enviaremos la prueba aproximadamente en una semana.  Ver procedimiento
● Los libros quedarán impresos dentro de las próximas 2 semanas después de su aprobación final.
● Usted recibirá los libros previo pago del segundo 50%
 

¿Preguntas? Escriba a Alexandria Library
 

Otros servicios:
Libro electrónico ● Audio libro ● Traducción ● Escritor fantasma ● Promoción y venta ● Informe de lectura
 

© 1995-2009 Alexandria Library Incorporated. All rights reserved.
 
 

Curso de inglés americano
para hispanos
AutoInglés TOTAL
 www.alexlib.com/autoingles