Здание уже построено. Как туда запихать рулонную гидроизоляцию?
Saur : В местах оголения арматуры выполнить торкретирование.
Чтобы выполнить торкретирование нужно откапывать снизу всю поверхность ПОДОШВЫ ростверка... А как потом засыпать? трамбовать?
Saur : Поэтому и смысла ее делать уже нет
Смыс есть. Если не ошибаюсь, по нормам, при наличии подготовки толщину защитного слоя арматуры можно запроектировать тоньше.
Но у нас другой случай, ...дело не в толщине защитного слоя, а в его наличии. Подготовки нет. Поверхность низа ростверка неровная (идет волнами) и в связи с этим в некоторых местах оголена арматура, т.е. в некоторых местах отсутствует защитный слой.
целиком, я думаю. Тут дело не в жесткости секций, а во влиянии ширины здания на ветровой поток, а он не знает - есть там деформационный шов или нет его.
я чот читал-читал и не сильно понимал в чем именно проблема. Но если я правильно её понял (нужно дать шкалу соответствия цвета элементов схемы ИМЕНАМ жесткостей) - то совет DENver'а по-моему очень хорош, на самом деле.
uvl77 : Смыс есть. Если не ошибаюсь, по нормам, при наличии подготовки толщину защитного слоя арматуры можно запроектировать тоньше.
Да вы что прикалываетесь? Вы в уже готовом здании хотите отрыть фундамент, чтобы сделать подготовку которая уменьшит защитный слой? И зачем вам засыпать и трамбовать то, что будет заторкретировано? Откапываете нужное количество грунта под фундаментом, очищаете поверхность низа подошвы, подкладываете гидроизоляцию и производите процесс торкретирования. Дальше засыпаете всё и отчитываетесь о проделанной работе.
Цитата : высокие решетчатые ригели из труб увеличивают отапливаемый объем здания, т.е. стоимость эксплуатации здания увеличивается
Как мне объяснял наш ОВшник - отапливается не объем, а площадь стен/покрытия и т.д. И вот в одном здании менял фермы на сварные двутавры, "сэкономил" метр высоты здания (опустил крышу то ли с 11 до 10, то ли с 10 до 9) и попросил ОВшника прикинуть, насколько снизится расход отопления. Получилось что-то в районе единичных процентов. Так что тут скорее на сэндвичах стеновых экономия получается и на сечении фахверковых стоек, чем на отоплении[/OFFTOP]
Добрый вечер. Нужен алгоритм проверки dwg файла. Имеется стандарт, те определенные стили, слои, шрифты. Те должно все соответствовать кодификатору. Имеется код, вроде все библиотеки прописал. Но никак не хочеn работать. При запуске функции контрол, выскакивает ошибка cant find project or library , в самом коде подсвечена строка Sub CodificatorCheck(). Подскажите где ошибка. __________________________________________ сам код control.dvb
Код:
Option Explicit Public strCon As String Public strMsg As String Public strError As String Public strTemp As String Public strTempNew As String Public strStyle As String Public strHeight As String Public strAngle As String Public strPrintLine As String Public blnCancel As Boolean Public blnWrite As Boolean Public blnNext As Boolean Public blnChange As Boolean Public blnBadLayer As Boolean Public blnBadType As Boolean Public blnBadTxtSt As Boolean Public blnBadLineType As Boolean Public blnBadBlocks As Boolean Public blnStop As Boolean Public blnClose As Boolean Public blnExistMenu As Boolean Public blnLayer As Boolean Public blnClear As Boolean Public blnType As Boolean Public blnTxtSt As Boolean Public blnLineSt As Boolean Public blnBlocks As Boolean Public blnOpen As Boolean Public blnCodif As Boolean Type ControlEntity AcLayer As String AcType As String AcName As String AcColor As Integer AcWeight As Double AcTextHeight As Double End Type Type ElementEntity objEl As AcadEntity blnL As Boolean blnT As Boolean blnC As Boolean blnN As Boolean blnW As Boolean blnH As Boolean blnSum As Integer objRule As ControlEntity End Type Public arrControlCodif() As ElementEntity Public arrControlEntity() As ControlEntity Type ControlLayer Layer As String arrControlProperty() As ControlEntity End Type
Public arrControlLayer(1 To 49) As ControlLayer
Public ColLayers As Collection Public ColTextStyles As Collection Public ColBlocks As Collection Public ColTypes As Collection Public ColLineStyles As Collection Public ColBadLayers As New Collection Public ColBadBlocks As New Collection Public ColBadLineTypes As New Collection Public ColBadTextStyles As New Collection Public ColBadTypes As New Collection Public ColBadEntity As New Collection Const PI = 3.14159265
Sub ContinueControl() If blnCodif = True Then CodificatorCheck Else ResourceCheck End If End Sub
Sub ResourceCheck()
Dim strName As String Dim intCounter As Integer Dim blnCodifElem As Boolean Dim blnFind As Integer 'On Error GoTo ErrHandler
strPrintLine = "" Set ColBlocks = New Collection Set ColLayers = New Collection Set ColTextStyles = New Collection Set ColTypes = New Collection Set ColLineStyles = New Collection Set ColBadLayers = New Collection Set ColBadTypes = New Collection Set ColBadEntity = New Collection Set ColBadLineTypes = New Collection ThisDrawing.PurgeAll ZoomExtents 'frmControl.flxList.CollapseAll
'удаление всех наборов If ThisDrawing.SelectionSets.Count <> 0 Then For intCounter = ThisDrawing.SelectionSets.Count - 1 To 0 Step -1 ThisDrawing.SelectionSets(intCounter).Delete Next End If If blnExistMenu = False Then Continue
For intCounter = 1 To ThisDrawing.Linetypes.Count - 1 If ThisDrawing.Linetypes(intCounter).Name = "CONTINUOUS" Then blnFind = 1 strCon = "CONTINUOUS" Exit For End If Next If blnFind = 0 Then strCon = "Continuous"
SuiteCollection 'проверка на незарезервированные уровни blnBadLayer = True blnLayer = True ' Do While blnBadLayer = True frmErrList.Show ' If blnStop = True Then Exit Do If blnStop = True Then Continue Exit Sub End If ' Loop blnLayer = False
'Дальше If blnBadLayer = False Then blnClear = True 'проверка на незарезервированные типы элементов If blnClear = True Then blnType = True frmErrList.Show If blnStop = True Then Continue Exit Sub End If
blnType = False End If
'Текстовые стили If blnBadType = False And blnBadLayer = False Then blnClear = True If blnClear = True Then blnTxtSt = True frmErrList.Show If blnStop = True Then Continue Exit Sub End If
blnTxtSt = False End If 'Стили линий If blnBadType = False And blnBadLayer = False And blnTxtSt = False Then blnClear = True If blnClear = True Then blnLineSt = True frmErrList.Show If blnStop = True Then Continue Exit Sub End If
blnLineSt = False End If 'Блоки If blnBadType = False And blnBadLayer = False And blnTxtSt = False Then blnClear = True If blnClear = True Then blnBlocks = True frmErrList.Show If blnStop = True Then Continue Exit Sub End If
blnBlocks = False End If
If blnStop = False Then blnClose = True Continue 'If blnClose = False Then 'UnloadDVB "c:\Common\AutoCAD 2006eng\MenuFile\Кодификатор_500_2005\Control.dvb" 'End If
End Sub Sub CodificatorCheck() Dim intCounter As Long Dim intCounter1 As Integer Dim intCount As Integer Dim intC As Integer Dim intCount1 As Long Dim SSetObj As AcadSelectionSet Dim mode As Integer Dim acObj As AcadObject Dim entObj As AcadEntity Dim txtObj As AcadText Dim blObj As AcadBlockReference Dim mlnObj As AcadMLine Dim blnFind As Integer Dim blnLay As Boolean Dim blnTyp As Boolean Dim blnCol As Boolean Dim blnName As Boolean Dim blnTextHei As Boolean Dim blnWei As Boolean Dim blnTxt As Boolean Dim blnMline As Boolean Dim blnAdd As Integer Dim blnJust As Boolean blnCodif = False strPrintLine = "" Set ColBlocks = New Collection Set ColLayers = New Collection Set ColTextStyles = New Collection Set ColTypes = New Collection Set ColLineStyles = New Collection Set ColBadLayers = New Collection Set ColBadTypes = New Collection Set ColBadEntity = New Collection Set ColBadLineTypes = New Collection ThisDrawing.PurgeAll ZoomExtents 'frmControl.flxList.CollapseAll
'удаление всех наборов If ThisDrawing.SelectionSets.Count <> 0 Then For intCounter = ThisDrawing.SelectionSets.Count - 1 To 0 Step -1 ThisDrawing.SelectionSets(intCounter).Delete Next End If If blnExistMenu = False Then Continue
For intCounter = 1 To ThisDrawing.Linetypes.Count - 1 If ThisDrawing.Linetypes(intCounter).Name = "CONTINUOUS" Then blnFind = 1 strCon = "CONTINUOUS" Exit For End If Next If blnFind = 0 Then strCon = "Continuous"
'Формирование коллекций SuiteCollection If LoadData = True Then
Set SSetObj = ThisDrawing.SelectionSets.Add("SC")
mode = acSelectionSetAll SSetObj.Select mode
For intCounter = 0 To SSetObj.Count - 1 Set acObj = SSetObj(intCounter) If TypeOf acObj Is AcadEntity Then Set entObj = acObj blnLay = False blnAdd = 0 blnFind = 0 intC = 0 For intCounter1 = 1 To UBound(arrControlLayer) If entObj.Layer = arrControlLayer(intCounter1).Layer Then blnLay = True
If intCount1 = 0 Then ReDim arrControlCodif(1 To 1) intCount1 = 1 arrControlCodif(intCount1).blnSum = 0 End If
For intCount = 1 To UBound(arrControlLayer(intCounter1).arrControlProperty) blnTyp = False blnCol = False blnName = False blnTextHei = False blnWei = False blnTxt = False blnMline = False blnJust = False intC = 1 If Right(entObj.ObjectName, Len(entObj.ObjectName) - 4) = arrControlLayer(intCounter1).arrControlProperty(intCount).AcType Then blnTyp = True intC = intC + 1 If entObj.color = arrControlLayer(intCounter1).arrControlProperty(intCount).AcColor Then blnCol = True intC = intC + 1 End If If Right(entObj.ObjectName, Len(entObj.ObjectName) - 4) = "Text" Then blnTxt = True Set txtObj = entObj If txtObj.StyleName = arrControlLayer(intCounter1).arrControlProperty(intCount).AcName Then txtObj.Linetype = strCon blnName = True intC = intC + 1 End If If txtObj.Height = arrControlLayer(intCounter1).arrControlProperty(intCount).AcTextHeight Then blnTextHei = True End If ElseIf Right(entObj.ObjectName, Len(entObj.ObjectName) - 4) = "BlockReference" Then Set blObj = entObj If blObj.Name = arrControlLayer(intCounter1).arrControlProperty(intCount).AcName Then blnName = True intC = intC + 1 blObj.Linetype = strCon End If ElseIf Right(entObj.ObjectName, Len(entObj.ObjectName) - 4) = "Mline" Then blnMline = True Set mlnObj = entObj If mlnObj.StyleName = arrControlLayer(intCounter1).arrControlProperty(intCount).AcName Then blnName = True intC = intC + 1 mlnObj.Linetype = strCon End If If mlnObj.StyleName = "M5_138" And mlnObj.Justification = acBottom Then blnJust = True intC = intC + 1 End If If mlnObj.StyleName <> "M5_138" And mlnObj.Justification = acZero Then blnJust = True intC = intC + 1 End If Else strTemp = entObj.Linetype If entObj.Linetype = strCon Then strTemp = UCase(entObj.Linetype) If strTemp = arrControlLayer(intCounter1).arrControlProperty(intCount).AcName Then blnName = True intC = intC + 1 End If End If If entObj.Lineweight = arrControlLayer(intCounter1).arrControlProperty(intCount).AcWeight Then blnWei = True intC = intC + 1 End If
If blnTyp = True And blnCol = True And blnName = True And blnWei = True Then
If (blnTxt = False And blnMline = False) Or (blnTxt = True And blnTextHei = True) Or (blnMline = True And blnJust = True) Then blnFind = 1 Exit For End If End If End If 'Ввод элемента в массив If intC > 0 And blnFind = 0 Then If blnAdd = 0 Then intCount1 = intCount1 + 1 ReDim Preserve arrControlCodif(1 To intCount1) End If
If arrControlCodif(intCount1).blnSum < intC Then 'добавить Set arrControlCodif(intCount1).objEl = entObj arrControlCodif(intCount1).objRule = arrControlLayer(intCounter1).arrControlProperty(intCount) arrControlCodif(intCount1).blnL = blnLay arrControlCodif(intCount1).blnT = blnTyp arrControlCodif(intCount1).blnC = blnCol arrControlCodif(intCount1).blnN = blnName arrControlCodif(intCount1).blnW = blnWei If blnTxt = True Then arrControlCodif(intCount1).blnH = blnTextHei If blnMline = True Then arrControlCodif(intCount1).blnH = blnJust arrControlCodif(intCount1).blnSum = intC blnAdd = 1 End If End If Next 'Property End If 'уровень
If blnFind = 1 Then If blnAdd = 1 Then intCount1 = intCount1 - 1 ReDim Preserve arrControlCodif(1 To intCount1) End If Exit For End If Next 'уровень If blnLay = False Then MsgBox "В файле имеются объекты на незаявленных уровнях!" & vbNewLine & "Запустите программу проверки ресурсов.", vbCritical + vbOKOnly, "ВНИМАНИЕ!" SSetObj.Delete Exit Sub End If
End If
Next SSetObj.Delete End If
'GroupString strMsg 'If strMsg <> "" Then blnCodif = True frmErrList.Show End Sub Function SuiteCollection() 'формирование коллекции типов GRII_Types ColTypes
'формирование коллекции слоев GRII_Layers ColLayers
'формирование коллекции текстовых стилей GRII_TextStyles ColTextStyles
'формирование коллекции блоков GRII_Blocks ColBlocks
'формирование коллекции блоков GRII_LineType ColLineStyles
End Function Sub GRII_Types(ColTypes As Collection)
ColLayers.Add "60_Отметки высот на зданиях и сооружениях" ColLayers.Add "61_Отметки высоты поверхности" ColLayers.Add "62_Отметки высоты уреза воды и дна водоемов"
'слои с заливками 'обязательные
ColLayers.Add "28_Заливка подвальных окон" ColLayers.Add "29_Заливка бетонных и металлических опор" ColLayers.Add "50_Заливка камер и шахт на канализации" ColLayers.Add "51_Заливка камер на водопроводе" ColLayers.Add "52_Заливка камер на теплосети" ColLayers.Add "53_Заливка камер на газопроводе" ColLayers.Add "54_Заливка камер на трубопроводах спецназначения" ColLayers.Add "55_Заливка камер на телефонной канализации" ColLayers.Add "56_Заливка габаритов кабельных колодцев" ColLayers.Add "57_Заливка туннельной канализации"
'поиск ресурса в списке зарезервированных Function FindItem(strItem As String, Col As Collection) As Boolean Dim intCounter As Integer For intCounter = 1 To Col.Count If Col(intCounter) = strItem Then FindItem = True Exit Function End If Next End Function
Function LoadData() As Boolean
Dim intF As Integer Dim strCol As New Collection Dim intCounter As Integer Dim intCount1 As Integer Dim intCount2 As Integer Dim Col As Collection Dim strS As String
'считываем содержимое *.csv - файла
intF = FreeFile 'Open "C:\Common\Bentley\Workspace\Projects\500\dgnlib\GRII500.csv" For Input As intF Open "C:\Common\AutoCAD 2006Eng\MenuFile\Кодификатор_500_2005\GRII500.csv" For Input As intF Do Until EOF(intF) Line Input #intF, strS strCol.Add strS Loop Close intF
'создаем массив правил соответствия intCounter = 1 Do While intCounter <= strCol.Count strS = strCol(intCounter) Set Col = New Collection VarFound ";", strS, 5, Col If intCounter = 1 Then ReDim arrControlEntity(1 To 1) Else ReDim Preserve arrControlEntity(1 To UBound(arrControlEntity) + 1) End If arrControlEntity(intCounter).AcLayer = Col(1) arrControlEntity(intCounter).AcType = Col(2) arrControlEntity(intCounter).AcName = Col(3) arrControlEntity(intCounter).AcColor = Col(4) If Col(2) = "Text" Then arrControlEntity(intCounter).AcTextHeight = Col(5) arrControlEntity(intCounter).AcWeight = 13 Else arrControlEntity(intCounter).AcWeight = Col(5) End If intCounter = intCounter + 1 Set Col = Nothing Loop intCounter = 1 For intCount1 = 1 To UBound(arrControlEntity) intCount2 = 1 arrControlLayer(intCounter).Layer = arrControlEntity(intCount1).AcLayer Do While arrControlLayer(intCounter).Layer = arrControlEntity(intCount1).AcLayer If intCount2 = 1 Then ReDim arrControlLayer(intCounter).arrControlProperty(1 To 1) Else ReDim Preserve arrControlLayer(intCounter).arrControlProperty(1 To UBound(arrControlLayer(intCounter).arrControlProperty) + 1) End If arrControlLayer(intCounter).arrControlProperty(intCount2) = arrControlEntity(intCount1) intCount2 = intCount2 + 1 If intCount1 = UBound(arrControlEntity) Then Exit For intCount1 = intCount1 + 1 Loop intCounter = intCounter + 1 intCount1 = intCount1 - 1 Next Set strCol = Nothing
LoadData = True
End Function
Sub ChangeLayer(strTemp As String, strTempNew As String) Dim SSetObjL As AcadSelectionSet Dim mode As Integer Dim entObj As AcadEntity Dim acObj As AcadObject Dim intCounter As Integer Dim layerObj As AcadLayer Dim strS As String
Set SSetObjL = ThisDrawing.SelectionSets.Add("SL")
mode = acSelectionSetAll SSetObjL.Select mode
For intCounter = 0 To SSetObjL.Count - 1 Set acObj = SSetObjL(intCounter) If TypeOf acObj Is AcadEntity Then Set entObj = acObj If entObj.Layer = strTemp Then entObj.Layer = strTempNew End If End If Next ThisDrawing.ActiveLayer = ThisDrawing.Layers(strTempNew) ThisDrawing.Save
SSetObjL.Clear ThisDrawing.PurgeAll 'проверка удален ли слой If strTemp <> "0" Then For intCounter = 0 To ThisDrawing.Layers.Count - 1 If ThisDrawing.Layers(intCounter).Name = strTemp Then strS = "Не удается удалить незарезервированный слой," & vbNewLine & _ "попробуйте воспользоваться командой ""_WBLOCK""." MsgBox strS, vbOKOnly, "ВНИМАНИЕ" Continue blnStop = True End If Next End If 'включить видимость всех слоев If blnStop = False Then For intCounter = 0 To ThisDrawing.Layers.Count - 1 Set layerObj = ThisDrawing.Layers(intCounter) layerObj.LayerOn = True Next End If Set ColBadEntity = Nothing ThisDrawing.Regen acAllViewports ZoomExtents SSetObjL.Delete
End Sub Function ChangeType(strTemp As String) Dim SSetObjT As AcadSelectionSet Dim mode As Integer Dim entObj As AcadEntity Dim acObj As AcadObject Dim intCounter As Integer Dim intCount As Integer Dim intC As Integer Dim blnFind As Boolean Dim layerObj As AcadLayer Dim strC As String Dim splObj As AcadSpline Dim linObj As AcadLine Dim txtObj As AcadMText Dim pntObj As AcadPoint Dim blcObj As AcadBlockReference Dim regObj As AcadRegion Dim pline3dObj As Acad3DPolyline Dim plineObj As AcadPolyline Dim lwplineObj As AcadLWPolyline Dim Point1(0 To 2) As Double Dim Coord(0 To 3) As Double Dim Coords() As Double Dim strLib As String Set SSetObjT = ThisDrawing.SelectionSets.Add("ST")
mode = acSelectionSetAll SSetObjT.Select mode
For intCounter = 0 To SSetObjT.Count - 1 Set acObj = SSetObjT(intCounter) If TypeOf acObj Is AcadEntity Then Set entObj = acObj If Right(entObj.ObjectName, Len(entObj.ObjectName) - 4) = strTemp Then blnFind = False 'Spline If strTemp = "Spline" Then Set splObj = entObj Point1(0) = splObj.GetFitPoint(1)(0) Point1(1) = splObj.GetFitPoint(1)(1) Point1(2) = splObj.GetFitPoint(1)(2) strC = "DSTP_CVSPL2PL" & vbCr & CStr(Point1(0)) & "," & CStr(Point1(1)) & "," & CStr(Point1(2)) & vbCr & vbCr & "_D" & vbCr & "0.2" & vbCr & "_N" & vbCr ThisDrawing.SendCommand strC End If 'Region If strTemp = "Region" Then Set regObj = entObj Point1(0) = regObj.Centroid(0) Point1(1) = regObj.Centroid(1) strC = "DSTP_CVREGPL" & vbCr & CStr(Point1(0)) & "," & CStr(Point1(1)) & vbCr & vbCr ThisDrawing.SendCommand strC End If 'Line If strTemp = "Line" Then blnFind = True Set linObj = entObj Coord(0) = linObj.StartPoint(0) Coord(1) = linObj.StartPoint(1) Coord(2) = linObj.EndPoint(0) Coord(3) = linObj.EndPoint(1) Set lwplineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(Coord) End If '3dPolyline If strTemp = "3dPolyline" Then blnFind = True Set pline3dObj = entObj ReDim Coords(0 To (Fix(UBound(pline3dObj.Coordinates) / 3) + 1) * 2 - 1) For intCount = 0 To UBound(pline3dObj.Coordinates) Step 3 Coords(intC) = pline3dObj.Coordinates(intCount) Coords(intC + 1) = pline3dObj.Coordinates(intCount + 1) intC = intC + 2 Next Set lwplineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(Coords) End If '"Polyline" Or "2dPolyline" If strTemp = "2dPolyline" Then blnFind = True Set plineObj = entObj ReDim Coords(0 To UBound(plineObj.Coordinates) - 1) For intCount = 0 To UBound(plineObj.Coordinates) Step 1 Coords(intC) = plineObj.Coordinates(intCount) Next Set lwplineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(Coords) End If
If blnFind = True Then lwplineObj.Layer = entObj.Layer lwplineObj.color = entObj.color lwplineObj.Linetype = entObj.Linetype lwplineObj.Lineweight = entObj.Lineweight lwplineObj.Update
entObj.Delete blnFind = False End If 'Text If strTemp = "MText" Then Set txtObj = entObj Point1(0) = txtObj.InsertionPoint(0) Point1(1) = txtObj.InsertionPoint(1) Point1(2) = txtObj.InsertionPoint(2)
strC = "_explode" & vbCr & CStr(Point1(0)) & "," & CStr(Point1(1)) & "," & CStr(Point1(2)) & vbCr & vbCr ThisDrawing.SendCommand strC End If 'Point Dim insertedBlock As AcadExternalReference If strTemp = "Point" Then Set pntObj = entObj If Exist_Block(strTempNew) = False Then Point1(0) = 0 Point1(1) = 0 Point1(2) = 0 strLib = "c:\Common\AutoCAD 2006Eng\MenuFile\Кодификатор_500_2005\m500_grii_blocks_2000(8)\" & strTempNew & ".dwg" Set insertedBlock = ThisDrawing.ModelSpace.AttachExternalReference(strLib, strTempNew, Point1, 1, 1, 1, 0, False) ThisDrawing.Blocks.Item(insertedBlock.Name).Bind True insertedBlock.Delete End If
Point1(0) = pntObj.Coordinates(0) Point1(1) = pntObj.Coordinates(1) Point1(2) = pntObj.Coordinates(2) If ThisDrawing.ActiveLayer.Name <> pntObj.Layer Then Set ThisDrawing.ActiveLayer = pntObj.Layer Set blcObj = ThisDrawing.ModelSpace.InsertBlock(Point1, strTempNew, 1, 1, 1, 0) blcObj.color = pntObj.color blcObj.Lineweight = pntObj.Lineweight pntObj.Delete End If End If End If Next ThisDrawing.Save SSetObjT.Delete
End Function Function ChangeLineStyle(strTemp As String, strTempNew As String) Dim intCounter As Integer Dim entObj As AcadEntity Dim intC As Integer Dim blnFind As Integer For intCounter = 1 To ColBadEntity.Count Set entObj = ColBadEntity(intCounter) If entObj.Linetype = strTemp Then For intC = 1 To ThisDrawing.Linetypes.Count - 1 blnFind = 0 If ThisDrawing.Linetypes(intC).Name = strTempNew Then blnFind = 1 Exit For End If Next If blnFind = 0 Then ThisDrawing.Linetypes.Add strTempNew entObj.Linetype = strTempNew End If Next End Function
Function ChangeTextStyle(strName As String, strTempNew As String) Dim intCounter As Integer Dim SSetObjT As AcadSelectionSet Dim mode As Integer Dim entObj As AcadEntity Dim acObj As AcadObject Dim txtObj As AcadText Dim txtStyleObj As AcadTextStyle Dim blnFind As Integer
blnFind = 0 For intCounter = 1 To ThisDrawing.TextStyles.Count - 1 If ThisDrawing.TextStyles(intCounter).Name = strTempNew Then blnFind = 1 Exit For End If Next If blnFind = 0 Then Set txtStyleObj = ThisDrawing.TextStyles.Add(strTempNew) TextStyleSettings txtStyleObj Else Set txtStyleObj = ThisDrawing.TextStyles.Item(strTempNew) End If ThisDrawing.ActiveTextStyle = txtStyleObj Set SSetObjT = ThisDrawing.SelectionSets.Add("Text")
mode = acSelectionSetAll SSetObjT.Select mode Set ColBadEntity = Nothing For intCounter = 0 To SSetObjT.Count - 1 Set acObj = SSetObjT(intCounter) If TypeOf acObj Is AcadText Then Set entObj = acObj If entObj.ObjectName = "AcDbText" Then Set txtObj = entObj If txtObj.StyleName = strName Then txtObj.StyleName = strTempNew End If End If Next SSetObjT.Delete ThisDrawing.PurgeAll ThisDrawing.Save End Function Function ChangeBlocks(strTemp As String, strTempNew As String) Dim intCounter As Integer Dim entObj As AcadEntity Dim intC As Integer Dim blnFind As Integer Dim blcObj As AcadBlockReference Dim InsPnt(0 To 2) As Double Dim Rot As Double Dim strN As String Dim ColTemp As New Collection Dim blcOrigin As AcadBlockReference Dim objLType As AcadLineType 'If (InStr(1, strName, "*Paper_Space", vbTextCompare) = 0 And InStr(1, strName, "*Model_Space", vbTextCompare) = 0 And strName <> "new block") Then For intCounter = 1 To ColBadEntity.Count Set entObj = ColBadEntity(intCounter) If entObj.Name = strTemp Then For intC = 1 To ThisDrawing.Blocks.Count - 1 blnFind = 0 If ThisDrawing.Blocks(intC).Name = strTempNew Then blnFind = 1 Exit For End If Next
Set blcObj = entObj Rot = blcObj.Rotation InsPnt(0) = blcObj.InsertionPoint(0): InsPnt(1) = blcObj.InsertionPoint(1): InsPnt(2) = blcObj.InsertionPoint(2) If ThisDrawing.ActiveLinetype.Name <> strCon And ThisDrawing.ActiveLinetype.Name <> "ByLayer" _ And ThisDrawing.ActiveLinetype.Name <> "ByBlock" Then Set objLType = ThisDrawing.Linetypes.Item(strCon) ThisDrawing.ActiveLinetype = objLType End If strN = entObj.Layer ThisDrawing.ActiveLayer = ThisDrawing.Layers(strN) If blnFind = 0 Then strN = "c:\Common\AutoCAD 2006Eng\MenuFile\Кодификатор_500_2005\m500_grii_blocks_2000(8)\" & strTempNew & ".dwg" Else strN = strTempNew End If Set blcObj = ThisDrawing.ModelSpace.InsertBlock(InsPnt, strN, 1, 1, 1, Rot) ColTemp.Add entObj End If Next If ColTemp.Count <> 0 Then For Each entObj In ColTemp entObj.Delete Next End If End Function Public Function Search_BadLayers() As Boolean Dim intCounter As Integer Dim intC As Integer Dim strName As String Dim blnFind As Boolean Dim SSetObj As AcadSelectionSet Dim mode As Integer Dim entObj As AcadEntity Dim acObj As AcadObject
ThisDrawing.PurgeAll ThisDrawing.Save Set SSetObj = ThisDrawing.SelectionSets.Add("SS") mode = acSelectionSetAll SSetObj.Select mode For intCounter = 0 To SSetObj.Count - 1 Set acObj = SSetObj(intCounter) If TypeOf acObj Is AcadEntity Then Set entObj = acObj If entObj.Layer = "0" Then ColBadEntity.Add entObj End If End If Next ThisDrawing.SelectionSets("SS").Delete If ThisDrawing.Layers.Count > 1 Then Set ColBadLayers = Nothing For intCounter = 1 To ThisDrawing.Layers.Count - 1 strName = ThisDrawing.Layers(intCounter).Name For intC = 1 To ColLayers.Count If ColLayers(intC) = strName Then blnFind = True Exit For End If Next If blnFind = False Then ColBadLayers.Add strName Search_BadLayers = True End If blnFind = False Next End If
End Function Function Search_BadTypes() As Boolean Dim mode As Integer Dim intCounter As Integer Dim SSetObj As AcadSelectionSet Dim acObj As AcadObject Dim entObj As AcadEntity Dim intC As Integer Dim strName As String Dim blnFind As Boolean Dim viewObj As AcadViewport Set ColBadEntity = Nothing Set SSetObj = ThisDrawing.SelectionSets.Add("SS") mode = acSelectionSetAll SSetObj.Select mode For intCounter = 0 To SSetObj.Count - 1 Set acObj = SSetObj(intCounter) If TypeOf acObj Is AcadEntity Then Set entObj = acObj For intC = 1 To ColTypes.Count If ColTypes(intC) = entObj.ObjectName Then blnFind = True Exit For End If Next
If blnFind = False Then ColBadEntity.Add entObj End If End If blnFind = False Next
If ColBadEntity.Count <> 0 Then Set entObj = ColBadEntity(1) ColBadTypes.Add Right(entObj.ObjectName, Len(entObj.ObjectName) - 4) For intCounter = 1 To ColBadEntity.Count Set entObj = ColBadEntity(intCounter) strName = Right(entObj.ObjectName, Len(entObj.ObjectName) - 4) If FindItem(strName, ColBadTypes) = True Then For intC = 1 To ColBadTypes.Count If ColBadTypes(intC) = strName Then blnFind = True Exit For End If Next End If If blnFind = False Then ColBadTypes.Add strName
blnFind = False Search_BadTypes = True Next blnClear = False ElseIf ColBadEntity.Count = 0 Then blnClear = True Search_BadTypes = False End If ThisDrawing.SelectionSets.Item("SS").Delete End Function Function Search_BadTxtStyle() As Boolean
Dim intCounter As Integer Dim intC As Integer Dim strName As String Dim blnFind As Integer
If ThisDrawing.TextStyles.Count > 1 Then Set ColBadTextStyles = Nothing For intCounter = 0 To ThisDrawing.TextStyles.Count - 1 strName = ThisDrawing.TextStyles(intCounter).Name For intC = 1 To ColTextStyles.Count If ColTextStyles(intC) = strName Then blnFind = 1 Exit For End If Next
If blnFind = 0 Then ColBadTextStyles.Add strName End If blnFind = 0 Next ThisDrawing.PurgeAll ThisDrawing.Save If ColBadTextStyles.Count <> 0 Then Search_BadTxtStyle = True Else Search_BadTxtStyle = False End If End If End Function Function Search_BadLineTypes() As Boolean Dim SSetObjL As AcadSelectionSet Dim mode As Integer Dim entObj As AcadEntity Dim acObj As AcadObject Dim intCounter As Integer Dim intCount As Integer Dim blnFind As Integer Dim ColTemp As New Collection Dim strN As String Dim objLay As AcadLayer Set ColBadEntity = Nothing Set SSetObjL = ThisDrawing.SelectionSets.Add("SL")
mode = acSelectionSetAll SSetObjL.Select mode
For intCounter = 0 To SSetObjL.Count - 1 Set acObj = SSetObjL(intCounter) If TypeOf acObj Is AcadEntity Then Set entObj = acObj strN = entObj.Linetype ' If strN = "Continuous" Or strN = "CONTI" Or strN = "Conti" Then ' strN = "CONTINUOUS" ' entObj.Linetype = strN ' End If For intCount = 1 To ColLineStyles.Count If ColLineStyles(intCount) = strN Then blnFind = 1 Exit For End If blnFind = 0 Next If blnFind = 0 Then ColBadEntity.Add entObj End If End If
Next If ColBadEntity.Count <> 0 Then Set entObj = ColBadEntity(1) ColBadLineTypes.Add entObj.Linetype For intCounter = 1 To ColBadEntity.Count Set entObj = ColBadEntity(intCounter) strN = entObj.Linetype If FindItem(strN, ColBadLineTypes) = True Then For intCount = 1 To ColBadLineTypes.Count If ColBadLineTypes(intCount) = strN Then blnFind = 1 Exit For End If Next End If If blnFind = 0 Then ColBadLineTypes.Add strN
blnFind = 0 Search_BadLineTypes = True Next blnClear = False ElseIf ColBadEntity.Count = 0 Then blnClear = True Search_BadLineTypes = False End If ThisDrawing.SelectionSets.Item("SL").Delete
End Function Function Search_BadBlocks() As Boolean Dim SSetObjB As AcadSelectionSet Dim mode As Integer Dim entObj As AcadEntity Dim acObj As AcadObject Dim intCounter As Integer Dim intCount As Integer Dim blnFind As Integer Dim blcObj As AcadBlockReference Dim ColTemp As New Collection Dim strN As String
Set ColBadEntity = Nothing Set SSetObjB = ThisDrawing.SelectionSets.Add("S")
mode = acSelectionSetAll SSetObjB.Select mode
For intCounter = 0 To SSetObjB.Count - 1 Set acObj = SSetObjB(intCounter) ' If TypeOf acObj Is AcadEntity Then ' Set entObj = acObj If TypeOf acObj Is AcadBlockReference Then Set blcObj = acObj strN = blcObj.Name blnFind = 0 For intCount = 1 To ColBlocks.Count If ColBlocks(intCount) = strN Then blnFind = 1 Exit For End If Next If blnFind = 0 Then ColBadEntity.Add blcObj
End If Next
If ColBadEntity.Count <> 0 Then Set entObj = ColBadEntity(1) ColBadBlocks.Add entObj.Name For intCounter = 1 To ColBadEntity.Count Set entObj = ColBadEntity(intCounter) strN = entObj.Name If FindItem(strN, ColBadBlocks) = True Then For intCount = 1 To ColBadBlocks.Count If ColBadBlocks(intCount) = strN Then blnFind = 1 Exit For End If Next End If If blnFind = 0 Then ColBadBlocks.Add strN
blnFind = 0 Search_BadBlocks = True Next blnClear = False ElseIf ColBadEntity.Count = 0 Then blnClear = True Search_BadBlocks = False End If ThisDrawing.SelectionSets.Item("S").Delete
End Function Function Exist_Block(strName As String) As Boolean Dim intCounter As Integer Exist_Block = False For intCounter = 1 To ThisDrawing.Blocks.Count - 1 If ThisDrawing.Blocks(intCounter).Name = strName Then Exist_Block = True Exit For End If Next End Function Function TextStyleSettings(txtStyleObj As AcadTextStyle) Dim strStyle As String Dim Font As String Dim txtSetting As TextStyleSettings
strStyle = txtStyleObj.Name Select Case strStyle Case "LIKE10" Font = "p151.shx" Case "LIKE11" Font = "bm431.shx" Case "LIKE12" Font = "ch132.shx" Case "LIKE14" Font = "p131.shx" Case "LIKE17" Font = "d431.shx" Case "LIKE19" Font = "bo2.shx" Case "LIKE21" Font = "ch131.shx" Case "LIKE30" Font = "peter.shx" Case "LIKE31" Font = "peterb.shx" Case "LIKE32" Font = "peteri.shx" Case "LIKE34" Font = "pragma.shx" Case "LIKE36" Font = "pragmai.shx" End Select Font = "C:\Common\AutoCAD 2006Eng\Fonts\" & Font txtStyleObj.fontFile = Font ' txtStyleObj.Height = 0 ' txtStyleObj.Width = 1 End Function Sub Continue() Dim currMenuGroup As AcadMenuGroup Dim strName As String Dim intCounter As Integer Dim newMenu As AcadPopupMenu Dim newMenuItem As AcadPopupMenuItem Dim openMacro As String Dim blnFind As Boolean
strName = "Проверка" Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(1)
For intCounter = 0 To currMenuGroup.Menus.Count - 1 If currMenuGroup.Menus(intCounter).Name = strName Then Set newMenu = currMenuGroup.Menus(intCounter)
If blnClose = True Then If newMenu.OnMenuBar = True Then newMenu.RemoveFromMenuBar ' currMenuGroup.Menus(intCounter).RemoveFromMenuBar currMenuGroup.Save acMenuFileSource ' blnClose = False blnExistMenu = False Exit Sub End If blnFind = True Exit For End If Next 'Включить или загрузить меню If blnClose = False Then If blnFind = True Then If newMenu.OnMenuBar = False Then newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) blnExistMenu = True End If End If If blnFind = False Then Set newMenu = currMenuGroup.Menus.Add(strName) openMacro = "(command " & """vbaRun"" " & """ContinueControl""" & ")" & vbCr Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "Продолжить", openMacro) newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) blnExistMenu = True End If End If End Sub Public Sub VarFound(symbol As String, strS As String, intVarCounter As Integer, Col As Collection)
Dim intCounter As Integer Dim strVariable As String Dim intC As Integer
Do While intC < intVarCounter - 1
For intCounter = 1 To Len(strS) If Mid(strS, intCounter, 1) = symbol Then strVariable = Trim(Left(strS, intCounter - 1))
Public Function StrToTab(strS As String) As String strS = Left(strS, (InStr(1, strS, vbTab)) - 1) End Function 'функция для генерации строки пробелов нужной длины Public Function Space(intCounter As Integer) As String Dim strS As String Dim strAll As String Dim intC As Integer strS = " " For intC = 1 To intCounter strAll = strAll & strS Next Space = strAll End Function 'функция для генерации горизонтальных линий нужной длины Public Function strLine(intCounter As Integer) As String Dim strS As String Dim strAll As String Dim intC As Integer strS = "-" For intC = 1 To intCounter strAll = strAll & strS Next strLine = strAll End Function
Public Function PrintLine(strS As String, blnTitle As Boolean)
Ну вот ГОСТ Р 54851—2011 действующий и, вроде как, нормативный. А как ГОСТ может быть ненормативным?:crazy: И таблица КТО там в основном тексте, а не в рекомендуемых приложениях. Вот только в постановление 1521 не включен. А жаль...
РастОК : Да вы что прикалываетесь? Вы в уже готовом здании хотите отрыть фундамент, чтобы сделать подготовку которая уменьшит защитный слой?
Читайте внимательно. Не уменьшить защитный слой. Защитного слоя в некоторых местах НЕТУ !!! его надо восстановить!!!
P.S. ...про уменьшение толщины это относилось к посту #2 где было высказано мнение о том, что наличие подготовки не влияет на защитный слой. Теоретически можно предположить вариант: проектировщик заложил в проекте подготовку и МИНИМАЛЬНУЮ толщину защитного слоя. Прораб забил на все и подготовку не сделал. Минимальная толщина защитного слоя в этом случае - не проходит. И довольно въедливый эксперт при сдаче экспертизы может сказать: "Делайте необходимую толщину защитного слоя"
И еще раз повторяю это гипотетически. ...У нас случай другой! ...Нету защитного слоя вообще в некоторых местах.
[SIZE="1"][COLOR="Gray"]----- добавлено через ~5 мин. -----[/COLOR][/SIZE]
РастОК : И зачем вам засыпать и трамбовать то, что будет заторкретировано? Откапываете нужное количество грунта под фундаментом, очищаете поверхность низа подошвы, подкладываете гидроизоляцию и производите процесс торкретирования. Дальше засыпаете всё и отчитываетесь о проделанной работе.
Фундамент свайный (лента), ширина ростверка от 3 до 6 м.
P.S. ...Вы считаете, что засыпку можно делать без трамбования?
Простого решения Вашей проблемы нет. Чтобы создать (там, где он отсутствует) нормативный защитный и конструктивный слой бетона (не менее 40 мм) Вам потребуется вскрывать подошву фундамента. Если же считать, что Вам нужен только защитный (например, от коррозии) слой, то в этом случае он может быть выполнен с привлечением иных (например, природных или искусственных) материалов, которые при взаимодействии с грунтом несущего основания превращают последний в гидрофобный и химически стойкий монолит (то есть в гидроизоляцию или защитный экран). Сегодня спектр таких материалов широк (от битумизации, если она допустима, до полимеризации), но всё это "удовольствие" будет стоить Вам дорого. Подобрать нужный состав (рецептуру), а также обосновать технологию можно в лабораторных условиях. С другой стороны, можно подойти к решению Вашей проблемы иначе, оценив степень использования рабочей арматуры ростверка, которая из-за нарушения технологии строительного производства оказалась открытой (оголенной), компенсируя её условное отсутствие добавлением новой рабочей арматуры. То есть вместо решения навязываемой Вам экспертизой задачи, решить другую задачу - задачу усиления ростверка (компенсацию потери несущей способности частью рабочей арматуры) в сочетании с известными (проверенными) технологиями гидроизоляции существующих железобетонных конструкций, которые часто возникают прм реконструкции зданий и сооружений.
Под подошвой ростверка насыпной грунт. Примерный состав суглинок мягкопластичный с включением строительного мусора (кирпич, щебень).
На глубине 1,5 м ниже подошвы ростверка начинается суглинок легкий мякгопластичной консистенции.
[SIZE="1"][COLOR="Gray"]----- добавлено через ~5 мин. -----[/COLOR][/SIZE]
jsmaks : Если же считать, что Вам нужен только защитный (например, от коррозии) слой, то в этом случае он может быть выполнен с привлечением иных (например, природных или искусственных) материалов, которые при взаимодействии с грунтом несущего основания превращают последний в гидрофобный и химически стойкий монолит (то есть в гидроизоляцию или защитный экран)
Спасибо за ответ.
А не подскажите где поискать обоснование этих методов. В литературе или нормативных документах встречается ли упоминание о том, что можно защитить от коррозии арматуру подошвы фундаментов инъекционными методами.
Разумеется, при сдвоенной схеме, как всегда, есть свои плюсы и свои минусы. В плюсы можно отнести еще симметричное нагружение вала, т.е. на подшипниках нагрузка распределится поровну. А при одном колесе, прямозубом или цельным шевронным, один подшипник будет нагружен сильнее, и очень может быть, что в первом случае будут, скажем, два 207, а в другом 207 и 208. Идеальный вариант - просчитать два варианта.
иваниваныч : Ну вот ГОСТ Р 54851—2011 действующий и, вроде как, нормативный. А как ГОСТ может быть ненормативным?:crazy: И таблица КТО там в основном тексте, а не в рекомендуемых приложениях. Вот только в постановление 1521 не включен. А жаль...
В том то и дело, что "вроде как". Как известно каждому поклоннику "технического регулирования" ГОСТ сейчас именно "ненормативные" (что не мешает брать деньги за их разработку). И тот же НИИСФ не постеснялся деньги и за этот ГОСТ взять, и за СП50.
Что мы видим в ГОСТ? Да то же самое - "на основе расчета температурных полей". И ту же самую картинку (видимо единственную, которую везде демонстрируют). И никаких других вариантов. А таблица 1 всего лишь иллюстрирует, в каких примерно пределах изменяется КТО. Для тех, кто вообще не знает. Вот записано 0.55 - 0.85 для трехслойных металлических панелей, и какой брать? Разница-то весьма существенная. И нет там в тексте ничего наподобие "следует принимать по таблице 1".
У меня в программе в справочнике 274 варианта "чисто конкретных" КТО, в том числе и из этого ГОСТ, но как "большее значение" и "меньшее значение". Но какое применять и чем обосновать - сказать невозможно. Это всего лишь справочные материалы.
Если был песок было бы проще - сделать безнапорное инъецирование. А в такой грунт как у вас только под давлением - не так просто(можно здание перекосить). С шириной ростверков 3-6м откапываться под них на всю ширину пока не могу себе представить даже захватками. Как вариант правильно подсказали сделать "дублирующий" ростверк. Если есть место в подвале, то можно сделать новый ростверк поверх(а не с боков) старого с соблюдением всех требований. Старый учесть как бетонную подготовку ))).
[SIZE="1"][COLOR="Gray"]----- добавлено через ~2 мин. -----[/COLOR][/SIZE] uvl77, чертеж есть? Сопряжение свай с ростверком какое? А то
Лоскутов Илья : Как вариант правильно подсказали сделать "дублирующий" ростверк. Если есть место в подвале, то можно сделать новый ростверк поверх(а не с боков) старого с соблюдением всех требований. Старый учесть как бетонную подготовку
Arikaikai : я чот читал-читал и не сильно понимал в чем именно проблема. Но если я правильно её понял (нужно дать шкалу соответствия цвета элементов схемы ИМЕНАМ жесткостей) - то совет DENver'а по-моему очень хорош, на самом деле.
Лоскутов Илья : А в такой грунт как у вас только под давлением - не так просто(можно здание перекосить).
Я полагаю, что всетаки здание сильно тяжелое - 17 этажей... Думаю не должно перекосить. Сваи 12 м частоколом стоят - своего рода анкеровка. Думаю.. должно быть все нормально. Или всетаки может перекосить?
Кстати есть некоторые облегчающие моменты. Под некоторыми ростверками грунт просел и образовалась щель примерно 50 мм. Но таких ростверков не так много. Под некоторыми ростверками есть прослойка песка примерно 50-100 мм, но не везде. Так же под подошвой некоторых ростверков обнаружен асфальт ~60 мм толщиной (старый асфальт который был на этой строительной площадке, и который не демонтировали при стороительстве). Некоторые фундаменты прямо на нем лежат. Я думаю эти ростверки вообще не трогать.
АлексЮстасу : Но сами исполнители предпочитали чертить с помощью подобной программы - меню объектов
1. С этим никто и не спорит. Использование тех же палитр тоже ускоряет работу в плане рисования. 2. К объектам присоединены какие то данные - видимо, к однотипным объектам одинаковые данные? Что с ним делать дальше - как они обрабатываются, как задаются связи между объектами и т.д.?
[COLOR="Red"]Омская птица, просьба изменить название темы "Как считать влияние котлована на здание при нулевой прочности на растяжение для песка?" в соответствии с правилами именования тем в разделе и п.4.3. правил форума, в противном случае тема будет закрыта через 6 часов.
я тоже так думаю. соответственно чем ширина общая больше, тем ветровое усилие должно быть больше(ветер как бы больше соберется на здании) и брать нужно, получается, общую ширину. Так? вроде бы логично, но в этом случае относительно старого СНиП имеем значительное увеличение ветровой нагрузки...с чем это связано - непонятно..и как объясняться с экспертизой - тоже
ABK : вообще-то достаточно для определения стоимости
Каким образом - что на что умножить и (или) разделить что бы получить стоимость восстановления технологической эстакады по результатам ее обследования с погрешностью +/-10%
Валериан : Каким образом - что на что умножить и (или) разделить что бы получить стоимость восстановления технологической эстакады по результатам ее обследования с погрешностью +/-10%
Взять с собой человека который понимает в конструкциях. Электрик стоимость ремонта не оценит.
Сергей812 : 1. С этим никто и не спорит. Использование тех же палитр тоже ускоряет работу в плане рисования. 2. К объектам присоединены какие то данные - видимо, к однотипным объектам одинаковые данные? Что с ним делать дальше - как они обрабатываются, как задаются связи между объектами и т.д.?
1. Предвосхищая про "палитры" (речь о Tool Palettes?), я даже уже вчера написал тоже в блоге. :) Представьте себе очень последовательно и полно развитые "палитры" - это процентов 80 сути идеи. 2. К каждому графическому элементу при черчении-вставке из меню объектов присоединяется запись в определенную пользователем (в файле описания) "таблицу" - XRecord. Для этой таблицы в файле описания определяются нужные поля для характеристик объектов и могут быть определены их допустимые значения. Или поля для характеристик не задаются - если не нужны. Но одно поле определяется всегда - одинаковое для всех таблиц поле для идентификатора==названия типа объекта. Сколько однотипных объектов вычертим-вставим - столько в dwg будет графических элементов с одинаковыми идентификаторами==названиями типов объектов в виде записей в их таблице. С названиями типов объектов ничего делать не нужно - только использовать как еще одно свойство элементов. Допустим, для выбора в dwg, для контроля, для расстановки по приоритетам отображения, для восстановления утраченных графических свойств, для идентификации нужных элементов при каких-то действиях. Поля для характеристик можно заполнить данными, в т.ч. и программно - загрузить длину, объем, создать ID и т.п. И можно вводить эти данные с учетом допустимых значений. Можно просматривать, вводить и редактировать значения у указанных объектов. Можно просматривать, вводить и редактировать значения в табличном виде. Можно экспортировать в текстовые форматы, сделать что-то с ними в Excel или т.п., и вставить обратно. После ввода значений характеристик в таблицы их можно проверить на полноту и правильность введенных значений. Дело этой программы - обеспечить возможность сбора данных и необходимый и приятный минимум действий. Все остальное - дело тех самых специализированных приложений. Связи между объектами не задаются никак. Это тоже предмет специализированных приложений. Но, может, я не понял вопроса - о каких связях речь?
Спасибо ! К Сожалению не получается экономить, т.к. уже 70 камазов песка завезено и бульдозером выравнен участок, а реально со слов и обещаний местного главы администрации "строй пжл", а сейчас выясняется что ФЗ_123 в таблице 5 указаны расстояния от АЗС 30 метров отступать если склад - это как раз размер участка. Местный главный пожарник сказал что можно на 25% сократить расстояние, но если построить противопожарную стену заградительную (пока не понимаю какой она должна быть высотой и толщиной и конструктивно как должна выглядеть) может с контрфорсами, чтобы глушить взрывную волну (:-)0 Короче уже весь в панике. Думаю местной власти надо было просто привести в порядок территорию прилегающую к АЗС. Максимум на что приходится рассчитывать это на 25% участка. Складик в половину того что хотел. Если кто нибудь поделиться информацией - буду признателен ! Местные юристы не очень компетентные вот и сижу сам ищу информацию.
немного неправильно рисовала / первый раз , вкривь и вкось / смотрю с окон сваи уходят за мою даже квартиру , по плану не доходя. они же расширили кругом , справа по фото была детская площадка, ее снесли , забор перенесли к той тоже половине дома . Вообщем забор со всех строн перенесен. Вся моя квартира 2х комнатная как раз закрывается этим зданием и окна только сюда выходят . Попробовала еще порисовать
[SIZE="1"][COLOR="Gray"]----- добавлено через ~3 мин. -----[/COLOR][/SIZE] а впереди 9 этажка...стройка между нашим и 9 этажкой, тоже тень создает
Добрый день! Подскажите, пожалуйста, что делать. Файлы, которые были созданы в AutoCAD 2014 открываются в AutoCAD 2016 с какой-то "паутиной" линий-связей поверх чертежа. При зуммировании эти линии-связи меняются, но убрать их при работе в файле никак не могу. Если в новый чертеж копирую из чертежа, созданного в AutoCAD 2014 тоже появляется эти линии
Фролов Дмитрий : Мой коллега, известный некоторым участникам форума по 11-й конференции ACUM, записал видеоурок по теме железобетона (SOLID65 и Microplane) в ANSYS Mechanical
Решил повторить данный урок. Делаю полный аналог модели как у автора, но видимо какая то проблема с бетоном и с шагами (подшагами) нагружения. Если не трудно, подскажите где я ошибся.
Ответы все верные, для каких целей нужна вода? Для котельной, тогда подпитка 380 т/ч много, для питьевой не достаточно осмоса (если вода конечно без предварительной очистки). Ультрафиолет для обеззараживания как и хлорка, они не производят очистку от растворенных загрязнений и концентраций солей и металлов. Перед осмосом рекомендуется песчанные фильтра две ступени осветления и обезжелезивания с деманганацией.
Уважаемый Воха. Я зашел на этот форум, чтобы попросить помощи в решении моей проблемы, как я думаю, у знающих тему людей. Так как я не являюсь специалистом в этой области. Если Вы не можете подсказать что то конкретное по вопросу, не стоит учить меня пользоваться поиском в википедии. Тем более там нет никакой информации по сопряжению дуги с окружностью. Но все равно, спасибо.
В жилом доме выполняется капитальный ремонт лестничных клеток, включающий замену тамбурных дверей. Изначально в половине подъездов установлены двери высотой около 2,5 м. Подрядная организация установила во всех подъездах одинаковые тамбурные двери высотой 2,1 м с зашивкой проёмов ГКЛ. Вопрос жителя: есть ли у заказчика работ разрешение от архитектуры на изменение размеров тамбурных дверей? :) Как Вы считаете, действительно нужно разрешение от архитектуры на тамбурные двери? :crazy:
Посмотрите СП 31.13330.2012 Приложение Б [U](рекомендуемое)[/U]. На мой взгляд, там предельно ясно всё описано. И по схемам, и по способам. От себя могу добавить, что не вижу причин использовать обратный осмос вообще. Слишком дорогое удовольствие для ваших объёмов воды.
Хочу залить из гидрофобного бетона кессон, после твердения снять опалубку и установть его краном в яму с высоким угв. Оопасаюсь за герметичность отверстий от стяжек опалубки. Чем можно заполнить отверстие в трубке от стяжки, чтобы вода несочилась, и небудет ли она сочится по внешней стороне трубки, по стыку с бетоном? Благодарю за помощь.
htc one m9 32gb gunmetal gray состояние идеальное комплект полный, кроме наушников - зарядка,кабель,коробка, доки, также отдаю два чехла, в тч оригинал dot view на гарантии, куплен у официалов полгода назад (бесплатная замена стекла в течении года)
цена 26000 рублей, возможен обмен на другой смартфон или планшет, пишите в лс
Напарники, Джо и Кэтрин, детективы из ФБР расследуют череду загадочных убийств. Все преступления объединяет нечто сверхъестественное — серийный убийца всегда на шаг впереди лучших сыщиков. Тогда на помощь правосудию приходит отставной аналитик спецслужб доктор Джон Кленси. Его исключительная интуиция и интеллект могут помочь поймать убийцу, но вскоре Джон понимает — его соперник значительно превосходит его в способностях.
Football Live Scores 365Scores - это спортивное приложение, в котором собраны все последние новости мира спорта. Данный клиент открывает доступ ко всем актуальным спортивным новостям. Футбол, баскетбол, теннис, хоккей, гандбол, бейсбол, регби – каждый пользователь найдёт дисциплину по вкусу! Кроме того, имеется возможность выбора сразу нескольких видов спорта, которые будут интересны в ближайшее время. Приложение поддерживает мгновенные уведомления о ходе конкретных игр, что делает его бессменным помощником для любителей спортивных ставок. События отображаются в наглядной новостной ленте, а также сопровождаются записями самых ярких моментов и голов! Для любителей статистики предоставляется глубинный анализ конкретных игроков и клубов. Более 1000 лиг и команд со всего мира – это внушительная цифра!
Skype - бесплатная программа для текстового, голосового и видеообщения с друзьями по всему миру. Сеть Skype использует P2P-технологию для соединения с другими пользователями и отличается высоким качеством передачи данных. Помимо безупречной передачи звука, Skype предоставляет абсолютную конфиденциальность — всё общение между клиентами зашифровано и не может быть перехвачено. Ну а самое главное, Skype не потребуется перенастройки вашего брандмауэра или маршрутизатора — он просто работает!
Macrium Reflect – программа разработана для создания и восстановления образов жёсткого диска и резервирования данных. Macrium Reflect создаёт образ Windows во время использования Windows и не требует для этого перезагрузку компьютера или каких-то ещё дополнительных действий.
«Авторевю» по праву считается одним из ведущих российских автомобильных изданий. Журналисты «Авторевю» представляют Россию в жюри главных международных автомобильных конкурсов: European Car of the Year, World Car of the Year, Engine of the Year, Autobest, Truck of the Year, Van of the Year. Издание по итогам 2008 года признано лидером продаж в категории «Автомобильные издания».
«Приготовь» - специальное кулинарное приложение к известному журналу «Женские секреты». Каждый выпуск посвящен определенной теме. В каждом номере журнала - кулинарные рецепты с подробнейшим поэтапным описанием приготовления блюда. Каждый шаг на пути к кулинарному шедевру иллюстрирован цветными фотографиями.
HD Video Converter Factory Pro - мощный, профессиональный и быстрый (с 50х скоростью конвертации HD видео), HD-видео конвертер, который поддерживает более 150 видео форматов включая UHD/4K и HEVC/H265.
Исполнитель: VA Название диска: Зимний ТОР 100. Лучшие песни Год выпуска: 2016 Жанр: Pop Количество треков: 100 Время звучания: 06:01:48 Формат | Качество: MP3 | 256 kbps Размер файла: 683 Мb
Весь спектр современной российской фантастики: от социальной и научной до фэнтези, от постапокалипсиса до киберпанка, от признанных мастеров жанра до представителей молодого поколения, как успевших зарекомендовать себя, так и делающих первые шаги.
Ученые работают над сенсором для смартфона, который выявляет рак 2016-01-11 22:13 Эксперты прогнозировали насколько можно лечить рак мобильными устройствами. Был разработан уникальный смартфон, который может воздействовать на болезнь. По мнению японских ученых, уникальный смартфон обладает функциональностью, которая сможет выявить раковые заболевания на ранних стадиях.
Роскомнадзор проверит порядок хранения личных данных в «ВКонтакте» 2016-01-11 21:46 В Роскомнадзоре рассказали, что согласно закону «О персональных данных», будет проведена проверка порядка хранения персональных данных в таких компаниях как, Microsoft, Samsung, Twitter, Facebook, «Одноклассники» и «ВКонтакте». Масштабные проверки в IT- и интернет-компаниях пройдут в 2016 году.
Предзаказ шлема Vive от HTC откроется в феврале 2016-01-11 21:44 Как вы помните, компания HTC изначально планировала выпустить шлем виртуальной реальности Vive, созданный при помощи мастеров из Valve, под конец прошлого года.
В Сети засветился прототип металлического смартфона Nokia 2016-01-11 21:19 В Сети засветился прототип металлического смартфона Nokia. Впервые информация по этому вопросу всплыла в социальной сети Китая. Там и были выложены фотографии корпуса для всеобщего ознакомления с новинкой.
Apple выпустит 4-дюймовый iPhone 5e на процессоре A8 2016-01-11 19:48 Устройство получит процессор Apple A8 и 1 Гб оперативной памяти. Девайс оснастят 8 Мп фронтальной камерой, поддержкой NFC (Apple Pay), и умением работать с VoLTE. Вместе с этим, iPhone 5e окажется тоньше и легче своего предшественника. В продажу поступит две модификации: на 16 и 64 Гб.
В Apple работают над приложением для легкого перехода с iOS на Android 2016-01-11 19:35 Ожидается, что с выходом сервиса, позволяющего без затруднений перенести данные с iPhone в любой смартфон, работающий под управлением мобильной ОС Android, компания не понесет практически никакой прибыли, ведь смартфоны от Apple с каждым годом становятся все более популярными.
Минкомсвязи запустила реестр отечественного софта пустым 2016-01-11 19:27 В конце декабря на форуме «Интернет-экономика 2015» министр связи и массовых коммуникаций Николай Никифоров заявил, что первая версия реестра отечественного программного обеспечения будет запущена сразу после нового года и пообещал, что заявки разработчиков на включение их программ в реестр экспертный совет рассмотрит «в первый же рабочий день января».
Facebook выпустит мессенджер для «маков» 2016-01-11 19:16 Социальная сеть Facebook ведет разработку клиента Messenger для операционной системы OS X. Об этом сообщает издание TechCrunch, которому удалось раздобыть фотографию сотрудника компании, пользующегося версией мессенджера для компьютеров Apple.
Пользователи написали более 4,3 млн твитов о Дэвиде Боуи 2016-01-11 18:11 Более 4,3 миллиона твитов написали интернет-пользователи из различных стран в память о рок-музыканте и киноактере Дэвиде Боуи, скончавшемся от рака в возрасте 69 лет.
Apple работает над разработкой беспроводных наушников для iPhone 7 2016-01-11 16:22 Смартфон iPhone 7 не будет иметь привычный для всех мобильных устройств аудиоразъем 3,5-мм для наушников и гарнитуры. Владельцам нового аппарата придется озаботиться подбором новых, беспроводных наушников, над разработкой которых трудятся специалисты Apple совместно с компанией Beats.
Xiaomi официально представила Redmi 3 за $105 2016-01-11 15:53 Компания Xiaomi официально представила смартфон Redmi 3. 5-дюймовый гаджет получил процессор Qualcomm Snapdragon 616, 2 Гбайт оперативной памяти, 16 Гбайт постоянной+слот microSD.
Инсталяция и настройка Magento 2016-01-11 22:11 Есть купленный темплейт для Magento. Нужно 1) инсталлировать интернет магазин Magento (2й новой версии) 2) Интегрировать купленный темплейт3) Настройка, что бы он функционировал и принимал заказы Хостинг есть
Перевод на французский и озвучка 2016-01-11 21:51 Нужно перевести текст с русского на французский. Текст о светодиодной технике. Затем часть нужно надиктовать на французском (на смартфон или с помощью микрофона). Нужно для небольшого ролика в youtube. Желательно мужской голос. Предварительно хотелось бы услышать тестовую запись любой фразы.
Создать страницу в Википедии 2016-01-11 21:50 Мне нужно создать в Википедии персональную страницу Александра Александровича Шевцова. http://ashevtsov.ru/ http://www.baltacademy.ru/index.php?Item=5-1&pers=479 Информацию на Википедию я буду размещать сам, мне нужна помощь в создании статьи и редактировании по правилам Википедии
Копирайтинг 2016-01-11 21:49 Требуется начинающий писатель за бонус и отзыв от меня. Написать рубрику в блоге " о блоге" т.е описать блог. Блог связан с трейдингом.
Сео продвижение интернет магазина 2016-01-11 21:42 Ищу опытного сео специалиста по продвижению сайта (интернет-магазина). http://systemprofi.ru/ Обязательная закупка качественных вечных ссылок. Написание качественных и уникальных статей на сайте с перелинковкой. Продвижение ресурса на сторонних "жирных" сайтов и т.д.... Указывайте бюджет в месяц!
Доработки по сайту (codeigniter) 2016-01-11 21:41 Добрый день. Оцените, пожалуйста, стоимость доработок на сайте – см. приложение. Сайт написан с использованием codeigniter. Просьба отвечать только в проекте
Настройка и создание РК ЯндексДирект 2016-01-11 21:40 Необходимо настроить рекламную кампанию яндекс директ. Тематика люстры, светильники, интернет-магазин освещения. Интересуют исполнители с успешными РК в данной тематике с высоким CTR
Отрисовка в векторе 2016-01-11 21:40 Необходимо отрисовать в векторе (ai, cdr) 30 нарисованных изображений (примеры на фото).
Ретушь, обтравка фото для интернет-магазина 2016-01-11 21:22 Уважаемые фрилансеры, просьба присылать заявки только реально умеющим. Если честно, вы уже своим не профессионализмом в своём большинстве. Нужно подготовить 10 фото. Сделать красиво и недорого. Если дорого, то вам не на фриланс а в частную фотоконтору. Смотришь портфолио, чел. вроде умеет. Платишь деньги, - присылает обработанные фото в ужасном качестве, темные, с серым фоном и откадрированные криво. А, потом Вы обижаетесь, если конкурс бесплатно...
Нужно оптимизировать код сайта. 2016-01-11 21:07 Здравствуйте. Есть сайт на WordPress. Сайт получился тяжелым, код плохо оптимизирован, по этому страдает время отклика сервера. Вместо 100-200мс у нас 1500мс. Хотелось бы найти специалиста, который настроит сайт так, чтобы достичь необходимых показателей. Важно не урезать функционал и ничего не поламать. Все детали выбранному исполнителю. Предпочтение фрилансерам предложившим не высокую цену. Спасибо.
DDE клиент+ 2016-01-11 20:43 Нужна программа имеющая следующий функционал: +++ получение котировки от MetaTrader 4 по механизму DDE с определенной частотой (максимальная частота – раз в 30 с) и записью в массив (массив размером не более 100 точек, каждое следующее значение записывается в начало массива со смещением остальных ячеек, каждая ячейка – число); +++ циклическая обработка массива при помощи простых арифметических действий после каждого изменения массива (см. примечание*); +++ циклическое создание (или перезапись) файла .TXT в определенной директории с простым текстовым содержанием типа: 1) 2 2) 1 3) 0 где значение числа после скобки зависит от сравнения некоторого критерия с результатом обработки массива; +++ возможность работы программы 24 часа в сутки с исключением некоторых временных интервалов в которые программа бы работала "на холостом ходу". *ВАЖНО: --- нет необходимости в развитом графическом интерфейсе (подойдет консольное окно); --- необходимо предоставить помимо скомпилированной программы ее проект в той среде, в которой она была разработана, чтобы имелась возможность изменения: + частоты обновления массива + алгоритма математической обработки массива в цикле; + директории в которой происходит перезапись файла .TXT + имени файла .TXT + временных рамок работы программы
Нужно нарисовать картинку для сайта advokatymoskow.ru 2016-01-11 20:40 Размер 800х394 пикселя. Картинка будет вставлена на [url=http://advokatymoskow.ru/]сайт advokatymoskow.ru[/url] в шапку в карусель вместо картинки с черным молотком для категории "[url=http://advokatymoskow.ru/]Уголовные дела[/url]". Сюжет картинки такой: В центре на переднем плане стоит мужчина смотрит на встречающую его женщину с ребенком, вдыхает воздух полной грудью и чуть чуть краешком губ еле уловимо улыбается, рядом с ним стоят два милиционера и снимают с него наручники, на заднем плане слева и справа забор тюрьмы и вышки с часовыми по середине приоткрытые тюремные ворота, за забором мощное здание тюрьмы на фасаде темные окна с решетками в некоторых видны силуэты зэков которые смотрят в след мужчине (главному герою), в небе летит косяк журавлей. На самом ближнем плане стоит женщина держащая за руку ребенка лет шести (встречает мужа). Картина довольно суровая по этому цвета в основном черно-серо-белые но кое где и есть места где есть яркие цвета. В целом все сурово но с элементами позитива, ведь его выпускают! Так же надо что бы картинка сочеталась и вписывалась в общий дизайн сайта [url=http://advokatymoskow.ru/]advokatymoskow.ru[/url]
Доработать сайт 2016-01-11 20:39 Вот сайт - avtokarelii.ru, его нужно сделать приближенным к сайту который на картинке в прикрепленных файлах. Как видите структура такая же, но выглядит не очень, я предоставлю элементы дизайна, которые нужно будет вставить на сайт. Пока речь идет о главной странице, бюджет 7$, если все будет хорошо, будем работать дальше.
Подготовить и подать отчетность общественной организации. Киев 2016-01-11 20:38 Необходимо подготовить и подать всю необходимую отчетность по неприбыльной общественной организации за 2015 год. Отчетность пустая, без оборотов, сотрудники без заработных плат - работа на общественных началах. Печерский район Киева, период - за 2015. Ранее отчетность не подавалась, электронные базы не подключены. Ждем предложений по стоимости и срокам.
Нужен перевод книги с англ на русс 2016-01-11 20:37 Здравствуйте! Нужен перевод книги с англ на русский. В ней 93,7 стандартных страницы (без оглавления). Медицинская тематика. Оплата после завершения проекта! Пишите сроки и цену.
...мл%ть, отключил ВСЕ плагины и модули. Загрузка 10,4 секунды.
Ни чего страшного вон форум и многие сайты сегодня такое отдают, тут может и не у вас проблема а ч...
Re: Как правильно хранить измененные исходники шаблона? 2016-01-11 22:05 И папку с шаблоном не забываем открыть в робот.тхт. Раньше писали надо закрывать. Закрыли так и стоит до сих пор у многих. А Google шаблон не читает и пишет шаблон не адаптирован под мобилы.
Узнать куда можно добраться из любого аэропорта в мире без пересадок можно с помощью сайта flightconnections.com. Достаточно выбрать любой аэропорт на карте и она тут же покажет все прямые маршруты из этого аэропорта в другие точки планеты. Если flightconnections.com ничего не упускает, то …
В конце года принято подводить игровые итоги (Игры 2015 года за две минуты и Выбор редакции 2015: Игры), но в GameTrailers пошли дальше и решили составить список десяти самых удачных лет для игр. При этом рейтинг не был ограничен последними десятью годами, и в …
Компания Nokia продала своё подразделение по выпуску мобильных устройств корпорации Microsoft и, по условиям соглашения, не имела права продавать смартфоны под собственной торговой маркой на протяжении определённого времени. И вот, срок действия этого ограничения истёк 31 декабря 2015 года. Таким …
Не только в Firefox отказываются от поддержки некоторых возможностей браузера. С целью упрощения кода аналогичная инициатива еще в прошлом году была запущена для браузера Google. Цель Project Eraser – упростить код браузера, убрав из него редко используемые, не представляющие интереса, либо …
На днях была опубликована новая редакция рейтинга J.D. Power по степени удовлетворенности пользователей беспроводными маршрутизаторами. Рейтинг был составлен на основании результатов исследования J.D. Power 2015 Wireless Router. Исходным материалом для него стали результаты опроса, участие в котором приняли 2716 пользователей, …
В ожидании анонса долгожданного 4-дюймового iPhone тематические источники предсказуемо соревнуются в публикации предварительных сведений об этом устройстве. По предыдущим слухам и утечкам, многие уже свыклись с мыслью, что устройство будет называться iPhone 6c, получит 2 ГБ ОЗУ и новый процессор …
Овен Хорошее время для получения разнообразных нетривиальных впечатлений. У вас остается шанс раздвинуть свои горизонты, завести знакомство в авторитетных кругах, приобщиться к источнику знаний. Удачное время для оригинальных новых начинаний, которые могут быть осуществлены за день-другой (лучше, если они не индивидуальные, а коллективные). Если вы получаете образование, можно успеть завязать контакт с преподавателем, сдать экзамен, получить информацию от сокурсников. Ваши попутчики, товарищи по учебе или путешествию могут стать вашими друзьями.
Телец Это неплохое время для оформления кредита, оплаты страховки, возврата долгов (включая полное и окончательное закрытие задолженности), оформления социальных выплат и пособий. В ходе путешествия, визита в крупное учреждение, в процессе учебы у вас будет возможность подключиться к богатому источнику знаний или информации. Вы можете получить безвозмездную материальную помощь, воспользоваться покровительством. Возможно также получение психологической поддержки или морального одобрения, прохождение теста на совместимость с человеком или группой людей.
Близнецы Если ваше партнерство строится главным образом на сходстве полученного образования, идей, убеждений, спешите укрепить отношения - таких счастливых случаев судьба предоставляет вам все меньше. Вас и другого человека может дополнительно сплотить общая мечта, надежда, религия, мировоззрение, происхождение, а также музыкальные вкусы, схожие душевные и эстетические потребности. Это удобный момент для того, чтобы помириться, договориться, пойти на взаимные уступки. Некоторые повороты отношений могут оказаться для вас неожиданными.
Рак Это хороший день для коллективной, групповой работы или действий во имя какой-либо идеи (желательно объединяющей большое количество людей). Обыденный труд принесет вам особенное удовлетворение, если вы учите, лечите, развлекаете, вдохновляете или морально поддерживаете других. Не исключены удачные изменения в служебных отношениях. В процессе лечения возможны неожиданности и непредвиденные повороты ситуации, в целом скорее благоприятные: например, быстрое или самопроизвольное излечение от заболевания, отмена предполагавшегося негативного диагноза.
Лев День подходит для занятий искусством, музыкой, для посещения концертов, выставок, театральных спектаклей, для принятия гостей в собственном доме или праздничного визита. Любовное свидание может быть очень романтическим и вдохновляющим. Это удачный момент для выступлений на публике, для демонстрации своих талантов и способностей. При прочих равных условиях, стоит выбрать творческое занятие или расслабляющий отдых в непринужденной обстановке. Некоторые события этого дня будут неожиданными, непонятными и могут вызвать у вас острую эмоциональную реакцию.
Дева Подходящее время для семейного ужина, вечера воспоминаний, подведения итогов домашних преобразований. Занятия обыденными вещами могут показаться скучными. Обещают стать благоприятными бытовые, технические, научные, психологические эксперименты. Вы можете смело приглашать к себе в гости друзей. Родители или другие родственники охотно окажут вам услугу, помощь, выразят сочувствие в случае болезни или неудачи и будут ждать того же от вас. Не нарушайте семейную атмосферу, если она выглядит умиротворенной, воздержитесь от слишком резкой критики, придирчивости.
Весы Встречи и поездки этого дня могут носить необычный, романтический или таинственный характер, сопровождаться неожиданными впечатлениями. Это прекрасное время для романтического путешествия вдвоем или для праздничного ужина при свечах, с соответствующим ситуации продолжением. Есть шанс найти интересный источник сведений (например, любопытный интернет-ресурс). День также благоприятен для контактов с людьми, обладающими властью, авторитетом, влиянием, известностью, популярностью, способными воздействовать на ваше воображение или мировоззрение.
Скорпион Самое время подумать о ценностях, которые находятся в вашем распоряжении, или о тех, которые вы собираетесь приобрести. Это могут быть не только деньги или вещи. В список ваших сокровищ могут входить знания (особенно в гуманитарной области), а также контакты с влиятельными и знающими людьми, которых вы считаете своими учителями. Подходящее время для поиска и покупки учебника, справочника, путеводителя, подарка, сюрприза, сувенира, книг или других материалов о музыке, искусстве, религии. Может увеличиться аппетит, появиться тяга к излишествам.
Стрелец Это день хороших возможностей, гармоничного самопроявления, особенно если вы рождены в декабре. Будьте внимательнее и не разбрасывайтесь подворачивающимися шансами. Некоторые из них судьба предоставляет вам в последний раз и вновь расщедрится не скоро. Вместе с приятным и вдохновенным настроением вы можете испытывать определенную нервозность и раздражительность, обнаружить в себе склонность к перепадам настроения. Возможна подверженность влиянию окружающей среды (например, идеям ваших друзей, единомышленников, родителей, домочадцев).
Козерог Вы можете дать волю склонностям, которые обычно не позволяете себе проявлять открыто: например, любви к романтике, симпатии к какому-либо учению, мировоззрению, музыкальному течению, религиозному или философскому направлению. Наряду с восхищением неким человеком, сообществом, явлением, вы можете испытать разочарование или неожиданно переменить свое мнение. В это время есть шанс получить скрытую помощь, поддержку материального или духовного характера. С другой стороны, вы почувствуете, что живете полной жизнью, если тайно поможете кому-то сами.
Водолей Будущее в этот день рисуется в ярких или романтических красках. В это время легко найти друзей, охотно разделяющих ваши мысли, идеи или эмоции. Это прекрасный день для проведения неформального собрания, для подведения итогов какого-либо необычного, нестандартного начинания. Несмотря на то, что полностью предсказать или оценить фактические результаты вряд ли возможно, вы будете удовлетворены тем, что сделали. Если вы рождены в середине февраля, день может стать значимым для вас лично, создать условия для вашей популярности, востребованности.
Рыбы Почти весь день обстановка будет оставаться неустойчивой. При этом в ней будет много положительных, вдохновляющих, обнадеживающих моментов. Вас может похвалить начальство, одобрить друг или близкий человек, вы можете найти нечто общее с тем, кого плохо знаете. Это подходящий момент для того, чтобы вступить в новый коллектив, сообщество, погрузиться в изучение захватывающего вас предмета. Решения могут приниматься интуитивно. Будьте внимательны - возможны странные, непредвиденные повороты ситуации. Вы можете соблазниться ненужным экспериментом.
Тихо и незаметно вышло в свет ядро Linux 4.4 LTS (Long-Term Support), о чем известил Линус Торвальдс. Новинка включает довольно значительные обновления, включая, например, 3D поддержку виртуальных дравейров GPU. Благодаря этому можно использовать аппаратную поддержку графики в guest VM. Также включена поддержка Open-Channel Solid State Drives (SSDs) посредством LightNVM.
» Нажмите, для открытия спойлера | Press to open the spoiler «
Более того, Linux kernel 4.4 LTS поддерживает RAID5 MD, добавлена возможность непривилегированным пользователям запускать eBPF программы. Также стоит упомянуть поддержку поллинга для улучшения общей производительности high-end устройств хранения данных, mlock2() syscal и многое другое. Улучшена поддержка 64-битных ARM, решена проблема с утечкой памяти в Skylake CPU от Intel. Добавлена возможность работы слушающих TCP-сокетов в неблокирующем режиме, возможность определения потери TCP-пакетов с использованием RACK, добавлен KMS-драйвер для «малинки» (Raspberry Pi), а xconfig переведён на Qt5.
В новой версии принято примерно 13 тысяч исправлений, внесенный 1548 разработчиками. Примерно 44% всех изменений в новой версии ядра связано с драйверами устройств.
Обновлены старые драйвера, добавлено множество новых, исправлены баги и проблемы предыдущих версий ядра. Больше информации можно найти здесь и здесь (на русском языке).
В целом, Linux 4.4 LTS является самой продвинутой long-term веткой среди всех прочих. Вероятно, именно эта версия ядра будет использована в Ubuntu 16.04 LTS (Xenial Xerus) и многих других дистрибутивах. Также можно надеяться на интеграцию 4.4 LTS в Arch Linux.
Более чем уверен, что БП. Вы ему такую гроздь дисков навесили в нагрузках (снимаем 70W, плюс жадная до тока видеокарта (Потребление энергии 150 W!!). Память ест мало но 12 w не отменяем. Проц - достаточно "зелёный" но 17 ватт ему положено. С лёгкостью посчитаем - 249 ватт в итоге. Если БП новый и хороший - это для него ерунда а не нагрузка. А вот, если он уже пожил года 3... Как вариант - попросите у друзей/знакомых хороший БП на потестить. Повторюсь - вероятнее всего немного устал БП. Да, загляните ему во внутрь на предмет вздувшихся конденсаторов.
Британский музыкант Дэвид Боуи скончался 10 января на 70-м году жизни. Об этом говорится в заявлении, опубликованном в понедельник, 11 января, на странице музыканта в Facebook.
«Дэвид Боуи ушел из жизни сегодня в окружении своих родственников после 18-месячной борьбы с раком. Несмотря на то, что многие захотят поделиться этой потерей, мы просим вас уважать частную жизнь семьи, которая в настоящий момент переживает горе», — говорится в сообщении.
8 января Боуи отметил свой 69-й день рождения, выпустив новый студийный альбом Blackstar.
Дэвид Боуи получил широкую известность в начале 1970-х годов благодаря своим музыкальным экспериментам, в частности песне Space Oddity, выпущенной в 1969 году. В 1975-м он приобрел крупный успех в США с синглом Fame, написанным вместе с Джоном Ленноном. Боуи также сотрудничал с Queen — в соавторстве с группой он представил трек Under Pressure, попавший на верхушку британских и американских чартов. В 1990-х и 2000-х годах он продолжал активно экспериментировать в музыкальных жанрах, играя в стилях белый соул, индастриал, AOR и джангл. В 2002 году Боуи занял 29-е место в списке «100 величайших британцев» по версии канала «Би-би-си».
Музыкант активно снимался в кино. Самые известные фильмы с его участием — «Человек, который упал на землю», «Артур и минипуты», «Последнее искушение Христа», «Образцовый самец» и «Престиж». За роль в картине «Человек, который упал на Землю» он получил премию «Сатурн». Также в копилке Боуи две премии «Грэмми» и две BRIT Awards.
Компания Microsoft прекращает поддержку Windows 8 с завтрашнего дня (12 января). Прекращение поддержки обуславливается заранее фиксированной датой support lifecycle. Пользователи этой ОС могут перейти на актуальную версию ОС Windows 8.1 (обновление для Windows 8), обновиться до Windows 10 или же откатиться назад к Windows 7. После этой даты для Windows 8 перестанут выходить security и другие обновления, таким образом пользователи этой ОС останутся с пожизненными 0day уязвимостями в ней.
12-го числа компания выпустит набор обновлений patch tuesday, которые также коснутся и Windows 8. Это будет последний выпущенный для нее набор обновлений. Тогда же компания закончит поддерживать устаревшие версии веб-браузера Internet Explorer 7-10.
К выставке CES 2016 компания Creative подготовила устройство iRoar, которое сам производитель называет самой умной акустической системой на планете.
Это портативная АС мощностью 40 Вт, сердцем которой служат сразу два цифровых сигнальных процессора SB-Axx1, использующихся в звуковых картах компании. За воспроизведение отвечают два излучателя средних и высоких частот и один низкочастотный диаметром 2,75 дюйма. Всё это дополнено парой пассивных излучателей. Конечно, оценивать качество звука сугубо по техническим параметрам бессмысленно, но задатки у АС для данного сегмента отличные.
Устройство поддерживает кодеки aptX, aptX low-latency, AAC и SBC. Для подключения источника присутствует целый набор интерфейсов. Тут и Bluetooth, и NFC, и линейный выход, и micro-USB Audio, и оптический порт TOSlink, и полноразмерный порт USB, и слот для карт microSD. Но и это не всё. Присутствуют также специальный разъём для подключения сабвуфера и порт для фирменного кабеля Mega Stereo, при помощи которого можно соединить пару iRoar между собой.
Не обошлось и без фирменного ПО для смартфонов (iOS и Android). Кроме базовых возможностей по управлению воспроизведением и эквалайзером, оно может похвастаться и различными дополнениями вроде функции будильника, метронома, громкой связи и прочих. Также устройство выделяется тем, что для него выпущен собственный SDK, позволяющий настроить звук на аппаратном уровне. Габариты устройства равны 225 х 120 х 57 мм при массе 1,1 кг. Стоимость новинки составляет $370.
К выставке CES 2016 компания Creative подготовила устройство iRoar, которое сам производитель называет самой умной акустической системой на планете.
Это портативная АС мощностью 40 Вт, сердцем которой служат сразу два цифровых сигнальных процессора SB-Axx1, использующихся в звуковых картах компании. За воспроизведение отвечают два излучателя средних и высоких частот и один низкочастотный диаметром 2,75 дюйма. Всё это дополнено парой пассивных излучателей. Конечно, оценивать качество звука сугубо по техническим параметрам бессмысленно, но задатки у АС для данного сегмента отличные.
Устройство поддерживает кодеки aptX, aptX low-latency, AAC и SBC. Для подключения источника присутствует целый набор интерфейсов. Тут и Bluetooth, и NFC, и линейный выход, и micro-USB Audio, и оптический порт TOSlink, и полноразмерный порт USB, и слот для карт microSD. Но и это не всё. Присутствуют также специальный разъём для подключения сабвуфера и порт для фирменного кабеля Mega Stereo, при помощи которого можно соединить пару iRoar между собой.
Не обошлось и без фирменного ПО для смартфонов (iOS и Android). Кроме базовых возможностей по управлению воспроизведением и эквалайзером, оно может похвастаться и различными дополнениями вроде функции будильника, метронома, громкой связи и прочих. Также устройство выделяется тем, что для него выпущен собственный SDK, позволяющий настроить звук на аппаратном уровне. Габариты устройства равны 225 х 120 х 57 мм при массе 1,1 кг. Стоимость новинки составляет $370.
К выставке CES 2016 компания Creative подготовила устройство iRoar, которое сам производитель называет самой умной акустической системой на планете.
Это портативная АС мощностью 40 Вт, сердцем которой служат сразу два цифровых сигнальных процессора SB-Axx1, использующихся в звуковых картах компании. За воспроизведение отвечают два излучателя средних и высоких частот и один низкочастотный диаметром 2,75 дюйма. Всё это дополнено парой пассивных излучателей. Конечно, оценивать качество звука сугубо по техническим параметрам бессмысленно, но задатки у АС для данного сегмента отличные.
Устройство поддерживает кодеки aptX, aptX low-latency, AAC и SBC. Для подключения источника присутствует целый набор интерфейсов. Тут и Bluetooth, и NFC, и линейный выход, и micro-USB Audio, и оптический порт TOSlink, и полноразмерный порт USB, и слот для карт microSD. Но и это не всё. Присутствуют также специальный разъём для подключения сабвуфера и порт для фирменного кабеля Mega Stereo, при помощи которого можно соединить пару iRoar между собой.
Не обошлось и без фирменного ПО для смартфонов (iOS и Android). Кроме базовых возможностей по управлению воспроизведением и эквалайзером, оно может похвастаться и различными дополнениями вроде функции будильника, метронома, громкой связи и прочих. Также устройство выделяется тем, что для него выпущен собственный SDK, позволяющий настроить звук на аппаратном уровне. Габариты устройства равны 225 х 120 х 57 мм при массе 1,1 кг. Стоимость новинки составляет $370.
Foxconn Electronics (Hon Hai Precision Industry) сообщила о том, что доход компании в декабре прошлого года составил 12,29 млрд долларов — на 20,84% меньше, чем в ноябре 2015 и на 20,54% меньше, чем в декабре 2014.
В пресс-службе компании отметили, что столь существенное падение продаж произошло из-за снижения спроса на потребительную электронику, потому как поставки вычислительных и коммуникационных решений за этот период находились примерно на том же уровне, что и годом ранее.
В четвертом квартале оборот компании составил 42,89 млрд долларов, на 34,16% больше, чем кварталом ранее, но на 4,62% меньше, чем за аналогичный период в позапрошлом году.
В целом компания смогла улучшить свои суммарные продажи за прошлый год на 6,42%, они составили 134,45 млрд долларов.
Планшет Microsoft Surface Pro 4 является одним из самых мощных и интересных устройств данного класса, которые работают под управлением операционной системой Windows 10.
Однако пользователи, которые применяют его в качестве полноценного рабочего компьютера, могут испытывать нехватку порта Ethernet. Именно для таких людей компания Bidul и выпустила свой аксессуар.
Новый аксессуар доступен для моделей Surface Pro 4 и Surface Pro 3, он подключается через порты USB 3.0 и Mini DisplayPort, взамен предоставляя пользователям те же самые разъемы, а также дополнительный порт USB 3.0 и разъем для подключения к проводной сети. Аксессуар доступен по цене 45 долларов.
Компания также предлагает и другие аксессуары для планшетов Surfаce, например, такой же, но без Mini DisplayPort или же вариант с двумя портами USB 3.0, кардридером и дополнительной флэш-памятью объемом 256 ГБ.
Появление и распространение высокоскоростных интерфейсов в нынешнем году повлекло за собой волну анонсов внешних видеокарт. К примеру, Asus показала на CES 2016 графическую док-станцию ROG XG Station 2. Предыдущая модель XG Station демонстрировалась впервые ещё в далёком 2007 году.
Касательно новики пока нет практически никакой информации. Известно, что док-станция использует разъём USB C, хотя, не исключено, что речь об интерфейсе Thunderbolt 3 с таким портом.
Также источники сообщают о способности док-станции заряжать ноутбуки в процессе работы. Других данных нет. Мощность блока питания не называется, но вряд ли его будет недостаточно для подключения даже флагманских видеокарт. Когда и по какой цене можно будет приобрести устройство, пока также неясно.
Добрый вечер! Нашел несколько списков вопросов для собеседований по С++, вроде там чисто по языку и наиболее часто используемым частям библиотеки, и все более-менее понятно. Но вот интересно, есть ли аналогичные примеры вопросов с ответами по более глубоким и темным местам С++. В частности, многопоточность. Специфика моей работы такова, что в основном все что мне приходилось с ней делать -отделять вычислительный поток от GUI; в GUI ставится таймер, который периодически в критической секции читает счетчик из рабочего потока и обновляет прогресс бары и т.д. Ну то есть кроме критических секций как-то ничего больше и не применял. Какие вопросы по многопоточности задают на собеседованиях, какие задачи? Еще интересен boost. Я примерно знаю для чего нужны 80% библиотек, процентов 20 применял ограниченно. Но наизусть ничего не помню. Что могут спрашивать по Бусту? Ну и возможно что-то еще я упустил... по современным аспектам С++14 вопросов пока не попадалось, может поделитесь?
Lenovo выпустила новый смартфон A7000 Turbo 2016-01-11 21:32 Компания Lenovo выпустила на рынок Индии смартфон A7000 Turbo с поддержкой двух SIM-карт (4G+4G), который с точки зрения аппаратной начинки очень похож на модель K3 Note.
В Сети засветился прототип металлического смартфона Nokia 2016-01-11 21:19 В Сети засветился прототип металлического смартфона Nokia. Впервые информация по этому вопросу всплыла в социальной сети Китая. Там и были выложены фотографии корпуса для всеобщего ознакомления с новинкой.
CES 2016: SanDisk представил новые модели флэш-накопителей 2016-01-11 20:46 Корпорация SanDisk на всемирной выставке CES 2016 представила обновленные версии двух своих самых популярных флэш-накопителей, расширив линейку категории смарт-решений для мобильного хранения.
AMD снизила цену ускорителя Radeon R9 Nano на $150 2016-01-11 20:37 Подытожим, что до снижения цены, AMD Radeon R9 Nano стоила примерно 650 американских долларов, а теперь ее цена снизилась приблизительно до 500 долларов США.
Elephone выпустит экш-камеру Explorer Pro 2016-01-10 12:03 Китайский производитель смартфонов Elephone планирует выпустить в нынешнем году новое видение экшн-камеры Explorer, добавив в названии аббревиатуру Pro. К этому компанию подталкивает необходимость поиска новых продуктов, которые станут драйверами роста бренда.
Lenovo анонсирует сверхтонкий ПК всё-в-одном ThinkCentre X1 2016-01-08 17:26 Компания Lenovo сделала несколько анонсов, представив публике новые свои новые устройства. Одним из них стал компьютер ThinkCentre X1, названный фирмой «одним из самых тонких в мире десктопов». Новый ПК всё-в-одном работает под управлением Windows 10 и обладает «ультратонкой рамкой в 11 мм».
У меня правильно перебирает только первый путь, но дальше выводятся пути из несвязанных элементов. Почему это происходит? Может кто поможет пофиксить? Уже пару дней бьюсь, не могу понять в чём причина такого поведения.
Код
void goElement( std::vector< std::vector< unsigned short > > &relationsArr, unsigned short goElementId, std::vector< unsigned short > visitedIndexesPathArr ) {
printf( "\nВход в элемент: %i\n", goElementId );
// Проверяем пути для посещения - если имеются для текущего элемента: for ( unsigned short i = 0; i < relationsArr[ goElementId ].size(); i++ ) {
printf( "\t> Возможный путь: %i для %i элемента", relationsArr[ goElementId ][ i ], goElementId );
bool notVisited = true; // Проверяем - не посещали ли мы relationsArr[ goElementId ][ i ] (возможный путь для посещения) уже в нашем пути for ( unsigned short i1 = 0; notVisited && ( i1 < visitedIndexesPathArr.size() ); i1++ ) if ( relationsArr[ goElementId ][ i ] == visitedIndexesPathArr[ i1 ] ) notVisited = false;
if ( notVisited ) {
printf( " - не посещён! Посещаем...\n" );
visitedIndexesPathArr.push_back( relationsArr[ goElementId ][ i ] ); // запоминаем его как посещённый goElement( relationsArr, relationsArr[ goElementId ][ i ], visitedIndexesPathArr ); // Посещаем следующий
Домен Русс-кий.рф возможно будет интересен тем, кто как-то связан с бильярдом. Словосочетание "русский кий" аккурат вписалось, на мой взгляд, в это название домена. Но вот оценить его затрудняюсь. Как считаете, сколько он может стоить?
Домен: stееl.ru Условия передачи: бумажная передача, встреча в офисе Текущий регистратор домена: REG-RU Домен зарегистрирован: 02.09.2015 Дата первичной регистрации: 23.07.1998 Срок окончания регистрации домена: 02.09.2016 Предложение актуально до: момента продажи Минимальное предложение: $10 000
Сервис Stаtonlinе.ru по вхождению слова «Stееl» выдает 2 562 домена, по слову «Stаl» - 7 846 (!) доменных имен.
Единый государственный реестр юридических лиц сообщает о 889 юридических лиц по критерию поиска «Cтил» и 3 122 (!) юридических лиц с наименованием «Cталь».
В сервисе Яндекс вордстат 194 750 показов в месяц по слову «stееl», по слову «сталь» более 2 млн., что сопоставимо с золотом.
Поиск Google выдает 903 000 000 результатов по слову «stееl».
Яндекс – 60 000 000 результатов.
Домен Stаl.ru ведет на сайт ПАО «Северсталь» — одной из крупнейших в мире вертикально интегрированных сталелитейных и горнодобывающих компаний c активами в России, Белоруссии, Украине, Казахстане, Латвии, Польше, Италии и Либерии.
В 2014 году выручка компании составила $8,296 млн., EBITDA достигла $2,203 млн.
Чистая прибыль "Северстали" за период январь-сентябрь 2015 составила $676 млн.,
В 2014 году было произведено 11.3 млн. тонн стали (без учета предприятий Severstal North America).
Возможное применение:
★ Для производителей стали
Владение доменом, олицетворяющим целую отрасль - это престижно.
Доменное имя Stееl.ru
можно и нужно рассматривать как реально действующий инструмент маркетинга, например, для размещения рекламы - наиболее эффективного способа донесения информации о товарах до потребителя с целью продвижения товара, для формирования положительного имиджа компании, для PR , способствующий установлению и поддержанию взаимодействия, расположения, взаимопонимания и сотрудничества между компанией и обществом, формированию доброжелательного общественного мнения о продуктах компании и ее деятельности, идеально вписывающийся в концепцию комплекса маркетинга 4P.
Tеория ( концепция ) 4P - маркетинговая теория, основанная на четырёх основных «координатах» маркетингового планирования:
Даже простая переадресация на основной сайт компании обеспечит лиды и последующие контракты.
Сколько стоит домен, если он позволит продать сотни тысяч, миллионы тонн стали?
Примеры:
★ Для продавцов металлопродукции
Домен Stееl.ru - лучший вариант для создания B2B платформы, биржи, металлургического портала.
Все другие варианты (mеtаll.ru, mеtаl.ru, irоn.ru, сталь.рф) уже задействованы.
Примеры:
Для информации, порядок цен на домены: мeталл.рф – 2 500 000 р. мeталлы.рф – 2 000 000 р.
★ Для компании, поставляющей стальные дома (ЛСТК)
Примеры:
★ Строительный портал
★ Интернет-магазин стальных дверей и замков, окон, ванн, радиаторов отопления
Примеры:
★ Интернет-магазин украшений из стали
Примеры:
★ Интернет-магазин ножей
Примеры:
★ Интернет-магазин посуды из нержавеющей стали
★ Интернет-магазин стальной мебели, моек, кухонь
★ Интернет-магазин часов, в том числе умных
★ Металлические печи для дома и дачи
★ Интернет-магазин спортивных товаров, продукции для бодибилдинга
Примеры:
★ Кузнечно-штамповочное производство
Примеры:
★ Для создания медиапроекта, стартапа
Домен Stееl.ru не был доступен более 17 лет!
Уникальная возможность приобрести супердомен!
P.S. Ценовое предложение можно сделать и с помощью формы обратной связи на домене. P.P.S. Настоятельно прошу предлагать сумму не ниже минимальной, такое предложение уже есть.
Softline получил от Совкомбанка кредит на 4 млрд руб., на которые намерен приобрести ИТ-активы как в России и СНГ, так и в дальнем зарубежье. В компании эти план рассматривают в качестве шага к IPO.
Власти Казахстана осуществили долгожданное распределение 4G-частот. Крупнейшие оператор республики Kcell и местная «дочка» Vimpelcom заплатят за новые частоты в совокупности $150 млн. При этом они должны будут покрыть 4G-сетям все населенные пункты с числом жителей от 500 человек.
Приложение для оплаты парковки в Москве снова вернули в AppStore после серии сбоев 2016-01-11 20:03 Мобильное приложение для оплаты столичных парковок было возвращено в каталог сетевого сервиса AppStore после того, как разработчики устранили в нём причины сбоев, на которые автомобилисты жаловались в прошлом месяце. Об этом сообщается в официальном Twitter-аккаунте департамента информационных технологий города Москвы. «Парковочное приложение для iOS вернулось в AppStore. Рекомендуем обновиться», — отмечается в сообщении департамента.
Hardware: Rivals — Майкл Бэй одобряет! к игре Hardware: Rivals 2016-01-11 19:43 В прошлом году PS Plus подарила всем своим подписчикам машинки Rocket League. В новом же нам предлагают испытать на прочность вёрткие багги и тяжёлые танки Hardware: Rivals, стреляя без устали по другим участникам соревнований. Вели боевые действия отборные члены команды StopGame.ru, в число которых... [читать далее]
Новый смартфон на SailFish покажут на MWC 2016 2016-01-11 19:33 Новый смартфон на SailFish покажут на MWC 2016 Может быть, ещё не все наши читатели забыли о том, что индийская компания Intex проявила интерес к операционной системе Sailfish и решила сделать на ней смартфон. Его анонс ожидался ещё прошлым летом, однако о продукте ничего не было слышно.
Facebook выпустит мессенджер для «маков» 2016-01-11 19:16 Социальная сеть Facebook ведет разработку клиента Messenger для операционной системы OS X. Об этом сообщает издание TechCrunch, которому удалось раздобыть фотографию сотрудника компании, пользующегося версией мессенджера для компьютеров Apple.
Пользователи написали более 4,3 млн твитов о Дэвиде Боуи 2016-01-11 18:11 Более 4,3 миллиона твитов написали интернет-пользователи из различных стран в память о рок-музыканте и киноактере Дэвиде Боуи, скончавшемся от рака в возрасте 69 лет.
Белорусское приложение вышло на первое место в App Store в нескольких странах 2016-01-11 10:16 В настоящее время MSQRD занимает первую строчку в рейтинге бесплатных приложений для iPhone в Беларуси, России, Казахстане, Армении, Кыргызстане, Азербайджане и еще нескольких странах. А количество скачиваний программы на момент публикации — более 220 тысяч.
LeTV идет в Индию. Презентация назначена на 20 января 2016-01-10 12:03 Проникнуть на индийский рынок попытается и LeTV, который запланировал провести 20 января презентацию своих продуктов в городе Гургаоне, расположенный вблизи столицы Нью-Дели.
LTE: МТС запустила сети LTE в 83 субъектах РФ? Внезапно 2016-01-11 18:20 Алексей Бойко Информацией о том, что МТС построило сети LTE в 83 регионах РФ сегодня с утра радует "КоммерсантЪ", ссылающийся на ТАСС, ссылающуюся на пресс-службу МТС. Интересная новость, но можно ли ей верить?
Команда FlyElephant поздравляет всех с наступившим Новым Годом. Мы начинаем этот год с расширения списка инструментов, вебинаров и формирования сообщества вокруг проекта.
FlyElephant — это платформа, которая предоставляет ученым готовую вычислительную инфраструктуру для проведения расчетов, автоматизирует рутинные задачи и позволяет сосредоточиться на основных вопросов исследований.
Для пользователей платформы FlyElephant стали доступны Octave и Scilab, таким образом полный список поддерживаемых языков и инструментов следующий: GCC (с поддержкой OpenMP), R, Python (v2 & v3), Octave и Scilab. Для участников программы бета-тестирования стал доступен следующий инструментарий: Java (v7 & v8), Julia, OpenFOAM, GROMACS и Blender. Если Вы еще не являетесь пользователем платформы FlyElephant, то зарегистрироваться можно здесь. В честь Нового Года Вы можете пополнить свой счет на $300 введя в Личном кабинете специальный промо-код: 195708679772. Читать дальше →
Несколько уроков по базам данных и SQL в Delphi 2016-01-11 00:00 Мы публикуем здесь несколько уроков по БД и SQL с сайта Лабиринты информатики, потому, что к сожалению, по неизвестным нам причинам этих статей на их родном сайте больше нет, а они очень...
Сервис событий в SQL-сервере 2016-01-11 00:00 Погружение в проблематику Достаточно нередко у разработчиков клиент-серверных приложений возникает необходимость организовать некий механизм, позволяющий по событию на SQL-сервере уве...
День открытых файлов 2016-01-11 00:00 Сегодня я расскажу вам о такой важной особенности языка программирования, как работа с файлами. Мы будем копировать, вставлять, вырезать, удалять файлы и все это на Delphi. Функции работы с...
Как узнать размеры шрифтов в Windows? 2016-01-11 00:00 GetTextMetrics() Как определить, какой шрифт установлен в системе, большой или маленький Следующуя функция возвращает true, если маленькие шрифты установлены в системе. Так же можно за...
Обновленная Виртуальная АТС Мультиком 2016-01-10 15:24 Компания Мультиком представляет обновленную "Виртуальную АТС". Обновлению подверглись как предлагаемый функционал, так и система ценообразования, а также набор сопутствующих услуг. В обновленной версии "Виртуальной АТС" от компании Мультиком...
Расширение зоны покрытия Wi-Fi от 2КОМ – просто и эффективно. 2015-12-24 18:57 21 декабря 2015. Один из ведущих интернет-провайдеров Москвы, компания 2КОМ, представляет свое новое Решение, которое оптимально подойдет для клиентов 2КОМ, проживающих в больших квартирах или частных домах. PLC Wi-Fi Решение от 2КОМ – это простой и эффективный...
Овен
Телец
Близнецы
Рак
Лев
Дева
Весы
Скорпион
Стрелец
Козерог
Водолей
Рыбы
Комментариев нет:
Отправить комментарий